04/03/2011, 09:34
|
| | | Fecha de Ingreso: julio-2007 Ubicación: Guadalajara
Mensajes: 110
Antigüedad: 17 años, 5 meses Puntos: 3 | |
Respuesta: Contar celdas mismo fondo Buen día, hasta donde se por ahora, no se puede con una fórmula, pero si con una macro:
Por ejemplo:
(No se cuantos colores uses, este ejemplo funciona con uno a la vez)
Primero rellena una celda (A1en mi caso) y después obviamente el rango que vas a seleccionar. Lo que sigue es la macro en el editor de VB:
Bien "color" es la variable que va a contener el número de celdas contadas, "total" es la variable donde se aloja la celda a la que haces referencia del color y donde se va a mostrar el total de celdas con ese color.
Sub contarcolor()
Dim color As Integer
Dim total As String
'Anterma, cambia esta direccion de celda a la que tu tengas con el color a contar:
total = "A1"
color = 0
For Each cell In Selection
If ActiveCell.Interior.ColorIndex = ActiveSheet.Range(total).Interior.ColorIndex Then
color = color + 1
End If
ActiveCell.Offset(1, 0).Select
Next cell
ActiveSheet.Range(total).FormulaR1C1 = color
End Sub
Después le asignas una "Tecla de método abreviado" << Ctrl + "la letra que elijas">> para que una vez seleccionado el rango donde vas a contar las celdas la presiones y te muestre el resultado.
De igual forma pues puedes adaptarla mas a lo que pretendas hacer.
Espero te sirva de algo. Saludos |