Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif

Ir em baixo

Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif

Mensagem por alexandrevba em 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
avatar
alexandrevba
Intermediário
Intermediário

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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum