Cindy tiene una hoja de trabajo completamente formateada que usa color en muchas celdas.

Algunas de las celdas contienen valores; muchos no. Necesita una forma de contar las celdas de colores que están vacías y se pregunta si existe una forma rápida de hacerlo.

Hay varias formas de obtener la información que necesita. Una forma es seguir estos pasos:

  1. Averigua qué color es el que quieres usar en tu conteo.

  2. Presione F5. Excel muestra el cuadro de diálogo Ir a.

  3. Haga clic en el botón Especial. Excel muestra el cuadro de diálogo Ir a especial.

(Ver figura 1)

  1. Seleccione el botón de radio Blanks.

  2. Haga clic en Aceptar. Ahora se seleccionan todas las celdas en blanco de la hoja de trabajo.

  3. Presione Ctrl + F. Excel muestra la pestaña Buscar del cuadro de diálogo Buscar y reemplazar.

  4. Haga clic en el botón Opciones para expandir el cuadro de diálogo. (Ver figura 2)

  5. Haga clic en el botón Formato. Excel muestra el cuadro de diálogo Buscar formato.

  6. Asegúrese de que se muestre la pestaña Relleno. (Vea la figura 3.)

  7. Haga clic en el color que desea buscar. (Este es el color que determinó en el paso 1.)

  8. Haga clic en Aceptar para cerrar el cuadro de diálogo Buscar formato.

  9. Haga clic en Buscar todo.

Cuando realiza estos pasos, Excel muestra, en la parte inferior del cuadro de diálogo Buscar y reemplazar, cuántas celdas encontró que coinciden con su color. Dado que comenzó la búsqueda con solo celdas en blanco seleccionadas, el recuento resultante son todas las celdas que están en blanco y que están rellenas con el color.

Por supuesto, si necesita determinar este recuento varias veces, estos pasos pueden volverse muy tediosos muy rápidamente. En tales casos, es mejor utilizar una macro. La siguiente macro recorre cada celda en blanco en cualquier rango que haya seleccionado y comprueba si contiene un patrón o un color y está vacío. Si se cumplen las condiciones, se incrementa un contador para ese color.

Sub CountBlankColors1()

Dim c As Range     Dim J As Integer     Dim ColorCount(56) As Long

ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         With c.Interior             If .Pattern <> xlNone Then                 If .ColorIndex <> xlNone Then                     If IsEmpty(c) Then                         ColorCount(.ColorIndex) = _                           ColorCount(.ColorIndex) + 1                     End If                 End If             End If         End With     Next c

sTemp = "These are the color counts" & vbCrLf & vbCrLf     For J = 0 To 56         If ColorCount(J) > 0 Then             sTemp = sTemp & "Color " & J & ": " & ColorCount(J) & vbCrLf         End If     Next J

MsgBox sTemp End Sub

Por supuesto, es posible que no desee contar los diferentes colores individualmente.

En cambio, es posible que desee saber simplemente cuántas celdas en blanco están llenas de cualquier color, en conjunto. En ese caso, la macro se vuelve mucho más simple.

Sub CountBlankColors2()

Dim c As Range     Dim x As Long

x = 0     ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         If c.Interior.Pattern <> xlNone Then             If c.Interior.ColorIndex <> xlNone Then                 If IsEmpty(c) Then x = x + 1             End If         End If     Next c     MsgBox "Number of colored blank cells: " & x End Sub

Cabe señalar que estos enfoques no tienen en cuenta si la celda está coloreada mediante el uso de un formato condicional o no.

(De hecho, no tienen en cuenta los formatos condicionales en absoluto.)

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12581) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365.