Jump to content
Milton Cordova

ANSWERED EXTRAER DATOS UNICOS

Recommended Posts

saludos favor me pueden ayudar con esta macro que adjunto la cual me esta dando error en lo siguiente

Tengo un rango den la columna H con datos repetidos y con celdas en blanco, la macro me extrae los datos unicos y me pone en la columna N, pero hay un dato que se repite que es del 2200

Sub MAC()
Dim L As Range
With Range([H5], [H65536].End(xlUp))
.Offset(, 1).Cells(1).Clear
.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Offset(, 6), Unique:=True
Set L = .Offset(, 6).Find(What:="", LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlNext)
If Not L Is Nothing Then L.Delete xlShiftUp
Set L = Nothing
End With
End Sub


Gracias por su ayuda

EXTRACCION Y PEGADO DE VALORES UNICOS.xls

Link to post
Share on other sites

Hola a ambos

Una opción mas, especialmente para eliminar la celda en blanco

Sub Unicos()

Range("H4") = "H": vuf = Range("H" & Rows.Count).End(xlUp).Row
Range("H4:H" & vuf).AdvancedFilter 2, , Range("N4"), 1
Range("N4:N" & vuf).SpecialCells(4).Delete xlShiftUp
Range("H4,N4").ClearContents

End Sub

 

Saludos!

Link to post
Share on other sites

Saludos cordiales me olvide de indicar que esta macro debe trabajar en excel 2003 y al correr me sale se ha producido un error "438" en tiempo de ejecucion. El objeto no admite esta propiedad o método.

error en

miRango.RemoveDuplicates Columns:=1

gracias y disculpas por la consulta

 

 

Link to post
Share on other sites

Y esto?

Hace 23 horas, Gerson Pineda dijo:

Hola a ambos

Una opción mas, especialmente para eliminar la celda en blanco


Sub Unicos()

Range("H4") = "H": vuf = Range("H" & Rows.Count).End(xlUp).Row
Range("H4:H" & vuf).AdvancedFilter 2, , Range("N4"), 1
Range("N4:N" & vuf).SpecialCells(4).Delete xlShiftUp
Range("H4,N4").ClearContents

End Sub

 

Saludos!

 

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy