UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

chema


Hola a todos,

Estoy intentando adaptar la macro que Tyno me hizo para eliminar datos duplicados pero con dos modificaciones. Que los datos (columna 2) de la hoja 1 me los pase a la hoja dos y que sea sobre esta hoja la que me elimine y ordene. La verdad es que no lo consigo y le estoy venga dar vueltas, si alguien me pudiera ayudar se lo agradecería. Dejo aquí el código y la hoja de cálculo.

GRacias.

Private Sub CommandButton1_Click()
    On Error Resume Next
Dim rango As New Collection
Dim celda As Range
Dim dato
Application.ScreenUpdating = False

    Range("B2:B1048576").Select
    Selection.Copy
    Sheets("hoja2").Cells(1, 1).PasteSpecial Paste:=xlValues
    For Each celda In Sheets("hoja2").Range(Cells(1, 1), Sheets("hoja2").Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1))
    If celda <> "" Then rango.Add celda, CStr(celda)
    Next celda
        
    For i = 1 To rango.Count - 1
    For j = i + 1 To rango.Count
    If rango(i) > rango(j) Then
    ref1 = rango(i)
    ref2 = rango(j)
    rango.Add ref1, before:=j
    rango.Add ref2, before:=i
    rango.Remove i + 1
    rango.Remove j + 1
    End If
    Next j
    Next i
        
    x = 1
    For Each dato In rango
    Cells(x, 1) = dato
    x = x + 1
    Next dato
    Sheets("hoja2").Range(Cells(x, 1), Sheets("hoja2").Cells(Cells(x, 1).End(xlDown).Row, 1)) = ""
    Sheets("hoja2").Range("A:A").Sort key1:=[a1], order1:=xlAscending
    Application.ScreenUpdating = False
End Sub
Archivos
Copia de MURFYQ0195.xlsm
No tienes los permisos para descargar los archivos.
(129 KB)

SAKKAR


Chema, cómo estás?

Según lo que entiendo, para lo que vos querés hacer, no es necesario un código ya que Excel tiene como nativa esa función dentro de FILTROS ESPECIALES, la cual, te selecciona sobre un rango, te los copia a otra hoja y te elimina duplicados copiando solo datos únicos....

Luego los ordenás con la función de ordenar o bien con el código....

Fijate si te sirve.

Saludos

3RESUELTO Macro el 11/01/14, 09:50 am

chema


Muchas gracias a todos. Con las pistas y la macro de Tyno ya lo he resuelto.

Gracias.

4RESUELTO Macro el 05/03/14, 02:23 pm

mlabs


Hola, soy nuevo en el foro y me vendria bien usar la macro para eliminar y ordenar alfabeticamente los datos, porque si bien puedo usar los filtros, los tengo que aplicar constantemente, una vez ya haya terminado de cargar los datos. Yo necesito una herramienta para poder ir cargando datos nuevos y que se vayan ordenando y filtrando automaticamente en otra columna, y veo que vos mencionas una macro donde lograste hacerlo. Podes ayudarme?

Gracias!!

railar


Hola mlabs, 

Bienvenido al foro,
Debes crear un nuevo tema y...
Pásate por aquí: Normas para efectuar preguntas y notarás que te hace falta algo referente a tu consulta

Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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