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

Share this post


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!

Share this post


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

 

 

Share this post


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!

 

Share this post


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



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png