Como ordenar datos con una macros en la cual están separados en distintos excel´s

Sr. Dante amor buenas ; a su correo le adjunte los documentos que estoy utilizando y el formato como quiero que quede al final seria de gran ayuda.

1

1 respuesta

Respuesta
1

Envíame un correo nuevo, en el asunto escribe tu nombre de usuario.

Amigo Dante te adjunte un nuevo correo indicando paso a paso como deseo que funcione , Saludos.

Te anexo la macro para unir los archivos

Sub CargarDatos()
'Por.Dante Amor
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    h1.Cells.Clear
    tit = Array("LISTA DE MATERIALES / SPOOLA_PART NUMBER:", _
                "LISTA DE SOLDADURA / SPOOL A", _
                "LISTA DE CORTE / SPOOL A")
    dat = Array("ITEM", "SOL. N° ", "ITEM ")
    col = Array("A", "G", "L")
    fin = Array("E", "D", "F")
    '
    ruta = l1.Path & "\LISTAS\"
    arch = Dir(ruta & "*.xls*")
    Do While arch <> ""
        Set l2 = Workbooks.Open(ruta & arch, ReadOnly:=True)
        Set h2 = l2.Sheets(1)
        j = 1
        For n = LBound(dat) To UBound(dat)
            If h2.Range("A1") = dat(n) Then
                For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row
                    If h2.Cells(i, "A") = dat(n) Then
                        j = j + 1
                        h1.Cells(j, col(n)) = tit(n)
                        j = j + 1
                    End If
                    h2.Range(h2.Cells(i, "A"), h2.Cells(i, fin(n))).Copy h1.Cells(j, col(n))
                    j = j + 1
                Next
                Exit For
            End If
        Next
        l2.Close False
        arch = Dir()
    Loop
    MsgBox "Fin"
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

¡Gracias! ¡Gracias! DANTE me sirvió de mucho 

Aver si me ayudas con la segunda Parte Como ordenarlo 

Saludos y bendiciones.

No cambies la pregunta a anónimo, no puedo darle seguimiento. Finalmente tu nombre de usuario puede se cualquier seudónimo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas