Las estructuras de repeticion son usadas para ejecutar una o mas instrucciones repetidas veces
Do...Loop
---------
Nos permitira ejecutar un bloque de instrucciones durante un numero indefinido de veces
*Pero mientras una condición sea (TRUE)Verdadera o hasta que llegue hacer verdadera.
El sgte es un ejemplo de una macro que comprueba la condicion sea true al inicio para poder continuar con las repeticiones
'primero ingresa valores en una columna ...por ejemplo de A1 a A5
'ahora colocate sobre la celda A1
Sub EJEMPLO_DO_LOOP() 'verificar condicion al inicio
'esta macro suma el valor de la variable "I"
'al valor de cada celda
'la palabra clave While verifica la condicion sea verdadera'
y continua entonces la ejecucion del bucle
Dim I As Integer
Do While Not IsEmpty(Selection) 'las repeticiones continuran siempre y cuando la seleccion "no 'sea vacio
I = I + 100
If IsNumeric(Selection) Then Selection.Value = Selection.Value + I
Selection.Offset(1, 0).Select
Loop
End Sub
Sub EJEMPLO_DO_LOOP1() 'verificar al final
'esta macro suma el valor de la variable "I" al valor de cada celda
'la palabra clave While verifica la condicion sea verdadera pero al final es decir
'despues de haber ejecutado la menos una vez el bucle
Dim I As Integer
Do
I = I + 100
If IsNumeric(Selection) Then Selection.Value = Selection.Value + I
Selection.Offset(1, 0).Select
Loop While Not IsEmpty(Selection) 'las repeticiones continuran siempre y cuando la seleccion
'no sea vacio
End Sub