Identificar celdas

No veo otra forma de hacerlo que usando VBA.
Supongo que con "fichero" quieres decir hoja ¿?. Si es esto, el código podría ser:

Sub SeleccionarPorColorFuente()
'Se seleccionarán todas las celdas de la hoja activa cuya fuente tenga un color distinto al de la celda activa en el momento de ejecutar el código
Dim rngC As Range
Dim strC As String

For Each rngC In ActiveSheet.UsedRange
If rngC.Font.ColorIndex <> ActiveCell.Font.ColorIndex Then strC = strC & rngC.Address & ","
Next rngC

If Len(strC) <> 0 Then strC = Left(strC, Len(strC) - 1)

ActiveSheet.Range(strC).Select
Set rngC = Nothing
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel



"Jorge" escribió en el mensaje news:

Hola a todos!

¿cómo podría seleccionar sólo las celdas de un fichero que tienen un color de fuente diferente al resto?

Muchas gracias y un saludo,
Jorge