Olá, Pessoal!
Encontrei alguns posts relacionaos ao que preciso, mas nenhum deles resolveu minha dúvida.. alguém aí pode me ajudar?
Tenho uma pasta em um diretório com vários arquivos de excel. Todos eles possuem o mesmo formato e o mesmo cabeçalho e todos têm somente uma planilha. Estes arquivos têm quantidade variável de linhas, mas as colunas são sempre as mesmas, na mesma ordem. Os arquivos não têm um padrão de nome.
Eu preciso muito criar uma macro que faça o seguinte:
Copie as linhas das planilhas dos arquivos de excel deste diretório e cole-as em sequência, uma embaixo da outra em um outro arquivo de excel, com o mesmo cabeçalho.
Eu gravei as ações em uma macro bem primária (que são as que eu sei fazer por enquanto), que coloco de exemplo abaixo.
Sub EUROFRIGO1()
'
' EUROFRIGO1 Macro
' BATCH-COPY-EUROFRIGO
'
'
Range("A1").Select
Windows("F388806.XLS").Activate
Rows("7:7").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Range("A2").Select
Windows("F388806.XLS").Activate
ActiveWindow.Close
Windows("F381293.XLS").Activate
Rows("7:8").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Windows("F381293.XLS").Activate
ActiveWindow.Close
Range("A4").Select
Windows("F388807.XLS").Activate
Rows("7:7").Select
Selection.Copy
Windows("DADOS-EUROFRIGO.xls").Activate
ActiveSheet.Paste
Range("A5").Select
Windows("F388807.XLS").Activate
ActiveWindow.Close
End Sub
É mais ou menos isso que eu preciso que a macro faça, mas com a diferença de que o número de linhas não é constante nas planilhas copiadas e o nome das planilhas copiadas também é variável.
Eu passo mais da metade do meu dia só copiando e colando esses dados, essa macro vai mudar minha vida!
Não deve ser tão difícil, eu é que não tenho o conhecimento de VBA o suficiente... Tenho buscado em diversos sites e não consigo encontrar o que preciso.
Alguém aí consegue me quebrar essa árvore?
Obrigada!
thasr9
Novo Membro
Registrado
3 Mensagens
5 Curtidas