Contar celdas que tiene un color con un macro
Como puedo contar a traves de un macro las celdas de una planilla que tienen elmismo color como por ejemplo "interior.clorindex=3
1 respuesta
Respuesta de Elsa Matilde
1
La siguiente rutina hace lo que necesitas. Deberás ajustar los datos a los tuyos.
Si esto responde a tu inquietud no olvides finalizar la consulta.
Saludos
Elsa
Sub colores()
Dim cell As Range
'defino el rango donde evaluar
Set rango = Range("A1:H50")
For Each cell In rango
'el nro 3 es el color rojo
If cell.Interior.ColorIndex = 3 Then
conta = conta + 1
End If
Next cell
'mostrar el resultado en B20
Range("B20") = conta
End Sub
Si esto responde a tu inquietud no olvides finalizar la consulta.
Saludos
Elsa
Sub colores()
Dim cell As Range
'defino el rango donde evaluar
Set rango = Range("A1:H50")
For Each cell In rango
'el nro 3 es el color rojo
If cell.Interior.ColorIndex = 3 Then
conta = conta + 1
End If
Next cell
'mostrar el resultado en B20
Range("B20") = conta
End Sub
