me desculpe pela resposta...
mas então vc vai ter que pesquisar como fazer e fazer muitos testes
pq é mais facil e rapido do que a gente aqui ficar tentando adivinhar
quantas colunas tem, se tem linhas em branco, se tem colunas com mais linhas que outras, se é para copiar e colar apenas até certa linha ...
no mais oq eu posso te adiantar é
dim colin()
ci=letra coluna inicial
cf = letra coluna final
li= linha inicial de onde vai copiar
With Workbooks("nome da pasta de trabalho da origem").Sheets("nome da aba da origem")
Lf=.Cells(Rows.Count, "coloque a letra da coluna que serve de controle" ).End(xlUp).Row 'serve de linha final da origem que vai ser copiada
colin = .Range(ci & li, cf & lf).Value2
End With
Li=Cells(Rows.Count, "coloque a letra da coluna que serve de controle" ).End(xlUp).Row+1
lf=li+ UBound(colin, 1)-1'linha final
Range(ci & li, cf & lf).Value2=colin
Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.
"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"
Postado : 21/05/2015 12:24 pm