/ / Excel VBA Do Until Loop

Excel VBA Do Until Loop

Aunque no se utiliza con mucha frecuencia en este sitio, es posible que se encuentre en una situación en la que desee utilizar el Hacer Hasta Loop en Excel VBA. El código colocado entre Do Until y Loop se repetirá hasta que la parte posterior a Do Until sea verdadera.

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

Dim i As Integer
i = 1

Do Until i > 6
    Cells(i, 1).Value = 20
    i = i + 1
Loop

Resultado al hacer clic en el botón de comando en la hoja:

Excel VBA Do Until Loop

Explicación: hasta que i sea mayor que 6, Excel VBA coloca el valor 20 en la celda en la intersección de la fila i y la columna 1 e incrementa i en 1. Como resultado, el valor 20 se colocará en la columna A seis veces (no siete porque Excel VBA se detiene cuando i es igual a 7).

Lea también: