Copiar_Colunas_Especificas de guia para outra

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Copiar_Colunas_Especificas de guia para outra

Mensagem por alexandrevba em Ter Jan 28, 2014 11:09 am

Boa tarde!!

Código:
Sub Copiar_Colunas_Especificas()
    With Sheets("Destino")
        sn = Worksheets("Origem").Range("A2").CurrentRegion
        'Coluna e linha Destino ---------------Coluna e linha Origem
        .Cells(4, 3).Resize(UBound(sn)) = Application.Index(sn, 0, 1)
        .Cells(4, 8).Resize(UBound(sn)) = Application.Index(sn, 0, 2)
        .Cells(4, 9).Resize(UBound(sn)) = Application.Index(sn, 0, 3)
    End With
End Sub
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

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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