A continuación, veremos un programa en Excel VBA que recorre toda la primera columna y colorea todos los valores que son inferiores a cierto valor.

Recorrer toda la columna en Excel VBA
Recorrer toda la columna en Excel VBA

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

1. Primero, declare una variable llamada i de tipo Long. Usamos una variable de tipo Long aquí porque las variables Long tienen mayor capacidad que las variables Integer.

Dim i As Long

2. A continuación, agregue la línea de código que cambia el color de fuente de todas las celdas de la columna A a negro.

Columns(1).Font.Color = vbBlack

3. Agregue el bucle.

For i = 1 To Rows.Count

Next i

Nota: las hojas de trabajo pueden tener hasta 1.048.576 filas en Excel 2007 o posterior. Independientemente de la versión que esté utilizando, la línea de código de arriba recorre todas las filas.

4. A continuación, coloreamos todos los valores que son inferiores al valor ingresado en la celda D2. Las celdas vacías se ignoran. Agregue las siguientes líneas de código al bucle.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Resultado cuando hace clic en el botón de comando en la hoja (esto puede llevar un tiempo):

Recorrer el resultado de toda la columna
Recorrer el resultado de toda la columna

3/11 Completado! Obtenga más información sobre los bucles>
Capítulo siguiente: Errores de macro