RE:contar celdas segun su color
Publicado por
Isabelflr (1 intervención) el 22/11/2004 12:15:08
Yo también estoy buscando el modo de contar colores,por ahora lo que he conseguido es encontarr las celdas que contienen dichos colores:
En visual basic escribir en modulos la siguiente función:
Function CellFormat(cell)
Application.Volatile
CellFormat = cell.Interior.Color
End Function
Volver a excel y utilizar la formula que se encuentra en las definidas por el usuario: cellformat, de este modo cuando colorees una celda (por ejemplo la A1) en otra casilla escribe: =cellformat(A1) de este modo te saldrá un numero,por ejemplo el 65535 (si hubiesemos pintado de amarillo)
Abre otro modulo en visual y escribe:
Sub Mostrarcolor()
For Each celda In Range(\"d13:k20\")
If celda.Interior.Color = 65535 Then
MsgBox \"Celda encontrada\" & celda.Address
End If
Next
End Sub
He puesto el rango d13:k20, cambiadlo por el rango en donde tengais vosotros los colores, de este modo,os irá diciendo una a una las celdas que contienen ese color