Do While… Loop

Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO.

Ejemplo

Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50.

i = 1
 
Do While Cells(i, 2) <> ""
 f Cells(i, 1) >= 1.5 Then Exit Do
  i = i + 1
Loop
 
MsgBox "El valor se encontró en fila no. " & i

i = la línea donde empezamos el bucle. Ponemos i = 1. Cells(i, 2) significará línea i (=1), columna 2. Es decir celda B1. Al final del bucle, i nos dará la línea que buscamos.

Do While Cells(i, 2) <> “” significa que queremos que un bucle siga hasta que no hayan más celdas con valores en esta columna.

Aplicamos la condición a cada celda, para luego salir del bucle (Exit Do) si encuentra un valor igual a ó más alto que 1,50 (VBA utiliza punto en vez de coma para decimales).

Al final devolvemos un Messagebox para presentar el resultado.