Copiar_Colunas_Especificas de guia para outra

por alexandrevba 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