Macro para copiar varios archivos a uno solo para dante amor

Paso 4 se abre el archivo BD de logistica y  Facturacion de este archivo solo se  seleccionara la columna que diga observaciones  y se copiaran al archivo de  Reunion Operativa Pedido a Pedio  en la columna que diga Acción Administración & Finanzas  aqui para identificar a que comentario  es por el numero de pedido y por item  aqui 

Paso 5 se abre el archivo BD de calidad  de este archivo solo se  seleccionara la columna que diga observaciones  y se copiaran al archivo de  Reunion Operativa Pedido a Pedio  en la columna que diga Accion de Produccion aqui para identificar a que comentario  es por el numero de pedido y por item  aqui   

Paso 6 se abre el archivo BD produccion de este archivo solo se  seleccionara la columna que diga observaciones  y se copiaran al archivo de  Reunion Operativa Pedido a Pedio  en la columna que diga Acción Compras y logistica aqui para identificar a que comentario  es por el numero de pedido y por item  aqui 

1

1 Respuesta

4.318.850 pts. Sancho, si los perros ladran ...

Esta es la macro para el paso 4

 'Abrir "BD LOGISTICA Y FACTURACION"
    Set l2 = Workbooks.Open(ruta & "\" & "BD LOGISTICA Y FACTURACION")
    Set h2 = l2.Sheets("ADMON Y LOGISTICA")
    For i = 3 To h2.Range("A" & Rows.Count).End(xlUp).Row
        Set r = h1.Columns("A")
        Set b = r.Find(h2.Cells(i, "A"), lookat:=xlWhole)
        If Not b Is Nothing Then
            ncell = b.Address
            Do
                If Val(h1.Cells(b.Row, "B")) = Val(h2.Cells(i, "B")) Then
                    h1.Cells(b.Row, "AF") = h2.Cells(i, "U")
                    Exit Do
                End If
                Set b = r.FindNext(b)
            Loop While Not b Is Nothing And b.Address <> ncell
        End If
    Next
    l2.Close False

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas