Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Comando VBA para colar especial (valores) de outro RESOLVIDO

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Marco_Bertolani
Colaborador
Colaborador
Mensagens: 49
Registrado em: Ter Nov 13, 2012 6:44 pm

Comando VBA para colar especial (valores) de outro RESOLVIDO

Mensagem por Marco_Bertolani »

Caros,

Alguém tem um comando VBA para colar dados (especial valores) de um arquivo Excel para outro?

Abs.

Marco.
Editado pela última vez por Marco_Bertolani em Qua Out 15, 2014 8:41 am, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


JValq
Manda bem
Manda bem
Mensagens: 101
Registrado em: Qua Abr 27, 2011 7:34 pm
Localização: São Paulo/SP

Re: Comando VBA para colar especial (valores) de outro arqui

Mensagem por JValq »

Boa noite,

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
Abraço


Marco_Bertolani
Colaborador
Colaborador
Mensagens: 49
Registrado em: Ter Nov 13, 2012 6:44 pm

Re: Comando VBA para colar especial (valores) de outro arqui

Mensagem por Marco_Bertolani »

Muito Obrigado!!!!!!!!!!!!


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder