Usuários do Excel
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Usuários do Excel

Fórum do Blog usuariosdoexcel.wordpress.com


Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif

Usuários do Excel :: Macros e VBA

Ir para baixo

Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif Empty Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif

Mensagem por alexandrevba Qui Nov 28, 2013 7:03 am

Bom dia!!
Como copiar um mesmo intervalo para guais diferentes.
Código:
Public Sub CopiarMesmoIntervaloDeUmaGuiaParaDuasGuias()
    Dim r As Range
    Set r = Worksheets("Painel Venda").Range("H38:R42")
    Set r2 = Worksheets("Relatorio Contas a Receber").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Set r3 = Worksheets("Relatorio Venda").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    r.Copy
    r2.PasteSpecial xlValues
    r3.PasteSpecial xlValues
End Sub
Att
alexandrevba
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

Usuários do Excel :: Macros e VBA

 
Permissões neste sub-fórum
Não podes responder a tópicos