Notifications
Clear all

COLAR E SALVAR

4 Posts
2 Usuários
0 Reactions
1,029 Visualizações
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

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;

 
Postado : 30/06/2014 6:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
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
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 

só não esta salvando a planilha BD_2

 
Postado : 30/06/2014 9:13 am
(@wenpra)
Posts: 76
Trusted Member
Topic starter
 
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!!

Deu Certo muito obrigado pela dica.....

 
Postado : 30/06/2014 9:30 am