Una macros para colorear al mismo tiempo los datos repetidos

Necesito q la macros coloree los datos repetitivos y a su vez guarde en un contador cuantos datos repetitivos hay en la columna c

Ejemplo

A B C

Fila 5 126

Fila 15 802

Fila 30 487

Fila 80 487

Fila 120 126

Fila 135 802

Fila 136 12356

Lo puese asi para diferenciarlos pero esto se colorean de color amarillo = 6

Este problema se me presento como en la ultima fila llena de la columna c no tiene datos repetivos termina el bucle con el contarsi=1

Espero me puedan ayudar con esta macro ya q quiero agregarle un msgbox en este caso hay 6 datos repetitivos.. Al final..

Sub COLOREAR_DUPLI()
Application.ScreenUpdating = False
Range("D65000").End(xlUp).Offset(1, 0).Value = "final"
Range("D1").Select
Do While ActiveCell.Value <> "final"
contarsi = Application.WorksheetFunction.CountIf(Columns(4), ActiveCell)
If contarsi > 1 Then
ActiveCell.EntireRow.Interior.ColorIndex = 6
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell. ClearContents

gracias de antemano.. Edinson

1 Respuesta

Respuesta
3

Te anexo una macro, es diferente a tu macro, pero funciona para lo que necesitas.

Sub contarduplicados()
'cuenta duplicados y los pone de amarillo
'Por.Dam
Range("C5:C" & Range("C" & Rows.Count).End(xlUp).Row).Interior.ColorIndex = xlNone
For i = 5 To Range("C" & Rows.Count).End(xlUp).Row
    ant = Cells(i, 3)
    For j = i + 1 To Range("C" & Rows.Count).End(xlUp).Row
        nvo = Cells(j, 3)
        If ant = nvo Then
            If Cells(j, 3).Interior.ColorIndex <> 6 Then
                Cells(j, 3).Interior.ColorIndex = 6
                Cells(i, 3).Interior.ColorIndex = 6
            End If
        End If
    Next
Next
For i = 5 To Range("C" & Rows.Count).End(xlUp).Row
    If Cells(i, 3).Interior.ColorIndex = 6 Then cont = cont + 1
Next
MsgBox "Números Duplicados" & vbNewLine & vbNewLine & cont, vbInformation, "Módulo de Duplicados"
End Sub

Saludos.Dam
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

Macro para encontrar valores duplicados en una misma columna

Necesito una macro que me permita detectar valores duplicados en una misma columna de muchas filas. Ejemplo: Fila 1: Coca Cola Fila 2: Avon Fila 3: Coca Cola (Estados Unidos) Fila 4: Lenovo Fila 5: Coca Cola (Uruguay) Necesitaría que me resalte en...
1 respuesta

Macro listar valores únicos y sumar

Necesito una macro para listar valores únicos de una lista y sumar los valores asociados a esos datos únicos. En la columna A está una lista de nombres, en la columna B están los saldos correspondientes a esos nombres. Lo que necesito es que mediante...
1 respuesta

Macro para colorear rango según un valor

Necesito un función que me colore el rango (B5:F5) si A5=2 y asi sucesivamente hacia abajo... Osea que busque en la columna A todos los numero 2 y me colore los rangos respectivos. Espero puedan ayudarme...
1 respuesta

Macro que me busque un valor y lo copie a otra hoja

Requiero de su sabiduría Necesito crear una macro que evalué si una celda (HOJA 1, Celda U3) cumple una condición. Si la condición se cumple (="Eisai613"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B3) y lo pegue en...
2 respuestas

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

Macro para copiar filas con condición en otras hojas

Tengo una macro que colorea las filas dependiendo de una condición para que luego otra macro las pase a otras hojas con el mismo nombre de la condición dependiendo del color que tengan, las macros son estas: Sub ColorearFilas() Dim n As Integer Dim...
1 respuesta

Extraer datos repetidos de una hoja a otra

Tengo una llamada "datos" con varios registros que son agrupados de acuerdo aun identificador de una columna llamada código, por ejemplo: Código nombre prod valor C001 nomA sofá 500 C001 momA sillón 600 C002 nomB regla 100 C002 nomB lápiz 50 Los...
1 respuesta

Tengo este código en Visual basic para Excel, y no me funciona.

El código es el siguiente: Private Sub Worksheet_Change(ByVal Target As Range) 'Por.jom uf = Range("H" & Rows.Count).End(xlUp).Row If Target.Count > 1 Then Exit Sub If Not IsNumeric(Target) Then Exit Sub If Target = "" Then Target.Interior.ColorIndex...
1 respuesta