Estou com esse Código gostaria de saber como posso estar colando o que copiei acima na célula A2 e salvando e fechando a planilha:
Sub Copy_B3_PARA_B2()
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("BD_3.xlsx").Close SaveChanges:=False
Workbooks.Open ("C:SISTEMA PEDIDO V1.0TERMINAL2BD_2.xlsx")
'Como colar na célula A2 desta Planilha;
'Como Slavar e Fechar a Planilha;
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
só não esta salvando a planilha BD_2
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 subTeste algo assim ... não testada!!
Deu Certo muito obrigado pela dica.....