Macro

A continuación algunos ejemplos del bucle: For Each....Next
 
 
Ejemplo1: introducir un nombre para cada hoja del libro activo. Esta rutina se coloca en un módulo:
 
Sub nombraHojas()
DimMiNombre As String
Dim hoja As Worksheet
For Each hoja In Worksheets
   MiNombre = InputBox("Ingrese nombre de hoja: ")
   hoja.Name = MiNombre
Next hoja
End Sub
 
Ejemplo2: introducir valorespara cada celda de un rango (se coloca en un módulo)
 
Sub colocaValores()
Dim celdita as Range
For Each celdita in ActiveSheet.Range("A1:B10")
    celdita.Value = InputBox("Ingrese valor: ")Next celdita
End Sub
 
Ejemplo3: introducir los mismos valores en celdas de todas las hojas (se coloca en un módulo)
 
Sub valoresHoja()
Dim hoja as Sheets
For Each hoja in Sheets
   hoja.Range("E3").Value = Date
    hoja.Range("F3").Value = Time
Next hoja
End Sub
 
OTRO TIPO DE BUCLES:
 
Ejemplo1: realizar una acción por cada valor que tome una variable i (se coloca en un módulo)
 
SubmuestraNombre()
Dim i as Byte
Dim hoja as Worksheet
For i=1 to 5
   Msgbox WorkSheets(i).Name
Next
End Sub
 
En este ejemplo se muestra el nombre de cada hoja, desde la nro 1 a la 5
 Ejemplo2: realizar una acción mientras se cumpla una condición (se coloca en un módulo)
 
Sub recorreRango()
'Se recorre la col A a partir de la fila 2 hasta encontrar una celda vacía.
'El valor de cadacelda se incrementa en 1
Range("A2").Select
While Activecell.Value <> ""
ActiveCell.Value = ActiveCell.Value + 1
Wend
End Sub
 
 
 
 
Trabajando con Objetos
 
A continuación algunosejemplos de cómo llamar a objetos insertados en hoja, como ser Cuadros de texto, Listas o Cuadros combinados y también un Userform.
1- Llamando a un Userform, desde un botón:
En una hoja de Excel,los botones que lanzan una acción, pueden ser colocados con la barra de Formularios o Cuadro de Controles.
a. Botón de formulario: se asigna una macro, como la del ejemplo, que previamente se...