Error al cargar NTLDR Operating System Not Found

Si tienes XP, que todavia somos muchos los que lo usamos te puedes haber encontrado con este mensaje al encender el equipo Error al cargar NTLDR. Operating System not found, si tienes partición NTFS, debes arrancar el equipo con el CD-ROM de instalación de Windows XP y entrar en la opción de Reparar (R), abrir la consola de recuperación. Una vez en la consola introduce los siguientes comandos (E simboliza la unidad asignada al CD-ROM):

* COPY E:\i386\NTLDR C:\ (pulsar Enter)
* COPY E:\i386\NTDETECT.COM C:\ (pulsar Enter)

Sacamos el CD-ROM de Windows XP y tecleamos 'exit' en la consola de recuperación para reiniciar el equipo.

Crear punto restauracion windows 10 windows 7

Windows nos da la posibilidad de crear puntos de restauración para que puedas restaurar el sistema a una fecha anterior. Esto puede ser útil si ha instalado actualizaciones o programas que están causando problemas. Sigue los pasos que a continuación te digo para crear un punto de restauración.


1) Escribe Punto de restauración en el cuadro búsqueda de la barra de tareas y presiona Intro.


2) Haz clic en Configurar..... y selecciona Activar protección del sistema.


3) Haz clic en Aplicar y selecciona Aceptar.


4) Selecciona Crear..... y escribe un nombre para el punto de restauración, aconsejo poner la fecha y hora para si tenerlo como indicativo.


5) Haz clic en Crear y elige Cerrar para crear el punto de restauración.


6) Listo.

VBA seleccionar celdas y rangos

En más de una ocasión quienes trabajamos con Macros en Excel nos encontramos con la necesidad de seleccionar una celda o un rango de celdas de Excel.


Cómo seleccionar una celda en una hoja activa

Para seleccionar la celda A5 en la hoja activa, puede utilizar cualquiera de los ejemplos siguientes:

a) ActiveSheet.Cells(1, 1).Select
b) ActiveSheet.Range("A5").Select

Cómo seleccionar una celda en otra hoja del mismo libro

Para seleccionar la celda B6 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:

a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Cells(2, 5)
b) Application.Goto (ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("B6"))
c) Sheets("[Nombre_Hoja]").Activate
    ActiveSheet.Cells(2,5).Select


Cómo seleccionar una celda en una hoja de un libro diferente

Para seleccionar la celda C3 en una hoja de un libro diferente, puede utilizar cualquiera de los ejemplos siguientes:

a) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Cells(3,3)
b) Application.Goto Workbooks("BOOK2.XLS").Sheets("[Nombre_Hoja]").Range("C3")
c) Workbooks("[Nombre_Archivo").Sheets("[Nombre_Hoja]").Activate
    ActiveSheet.Cells(3, 3).Select


Cómo seleccionar un rango de celdas en otra hoja del mismo libro

Para seleccionar el rango A2:C8 en otra hoja del mismo libro, puede utilizar cualquiera de los ejemplos siguientes:

a) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2:C8")
b) Application.Goto ActiveWorkbook.Sheets("[Nombre_Hoja]").Range("A2", "C8")
c) Sheets("[Nombre_Hoja]").Activate
    ActiveSheet.Range(Cells(1, 2), Cells(3, 8)).Select

VBA Instrucciones Macros

Desactivar el parpadeo o actualizacion de pantalla al ejecutarse una macro.

Application.ScreenUpdating = False

Desactivar mensajes de alerta a la hora de ejecutar procesos

 Application.DisplayAlerts = False

VBA Procesos para Graficos

Proceso para averiguar el nombre del gráfico.

MsgBox ActiveChart.Name


Proceso para cambiar nombre del gráfico

Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Name = "[Nuevo Nombre]"

Proceso para cambiar el titulo al gráfico.


Gráfico incrustado:

Application.Workbooks("[Nombre_libro]").Worksheets("[Nombre Hoja]").ChartObjects("[Nombre_Grafico]").Chart.ChartTitle.Text = "[Nuevo Titulo]"

 Application.Workbooks("[Nombre_libro]")--> de estas instrucciones podemos prescindir ya que estamos en ellos.

Gráfico Hoja Independiente:

Sheets ["Nombre_Grafico]").ChartTitle.Text = "[Nuevo Titulo]"

Proceso para cambiar un gráfico de Incrustado a Independiente

Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Chart.Location xlLocationAsNewSheet, "[Nombre_Nueva_Hoja]"

El proceso inverso, de Independiente a Incrustado

Charts ("Grafico1").Location xlLocationAsNewSheet, "[Nombre_Hoja]" 

Proceso para activar el gráfico


Worksheets("[Nombre_Hoja]").ChartObjects("[Nombre_Grafico").Activate

Cambiar tipo de gráfico

 activechart.type = XLl[tipo_grafico]

Crear boton y eliminar graficos de la hoja.
Dentro del botón pegar esta instrucción

Activesheet.chartobjects.delete

Crear boton activex para poder cambiar el formato del gráfico.
Hay muchas mas instrucciones aqui algunas de ellas.

ActiveSheet.ChartObjects("[Nombre_Grafico").Activate

With ActiveChart

    .Type = xlArea
    .ChartArea.Font.Name = "[Tipo_Letra]"
    .ChartArea.Font.Size = "[Tamaño_Letra]"
    .PlotArea.Interior.Color = vb[Color_en_Ingles
    .Axes(xlValue).TickLabels.Font.[Tipo_Fuente] = True
    .Axes(xlCategory).TickLabels.Font.[Tipo_Fuente] = True
    .Legend.Position = xlLegendPositionBottom
   
End With

Modificar todos los graficos incrustados en la hoja

dim [nombre_variable] as chartobject

for each [nombre_variable] in Activesheet.ChartObject

[colocar las instrucciones a efectuar  ]

next [nombre_variable]

VBA estructuras control de flujo

Estructuras de control de flujo en Visual Basic Application (VBA):

* Condicionales
    - If - then
    - Then - case

* Bucles
   - Determinados: conocemos las veces que se ejecutará el codigo en su interior.
     . For - Next
     . For - each - next

   - Indeterminados: no conocemos las veces que se ejecutará el codigo en su interior.
     . Do - loop
     . While - wend
     . Do - until

* Goto: No aconsejable su uso (codigo espaghetti) excepto para el uso de VBA: captura de errores.

VBA Constantes

La instrucción Const se utiliza para declarar una constante y establecer su valor. Al declarar una constante, puede asignar un nombre significativo a un valor. Una vez que se declara una constante, no se puede modificar ni se le puede asignar un nuevo valor.

- byte = 0 a 255
- boolean = True (verdadero) o false (Falso)
- integer = nº entero (Desde -32768 al 32767)
- long = nº enteros largos
- single = nº decimales (parte decimal corta)
- double = nº decimales (parte decimal larga)
- currency = tipo moneda
- decimal = nº decimales (parte decimal extremadamente larga)
- object = objeto
- string = cadena de caracteres - estos valores siempre van entre comillas
- variant = sin especificar (comodín) mejor no usarlo.

Depende el tipo de datos abarca muchos mas recursos.


CONST 'nombre' as [tipo de valor]

Podemos declarar una constante de diferentes maneras:

1) Local a nivel procedimiento: solo en el procedimiento concreto
2) Local a nivel de modulo: valida a todos los procedimientos del modulo
3) Publica: se puede utilizar a cualquier modulo del proyecto.

1) Declarando la constante dentro del procedimiento, solo se leera dentro de ese procedimiento.
2) Declarando la constante fuera del procedimiento sera capaz de leer a nivel de modulo.
3) Declarando la constante en vez de DIM poner PUBLIC

1) y 2) Const nombre As String
3) Public Const nombre as String