............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro Eliminar Duplicados usando countifs Excel 2007

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro Eliminar Duplicados usando countifs Excel 2007

Mensaje por dianaka el Miér Oct 14, 2015 6:38 pm

Saludos

Tengo un problema con una macro que uso para eliminar duplicados pero comparando dos columnas usando el Countifs(), cuando uso la macro para marcar los duplicados de color funciona correcto (marca todos los duplicados), pero necesito que elimine los duplicados y me deje los valores unios.

Está es la macro que estoy usando actualmente:

Sub Eliminar_repetidos()
i = 10
Range("E" & i).Select
Do While Not IsEmpty(Sheets("DATOS").Range("E" & i))
x = WorksheetFunction.CountIfs(Sheets("DATOS").Range("$E$10:$E$8000"), Sheets("DATOS").Range("E" & i), Sheets("DATOS").Range("$D$10:$D$8000"), Sheets("DATOS").Range("D" & i))
If x > 1 Then
' Sheets("DATOS").Range("E" & i).Select
' Sheets("DATOS").Range("E" & i).EntireRow.Delete
Range("E" & i).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
Range("E" & i).Select
End If
i = i + 1
Loop
End Sub

Ojala alguien me pueda ayudar con este problema.

dianaka

Femenino Cantidad de envíos : 1
Edad : 37
Ciudad - Pais : quito
Version de Excel : 2007
Fecha de inscripción : 26/10/2010

Volver arriba Ir abajo

Re: Macro Eliminar Duplicados usando countifs Excel 2007

Mensaje por rolano el Vie Oct 23, 2015 4:21 pm

Puedes subir un archivo de ejemplo.

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.