Hasta ahora, cada técnica ha trabajado con un solo valor a la vez. Los bucles permiten aplicar la misma lógica a muchos valores en una fila — cinco productos, quinientos pedidos, o la cantidad de filas que contenga una tabla — sin necesidad de copiar y pegar el mismo bloque de código una y otra vez.

For...Next

Repite un bloque de código un número fijo y conocido de veces:

Dim i As Long
For i = 1 To 5
    Debug.Print "Row " & i
Next i
 
' Step lets you skip or count backward
For i = 10 To 1 Step -1
    Debug.Print i
Next i

En el primer bucle, i comienza en 1, el código dentro se ejecuta una vez con ese valor, luego i aumenta automáticamente en 1 y todo el bloque se ejecuta de nuevo — repitiendo hasta que i supera 5, momento en el que el bucle simplemente se detiene y la ejecución continúa después de Next. Step cambia el incremento: Step -1 cuenta hacia abajo en lugar del valor predeterminado de uno en uno hacia arriba, y Step 2 contaría de dos en dos. La variable de bucle i no es una sintaxis especial — es simplemente una variable Long ordinaria que VBA actualiza por ti en cada iteración.

For Each

Itera directamente sobre cada elemento de una colección, sin necesidad de saber cuántos elementos hay ni de gestionar un contador manualmente:

Dim cell As Range
For Each cell In ThisWorkbook.Worksheets("Products").Range("B2:B6")
    Debug.Print cell.Value
Next cell

Aquí, cell toma cada celda individual en el rango B2:B6 en orden, y puedes leer lo que contiene usando .Value. Compáralo con For...Next: con For...Next cuentas a través de números y usas ese número para buscar algo; con For Each recorres directamente los elementos, lo que resulta más natural cuando trabajas con rangos de hojas de cálculo.

Do While

Repite mientras una condición siga siendo True — el bucle no sabe de antemano cuántas veces se ejecutará, lo que lo diferencia de For...Next:

Dim stock As Integer
stock = 134
Do While stock > 0
    stock = stock - 30    ' simulate selling in batches of 30
Loop
Debug.Print stock   ' whatever's left after the loop stops

VBA comprueba stock > 0 antes de cada pasada por el bucle, incluida la primera. Haz el seguimiento manualmente: 134 → 104 → 74 → 44 → 14, y luego la condición se verifica de nuevo — 14 sigue siendo mayor que 0, así que el bucle se ejecuta una vez más, llegando a -16. Solo entonces stock > 0 finalmente resulta Falso, y el bucle se detiene con stock en -16, no exactamente en 0 o 14. Esto merece ser analizado con cuidado la primera vez, porque es una fuente común de errores de un paso: un bucle Do While sigue ejecutándose mientras la condición sea verdadera en el momento en que se verifica, incluso si la acción dentro del bucle sobrepasa el límite que tenías en mente.

Do Until

También existe Do Until, que es la imagen inversa de Do While — repite mientras una condición sea False y se detiene en el momento en que esa condición se vuelve True, en lugar de al revés. Cuál resulta más natural depende de cómo expresarías la regla de negocio en voz alta: "seguir mientras quede stock" sugiere Do While; "seguir hasta que se acabe el stock" sugiere Do Until — pueden producir el mismo comportamiento, solo que expresados desde direcciones opuestas.

Sentencias Exit

Permiten salir de un bucle antes de que se alcance su condición final natural:

For i = 1 To 100
    If i = 10 Then Exit For   ' stop the loop immediately
    Debug.Print i
Next i

Este bucle está configurado para contar hasta 100, pero en el momento en que i llega a 10, Exit For lo detiene de inmediato — nada después de Exit For se ejecuta, y la ejecución salta directamente a la línea después de Next i. Este es el patrón que usarías para buscar en una lista y detenerte tan pronto como encuentres lo que buscas, en lugar de seguir comprobando innecesariamente cada elemento restante.

Integrando todo

Cada técnica de este capítulo — variables, operadores, funciones, lógica condicional y ahora bucles — se combina en el procedimiento hacia el que ha ido construyendo este capítulo:

Option Explicit
 
Sub CheckStockLevels()
 
    ' Sample data standing in for the Products table
    Dim products(1 To 5) As String
    Dim stockLevels(1 To 5) As Integer
    Dim reorderLevels(1 To 5) As Integer
    Dim i As Long
    Dim alertMessage As String
 
    products(1) = "Laptop Stand": stockLevels(1) = 58: reorderLevels(1) = 20
    products(2) = "Wireless Mouse": stockLevels(2) = 134: reorderLevels(2) = 30
    products(3) = "USB-C Hub": stockLevels(3) = 44: reorderLevels(3) = 15
    products(4) = "Monitor Arm": stockLevels(4) = 18: reorderLevels(4) = 10
    products(5) = "Keyboard": stockLevels(5) = 61: reorderLevels(5) = 20
 
    alertMessage = ""
 
    For i = 1 To 5
        Select Case stockLevels(i)
            Case Is <= reorderLevels(i)
                alertMessage = alertMessage & products(i) & _
                    " — REORDER NOW" & vbNewLine
            Case Is <= reorderLevels(i) + 10
                alertMessage = alertMessage & products(i) & _
                    " — watch closely" & vbNewLine
        End Select
    Next i
 
    If alertMessage = "" Then
        MsgBox "All products are adequately stocked."
    Else
        MsgBox "Stock Alerts:" & vbNewLine & alertMessage
    End If
End Sub

Ejecuta esto y deberías ver que el Monitor Arm está marcado como "observar de cerca" (18 unidades frente a un nivel de reposición de 10); sigue el bucle manualmente para i = 4 si quieres confirmar exactamente por qué es el único detectado por el segundo Case y no por el primero. Este procedimiento utiliza arreglos, un bucle, un Select Case y construcción de cadenas, todo funcionando en conjunto. Esto ya se acerca genuinamente a una lógica de calidad de producción, solo que se ejecuta con datos de ejemplo escritos directamente en el código en lugar de en una hoja de cálculo real.

Tarea

1. Copia CheckStockLevels en tu libro de trabajo y ejecútalo. Confirma que el mensaje coincide con la captura de pantalla.
2. Cambia el stock del Wireless Mouse a 25 y vuelve a ejecutar: ahora también debería aparecer como "observar de cerca".
3. Agrega un bucle Do While debajo que simule la venta de 15 unidades de Laptop Stand a la vez hasta que el stock baje a 20 o menos, imprimiendo el total acumulado en la ventana Inmediato después de cada venta.
4. Desafío: reescribe el bucle For i = 1 To 5 usando For Each sobre un arreglo Variant en su lugar — ¿la lógica sigue funcionando?