Macro contar según color y texto
Hola Buenas necesito una macro que me permita contar según el color de la celda i el texto de la celda.En la macro el texto a buscar debe ser introducido por un buscar.v
1 respuesta
Respuesta de Dante Amor
Con la siguiente macro cuentas por el color y por el texto de la celda
Sub contar()
'Por.Dante Amor
Set ha = Sheets("Auxiliar1")
Set b = ha.Range("D:D").Find([T8])
If Not b Is Nothing Then
For Each c In Range("L5:Q57")
If c.Interior.Color = RGB(230, 185, 184) And _
c.Value = ha.Cells(b.Row, "E") Then
n = n + 1
End If
Next
[W8] = n
End If
End SubEn esta instrucción se pregunta por el color
If c.Interior.Color = RGB(230, 185, 184)
Y en esta instrucción se pregunta por el texto
c.Value = ha.Cells(b.Row, "E") Then
