Caros,
Alguém tem um comando VBA para colar dados (especial valores) de um arquivo Excel para outro?
Abs.
Marco.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Comando VBA para colar especial (valores) de outro RESOLVIDO
-
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm
Comando VBA para colar especial (valores) de outro RESOLVIDO
Editado pela última vez por Marco_Bertolani em Qua Out 15, 2014 8:41 am, em um total de 1 vez.
Re: Comando VBA para colar especial (valores) de outro arqui
Boa noite,
Veja se este exemplo te ajuda:
Abraço
Veja se este exemplo te ajuda:
Código: Selecionar todos
Sub ColarEspecial()
Dim WsOrigem As Worksheet
Dim WsDestino As Worksheet
'Abre o arquivo de destino
Workbooks.Open "C:\TEMP\Teste2.xlsx"
'Define Plan1 como planilha de destino
Set WsDestino = Sheets("Plan1")
'Abre o arquivo de origem
Workbooks.Open "C:\TEMP\Teste1.xlsx"
'Define Plan1 como planilha de origem
Set WsOrigem = Sheets("Plan1")
'Copia os dados da origem
WsOrigem.Range("A1:A10").Copy
'Cola especial os dados no destino
WsDestino.[A1].PasteSpecial xlPasteValues
'Desabilita as mensagens de alerta
Application.DisplayAlerts = False
'Fecha os arquivos
Workbooks("Teste1.xlsx").Close False
Workbooks("Teste2.xlsx").Close True
'Habilita as mensagens de alerta
Application.DisplayAlerts = True
End Sub
-
- Colaborador
- Mensagens: 49
- Registrado em: Ter Nov 13, 2012 6:44 pm