Vanita preguntó si hay alguna forma de seleccionar celdas que contengan un color específico. Realizar la tarea es fácil si usa Excel 2003. Simplemente siga estos pasos:

  1. Presione Ctrl + F para mostrar la pestaña Buscar del cuadro de diálogo Buscar y reemplazar. (Ver figura 1)

  2. Asegúrese de que no haya nada en el cuadro Buscar.

  3. Haz clic en Formato. (Es posible que deba hacer clic en Opciones para ver el botón Formato). Excel muestra el cuadro de diálogo Buscar formato.

  4. Asegúrese de que se muestre la pestaña Patrones. (Ver figura 2)

  5. De los colores disponibles, elija el color que desea encontrar.

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

  7. Haga clic en Buscar todo. El cuadro de diálogo Buscar y reemplazar se expande para mostrar las direcciones de todas las celdas formateadas con el color que especificó en el paso 5. (Ver Figura 3.)

  8. Haga clic en una de las direcciones de celda en la parte inferior del cuadro de diálogo. Excel selecciona la celda dentro de la hoja de trabajo real.

  9. Presione Ctrl + A. Se seleccionan todas las direcciones dentro del cuadro de diálogo.

  10. Haga clic en Cerrar. Se seleccionan todas las celdas del color deseado.

Si utiliza Excel 97, Excel 2000 o Excel 2002, la única forma de seleccionar celdas de un color en particular es utilizar una macro. Considere la macro que se muestra aquí:

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

Para usar la macro, seleccione un rango de celdas antes de ejecutarla. Luego, la macro recorre cada celda seleccionada y compara su color con el color que especifique en lColor. Si se encuentra una coincidencia, la celda se agrega a un conjunto de selección. Cuando se completa, la macro selecciona solo las celdas coincidentes y luego sale.

Si desea conocer otras soluciones basadas en macros, puede consultar el siguiente artículo en Microsoft Knowledge Base:

http://support.microsoft.com/kb/142122

_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 (2396) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

link: / excelribbon-Finding_Cells_Filled_with_a_Particular_Color [Encontrar celdas llenas de un color particular].