Macro para Contar celdas de color
Se que la respuesta es sencilla pero con lo poco que se de VBA no logro entender algunos ejemplos de contar celdas según un color de celda, que es lo único que consigo en los buscadores.
Bien, lo que tengo es un archivo con filas que tienen números y filas amarillas vacías. Lo que quiero es contar cuantas filas totales tiene el archivo incluyendo filas amarillas y filas con números. Puede ser posicionándose en la columna A y determinar cuantas filas de esa columna A hay amarillas y cuantas hay con números (nunca una celda amarilla tiene número)
Agradecería con gusto una macro que me de ese número total en una variable.
2 Respuestas
H o l a:
Te anexo la macro, en las variables ccol y cnum tienes los contadores de color y número:
Sub ContarColor() 'Por.Dante Amor u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = 1 To u If Cells(i, "A").Interior.ColorIndex = 6 Then ccol = ccol + 1 Else If IsNumeric(Cells(i, "A")) Then cnum = cnum + 1 End If End If Next MsgBox "Filas de amarillo: " & ccol & vbCr & vbCr & _ "Filas con número: " & cnum, vbInformation, "CONTADOR" End Sub
‘ : )
‘Saludos. Dante Amor. Recuerda valorar la respuesta.
