Ejemplos de Macros
Código Macro
'Este código es para copiar el rango mencionado a otro rango...
'Copia el rango A1:A5 a C1
Sub Copiar_Rango1()
Range("A1:A5").Copy Range("C1")
End Sub
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel...
———
Código Macro
'Este código es para copiar el rango mencionado a otro rango y hoja distinta...
'Copia el rango A1:A5 de la hoja 1 al rango C1 de la hoja 2
Sub CopiarRango2()
Worksheets(1).Range("A1:A5").Copy Worksheets(2).Range("C1")
End Sub
Para...
———
Código Macro
'Este código copia datos de un rango y los pega en otro rango de otra hoja ...
'Copiar y pegar un rango de celdas
Sub CopiarPegar()
'Copia los datos del rango A1:A5 de la hoja1 y los pega en el rango A1:A5 la hoja2
...
———
Código Macro
'Estos códigos crea una nueva hoja de calculo...
'Crear una nueva hoja de trabajo
Sub Nueva_Hoja1()
Worksheets.Add
End Sub
'Crear una nueva hoja de trabajo con nombre asignado
Sub Nueva_Hoja2()
Worksheets.Add.Name =...
———
Código Macro
'Este código es para crear un libro nuevo...
'Crear un nuevo libro
Sub Crear_Libro_Nuevo()
Workbooks.Add
End Sub
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la...
———
Código Macro
'Este código es para crear una forma (shape)...
Sub Crear_Formas()
'Crea un rectángulo en la parte superior izquierda de la hoja
'AddShape(TipoForma, Izquierda, Arriba, Longitud, Altura)
...
———
Código Macro
'Este código pone en Cursiva o saca la Cursiva de la celda seleccionada...
Sub Con_Sin_Cursiva()
If Selection.Font.Italic = True Then
Selection.Font.Italic = False
Else
Selection.Font.Italic = True
End If
End Sub
Para agregar...
———
Código Macro
'Este código pone Doble Subrayado o saca el Doble Subrayado de la celda seleccionada...
Sub Con_Sin_Doble_Subrayado()
If Selection.Font.Underline = xlUnderlineStyleDouble Then
Selection.Font.Underline = xlUnderlineStyleNone
Else
...
———
Código Macro
'Este código elimina el formato de las celdas especificadas ...
'Eliminar el formato de un conjunto de celdas
Sub Rangos7()
Worksheets("Hoja1").Range("A1:A5").ClearFormats
End Sub
Para agregar un macro, deberá abrir el editor de...
———
Código Macro
'Este código solicita el nombre de una persona y lo despliega en una caja de mensaje...
Sub Entrada_Salida1()
Nombre = InputBox("Su nombre por favor:")
MsgBox "Hola, " & Nombre
End Sub
Para agregar un macro, deberá abrir...