Marcar automáticamente datos iguales en celdas excel y contar datos iguales por línea

Pregunta dirigida a Dante Amor,

Tras el uso de la macro que me facilitaste: ( la cual copio y pego).

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A:E")) Is Nothing Then
        Range("A3:E50").Interior.ColorIndex = xlNone
        For Each c In Target
            For Each celda In Range("A3:E50")
                Set b = Range("A1:E1").Find(celda.Value, lookat:=xlWhole)
                If Not b Is Nothing Then
                    celda.Interior.ColorIndex = 3
                End If
            Next
            Exit For
        Next
    End If
End Sub

---------------------------------

Usando esta macro me gustaría saber si :

¿Sería posible que en cada fila donde se han señalado coincidencias calculara automáticamente? Por ejemplo: fila 4 tiene 3 numeraciones en rojo ( pues que en una celda salga 3) y así con el resto fila 7 tiene un 5 números en rojo pues en la celda de al lado ponga 5, que el cálculo sea por ejemplo en la columna H.

1 Respuesta

Respuesta
1

Te anexo la macro actualizada.

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Not Intersect(Target, Range("A:E")) Is Nothing Then
        Range("A3:E50").Interior.ColorIndex = xlNone
        Columns("H").ClearContents
        For Each c In Target
            For Each celda In Range("A3:E50")
                Set b = Range("A1:E1").Find(celda.Value, lookat:=xlWhole)
                If Not b Is Nothing Then
                    celda.Interior.ColorIndex = 3
                    Cells(celda.Row, "H") = Cells(celda.Row, "H") + 1
                End If
            Next
            Exit For
        Next
    End If
End Sub

Saludos.Dante Amor

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas