4. Bucles: For Next y Do While

En esta lección aprenderás a:

Repetir código un número exacto de veces con For i = 1 To N … Next i.
Repetir mientras se cumpla una condición con Do While … Loop.
Recorrer cada celda de un rango con For Each … In … Next.
Salir anticipadamente de un bucle con Exit For.

For Next — número fijo de repeticiones

NumerarFilas.bas

VBA

  Sub NumerarFilas() 
      Dim i As Integer 
    
      For i = 1 To 10 
          Cells(i, 1).Value = "Fila " & i 
      Next i 
  End Sub 

Vista tipo Excel: la primera fila muestra las letras de columna; la primera columna muestra los números de fila. En las celdas con fórmula (=...), cada referencia lleva un color distinto. Clic en la referencia: resalta solo esa celda. Clic en el resto de la celda (por ejemplo el = o los operadores): resalta todas las celdas citadas. Repetir el mismo gesto sobre lo ya resaltado lo oculta.

Ejemplos de StepResumen

Si omites Step el incremento por defecto es 1.

	A	B
1	Código	Resultado
2	For i = 10 To 1 Step -1	Cuenta de 10 hasta 1
3	For i = 0 To 100 Step 10	Cuenta 0, 10, 20, … 100
4	For i = 2 To 20 Step 2	Solo números pares: 2, 4, 6…

Do While — repetir mientras una condición sea verdadera

RecorrerHastaVacio.bas

VBA

  Sub RecorrerHastaVacio() 
      Dim fila As Long 
      fila = 2 
    
      Do While Cells(fila, 1).Value <> "" 
          Cells(fila, 3).Value = Cells(fila, 2).Value * 1.19 
          fila = fila + 1 
      Loop 
  End Sub 

For Each — recorrer una colección

ColorearNegativos.bas

VBA

  Sub ColorearNegativos() 
      Dim celda As Range 
    
      For Each celda In Range("B2:B20") 
          If celda.Value < 0 Then 
              celda.Interior.Color = RGB(255, 200, 200) 
          End If 
      Next celda 
  End Sub 

Exit For — salir antes de tiempo

BuscarProducto.bas

VBA

  Sub BuscarProducto() 
      Dim i      As Long 
      Dim buscar As String 
      buscar = "Laptop" 
    
      For i = 2 To 100 
          If Cells(i, 1).Value = buscar Then 
              MsgBox "Encontrado en fila " & i 
              Exit For 
          End If 
      Next i 
  End Sub 

Practica en Excel

Abre Excel (o copia los datos con el botón de la tabla), sigue los pasos y comprueba el resultado en tu hoja.

Crea NumerarFilas() y verifica que A1:A10 queda numerado. Modifica el For para numerar de la fila 5 a la 15.
Escribe datos en A2:A8 y números en B2:B8. Ejecuta RecorrerHastaVacio() y verifica C.
Agrega valores negativos en B2:B20 y ejecuta ColorearNegativos(). Modifica para que positivos queden en verde.
Escribe "Laptop" en alguna fila de la col A y ejecuta BuscarProducto().

Ejercicios de práctica

Ejercicio 1 — Números del 1 al 20

Escribe los números del 1 al 20 en la columna A usando For i = 1 To 20.

Ver solución sugerida

Del1Al20.bas

VBA

  Sub Del1Al20() 
      Dim i As Integer 
      For i = 1 To 20 
          Cells(i, 1).Value = i 
      Next i 
  End Sub 

Ejercicio 2 — Múltiplos de 5

Usa Step 5 para escribir en la columna A los múltiplos de 5 desde 5 hasta 100.

Ver solución sugerida

MultiplosDe5.bas

VBA

  Sub MultiplosDe5() 
      Dim i As Integer 
      Dim fila As Integer 
      fila = 1 
      For i = 5 To 100 Step 5 
          Cells(fila, 1).Value = i 
          fila = fila + 1 
      Next i 
  End Sub 

Ejercicio 3 — Tabla de multiplicar

Escribe la tabla de multiplicar del 7 en la columna A (7×1=7, 7×2=14, … 7×12=84) usando un bucle For.

Ver solución sugerida

TablaDelSiete.bas

VBA

  Sub TablaDelSiete() 
      Dim i As Integer 
      For i = 1 To 12 
          Cells(i, 1).Value = "7 x " & i & " = " & 7 * i 
      Next i 
  End Sub 

Ejercicio 4 — Suma de un rango

Escribe 10 números en B1:B10. Usa For Each para sumarlos en una variable y mostrar el total con MsgBox.

Ver solución sugerida

SumaRango.bas

VBA

  Sub SumaRango() 
      Dim celda As Range 
      Dim suma  As Double 
      suma = 0 
    
      For Each celda In Range("B1:B10") 
          suma = suma + celda.Value 
      Next celda 
    
      MsgBox "Total: " & suma 
  End Sub 

Ejercicio 5 — Cuenta atrás

Usa For i = 10 To 1 Step -1 para escribir "10, 9, 8... 1" en A1:A10 y en A11 escribe "¡Despegue!".

Ver solución sugerida

CuentaAtras.bas

VBA

  Sub CuentaAtras() 
      Dim i As Integer 
      For i = 10 To 1 Step -1 
          Cells(11 - i, 1).Value = i 
      Next i 
      Cells(11, 1).Value = "¡Despegue!" 
  End Sub 

Ejercicio 6 — Contar celdas no vacías ⭐⭐

Escribe datos en algunas celdas de A1:A20 (deja otras vacías). Usa For Each y un contador para contar cuántas tienen contenido. Muestra el resultado con MsgBox.

Ver solución sugerida

ContarNoVacias.bas

VBA

  Sub ContarNoVacias() 
      Dim celda   As Range 
      Dim contador As Integer 
      contador = 0 
    
      For Each celda In Range("A1:A20") 
          If celda.Value <> "" Then 
              contador = contador + 1 
          End If 
      Next celda 
    
      MsgBox "Celdas con contenido: " & contador 
  End Sub 

Ejercicio 7 — Cuadrados ⭐⭐

Escribe números en A1:A10. Usa un bucle For para escribir en la columna B el cuadrado de cada número de la columna A.

Ver solución sugerida

Cuadrados.bas

VBA

  Sub Cuadrados() 
      Dim i As Integer 
      For i = 1 To 10 
          Cells(i, 2).Value = Cells(i, 1).Value ^ 2 
      Next i 
  End Sub 

Ejercicio 8 — Máximo sin función ⭐⭐

Escribe 10 números en B1:B10. Usa For Each para encontrar el valor máximo sin usar la función Max de VBA. Muéstralo con MsgBox.

Ver solución sugerida

MaximoManual.bas

VBA

  Sub MaximoManual() 
      Dim celda  As Range 
      Dim maximo As Double 
      maximo = Cells(1, 2).Value 
    
      For Each celda In Range("B1:B10") 
          If celda.Value > maximo Then 
              maximo = celda.Value 
          End If 
      Next celda 
    
      MsgBox "Máximo: " & maximo 
  End Sub 

Ejercicio 9 — Do While hasta "FIN" ⭐⭐

Escribe nombres en A2:A8 y en A9 escribe "FIN". Usa Do While para leer y mostrar en Debug.Print cada nombre hasta encontrar "FIN".

Ver solución sugerida

LeerHastaFin.bas

VBA

  Sub LeerHastaFin() 
      Dim fila As Long 
      fila = 2 
    
      Do While Cells(fila, 1).Value <> "FIN" 
          Debug.Print Cells(fila, 1).Value 
          fila = fila + 1 
      Loop 
      Debug.Print "Fin de la lista." 
  End Sub 

Ejercicio 10 — Todas las hojas ⭐⭐

Usa For Each hoja In Worksheets para recorrer todas las hojas del libro y mostrar sus nombres en la ventana Inmediata con Debug.Print.

Ver solución sugerida

ListarHojas.bas

VBA

  Sub ListarHojas() 
      Dim hoja As Worksheet 
      For Each hoja In Worksheets 
          Debug.Print hoja.Name 
      Next hoja 
  End Sub 

Ejercicio 11 — Contar valores mayores que 100 ⭐⭐⭐

Escribe 15 números en B1:B15 (mezcla valores menores y mayores que 100). Usa For Each para contar cuántos son mayores que 100 y escribe ese conteo en D1.

Ver solución sugerida

ContarMayores.bas

VBA

  Sub ContarMayores() 
      Dim celda    As Range 
      Dim contador As Integer 
      contador = 0 
    
      For Each celda In Range("B1:B15") 
          If celda.Value > 100 Then 
              contador = contador + 1 
          End If 
      Next celda 
    
      Range("D1").Value = contador 
  End Sub 

Ejercicio 12 — Colorear urgentes ⭐⭐⭐

Escribe textos en A1:A15, algunos de ellos conteniendo la palabra "urgente". Usa For Each e InStr() para colorear en rojo las celdas que contengan esa palabra (sin importar mayúsculas).

Ver solución sugerida

ColorearUrgentes.bas

VBA

  Sub ColorearUrgentes() 
      Dim celda As Range 
      For Each celda In Range("A1:A15") 
          If InStr(LCase(celda.Value), "urgente") > 0 Then 
              celda.Interior.Color = RGB(255, 150, 150) 
          Else 
              celda.Interior.Color = xlNone 
          End If 
      Next celda 
  End Sub 

Ejercicio 13 — Primer negativo con Exit For ⭐⭐⭐

Escribe números en B1:B20 (algunos negativos). Usa For i con Exit For para encontrar la primera celda con valor negativo y mostrar su fila con MsgBox.

Ver solución sugerida

PrimerNegativo.bas

VBA

  Sub PrimerNegativo() 
      Dim i      As Long 
      Dim fila   As Long 
      fila = 0 
    
      For i = 1 To 20 
          If Cells(i, 2).Value < 0 Then 
              fila = i 
              Exit For 
          End If 
      Next i 
    
      If fila > 0 Then 
          MsgBox "Primer negativo en fila: " & fila 
      Else 
          MsgBox "No hay valores negativos." 
      End If 
  End Sub 

Ejercicio 14 — Promedio excluyendo ceros ⭐⭐⭐

Escribe números en C1:C20 (algunos son 0). Usa For Each para calcular el promedio de los valores que NO sean 0. Escribe el resultado en D1.

Ver solución sugerida

PromedioSinCeros.bas

VBA

  Sub PromedioSinCeros() 
      Dim celda    As Range 
      Dim suma     As Double 
      Dim contador As Integer 
      suma = 0 
      contador = 0 
    
      For Each celda In Range("C1:C20") 
          If celda.Value <> 0 Then 
              suma = suma + celda.Value 
              contador = contador + 1 
          End If 
      Next celda 
    
      If contador > 0 Then 
          Range("D1").Value = suma / contador 
      Else 
          Range("D1").Value = "Sin datos" 
      End If 
  End Sub 

Ejercicio 15 — Llenar tablero de multiplicar ⭐⭐⭐

Usa dos bucles For anidados para llenar un tablero de multiplicar del 1 al 10 en el rango A1:J10. Cells(fila, col).Value = fila * col.

Ver solución sugerida

TablaMultiplicar.bas

VBA

  Sub TablaMultiplicar() 
      Dim fila As Integer 
      Dim col  As Integer 
    
      For fila = 1 To 10 
          For col = 1 To 10 
              Cells(fila, col).Value = fila * col 
          Next col 
      Next fila 
  End Sub 

Contenido

📚 Elige un curso

4. Bucles: For Next y Do While

For Next — número fijo de repeticiones

Ejemplos de StepResumen

Do While — repetir mientras una condición sea verdadera

For Each — recorrer una colección

Exit For — salir antes de tiempo

Practica en Excel

Ejercicios de práctica

Ejercicio 1 — Números del 1 al 20

Ejercicio 2 — Múltiplos de 5

Ejercicio 3 — Tabla de multiplicar

Ejercicio 4 — Suma de un rango

Ejercicio 5 — Cuenta atrás

Ejercicio 6 — Contar celdas no vacías ⭐⭐

Ejercicio 7 — Cuadrados ⭐⭐

Ejercicio 8 — Máximo sin función ⭐⭐

Ejercicio 9 — Do While hasta "FIN" ⭐⭐

Ejercicio 10 — Todas las hojas ⭐⭐

Ejercicio 11 — Contar valores mayores que 100 ⭐⭐⭐

Ejercicio 12 — Colorear urgentes ⭐⭐⭐

Ejercicio 13 — Primer negativo con Exit For ⭐⭐⭐

Ejercicio 14 — Promedio excluyendo ceros ⭐⭐⭐

Ejercicio 15 — Llenar tablero de multiplicar ⭐⭐⭐

Pon a prueba tus conocimientos

¡Hecho con mucho cariño! ☕