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
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 SubSaludos.Dante Amor
