/ / Recorrer toda la columna en Excel VBA

Recorrer toda la columna en Excel VBA

A continuación veremos un programa en Excel VBA ese recorre toda la primera columna y colorea todos los valores que son más bajos que un 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. Aquí utilizamos una variable de tipo Long 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. Agrega el bucle.

For i = 1 To Rows.Count

Next i

Nota: las hojas de trabajo pueden tener hasta 65,536 filas en Excel 2003 y hasta 1,048,576 filas en Excel 2007 o posterior. No importa qué versión esté utilizando, la línea de código de arriba pasa por todas las filas (el archivo de Excel descargable está en formato Excel 97-2003).

4. A continuación, coloreamos todos los valores que son más bajos que el valor ingresado en la celda D2. Las celdas vacías son ignoradas. 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 al hacer clic en el botón de comando en la hoja (esto puede llevar un tiempo):

Bucle a través de toda la columna de resultados

Bucle a través de toda la columna de resultados

Lea también: