tentei refazer a macro para colar em outra pasta de trabalho
a falta de informação dificulta as coisas, "eu nem posso falar nada, sempre enrolo nas minhas perguntas "
Sub copiar_colar()
'---------pasta de trabalho de onde vai ser copiado
Pasta_origem = "Planilha2014"
'------------aba da pasta de trabalho de origem de onde vai ser copiado os dados
aba_origem = "Plan1"
'--------------pasta de trabalho onde vai ser colado
Pasta_destino = "Planilha2015"
'----------------aba da pasta de trabalho de destino onde vai ser colado os dados
aba_destino = "Plan2"
Rango = "A2:E34"
Rango2 = "Q2:Q34"
Rango3 = "S2:S34"
Rango4 = "AL2:AL34"
Rango5 = "BY2:BY34"
With Workbooks(Pasta_destino).Sheets(aba_destino)
.Range(Rango).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango).Value2
.Range(Rango2).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango2).Value2
.Range(Rango3).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango3).Value2
.Range(Rango4).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango4).Value2
.Range(Rango5).Value2 = Workbooks(Pasta_origem).Sheets(aba_origem).Range(Rango5).Value2
End With
End Sub
até daria para fazer um loop com todas as pastas de trabalho
mas teria que ter mais informação de onde e para onde vai ser copiado para não se cometer erros
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 : 29/12/2014 8:11 pm