MACROS EN AUTOFILTROS

hola HM

Ya encontre el error es una bobada creo yo!!!
Yo utilizo como navegador el Firefox y ese pone en los espacios pone el
simbolo &quot te pongo la comparacion..

Eliminar_Repetidos()
Dim Eliminar As Range, Col As String, _
F1 As Long, Fx As Long, Fila As Long
Application.ScreenUpdating = False
Col = "a"
F1 = 2
Fx = Range(Col & "65536").End(xlUp).Row
For Fila = F1 To Fx
If Application.CountIf( _
Range(Col & F1 & ":" & Col & Fila), _
Range(Col & Fila)) > 1 Then
If Eliminar Is Nothing _
Then Set Eliminar = Range(Col & Fila)
Set Eliminar = Union(Eliminar, Range(Col & Fila))
End If
Next
If Not Eliminar Is Nothing _
Then Eliminar.EntireRow.Delete: _
Set Eliminar = Nothing
End Sub

este es el de firefox:
Sub Eliminar_Repetidos()
Dim Eliminar As Range, Col As String, _
F1 As Long, Fx As Long, Fila As Long
Application.ScreenUpdating = False
Col = "a"
F1 = 2
Fx = Range(Col & "65536").End(xlUp).Row
For Fila = F1 To Fx
If Application.CountIf( _
Range(Col & F1 & ":" & Col & Fila), _
Range(Col & Fila)) > 1 Then
If Eliminar Is Nothing _
Then Set Eliminar = Range(Col & Fila)
Set Eliminar = Union(Eliminar, Range(Col & Fila))
End If
Next
If Not Eliminar Is Nothing _
Then Eliminar.EntireRow.Delete: _
Set Eliminar = Nothing
End Sub

El codigo Funciona Pero deja una linea, borra todas menos una la primera.

Gracias

hola, Danilo !

Mostrar la cita

... encontre el error es... el Firefox... pone en los espacios pone el simbolo &quot [...]
El codigo Funciona Pero deja una linea, borra todas menos una la primera.

no me ha quedado claro si el que deje la primera es... bueno ?... malo ?... ???
comentas?
saludos,
hector.

HOLA HM

Mostrar la cita

no me ha quedado claro si el que deje la primera es... bueno ?... malo ?... ???

El registro que queda es malo por ejemplo:

entidad cedula valor
7 11111 53
7 22222 53
3 11111 80
5 444444 20
3 666666 30

se seben borrar todos los registros de las entidades numero 7 y 3 que solo
me queden los de la 5, y asi por el estilo son los filtros que aplico hasta
que me quede lo que necesito, esto lo paso a Acces para cruzarlo con otro
archivo y hay es donde se me produce la duplicidad de datos.

Gracias
Danilo A.

hola, Danilo !

Mostrar la cita

... por ejemplo:
entidad cedula valor
7 11111 53
7 22222 53
3 11111 80
5 444444 20
3 666666 30
... borrar todos los registros de las entidades numero 7 y 3 que solo me queden los de la 5 [...]

si la intencion es eliminar ->cualquiera que tenga 'repeticiones'<- [y NO dejar 'solamente uno' de los que esten repetidos]
solo cambia en el codigo ... de -> la variable 'Fila' ... a -> la variable 'Fx' en la segunda linea del 'Application.CountIf(...' +/-
de ->
If Application.CountIf( _
Range(Col & F1 & ":" & Col & Fila), _
Range(Col & Fila)) > 1 Then
a ->
If Application.CountIf( _
Range(Col & F1 & ":" & Col & Fx), _
Range(Col & Fila)) > 1 Then

comentas?
saludos,
hector.

Hola Danilo,

?Ya has probado reemplazar '&quot;' por comillas dobles en mi codigo?

Saludos,
KL


"DANILO ARANGO" wrote in message
news:
Mostrar la cita

HOLA KL

Si aplique el filtro avanzado, la opcion solo registros unicos, el
problema
es que en realidad si se presentan registros duplicados, ejm: hay dos
registros iguales, pero el cruce en Acces me lo duplica hasta 4 o 6 veces
entoces en esta caso hay que borrar los 2 o 4 restantes y dejar los 2 que
realmente son.

KL el codigo que me diste tambien saca el mismo error al del codigo que me
dio HM.
Que podra estar pasando
Te mando una imagen al correo de lo que esta pasando.

Muchas Gracias.
Danilo A.