Sub Copy_B3_PARA_B2()
Application.ScreenUpdating = False
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL2BD_3.xlsx")
Dim Ult_lin As Long
Sheets("Clientes").Select
Ult_lin = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:O" & Ult_lin).Copy
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL2BD_2.xlsx")
Windows("BD_2.xlsx").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("BD_3.xlsx").Close SaveChanges:=False
Workbooks("BD_2.xlsx").Close SaveChanges:=True
Application.ScreenUpdating = True
end sub
Teste algo assim ... não testada!!
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/06/2014 9:03 am