Buscar y copiar en un varios archivos de excel y pegarlos a un solo archivo dante amor
Paso 6 se abre el archivo BD producción de este archivo solo se seleccionara la columna que diga observaciones y se copiaran al archivo de Reunión Operativa Pedido a Pedio en la columna que diga Acción producción aquí para identificar a que comentario es por el numero de pedido y por item
1 Respuesta
Respuesta de Dante Amor
1
Esta es la macro para el paso 6
'Abrir "PRODUCCIÓN"
Set l2 = Workbooks.Open(ruta & "\" & "DB Produccion", ReadOnly:=True)
Set h2 = l2.Sheets("SEPTIEMBRE")
For i = 3 To h2.Range("C" & 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, "W") = h2.Cells(i, "P")
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
