Copiar dados de outro arquivo Excel com laço de repetição
Enviado: 31 Ago 2020 às 22:35
Tenho que fazer uma atividade, onde tenho 3 arquivos de excel.xlsx, cada arquivo 1 cidade e tenho uma arquivo excel.xlsm( habilitada para macro). Eu tenho que copiar as planilhas de cada arquivo xlsx e colar elas com um espaço de 2 celulas no aquivo xlsm. E deve ser feito com macro usando um laço de repetição (While ou For), mas não sei como fazer começei a usar Macros e VBA a pouco tempo
Esse é o código da minha Macro
Código: Selecionar todos
Sub LoopCopiarArquivos()
Dim wsOrigem As Worksheet
Dim wsDestino As Worksheet
Columns("A:J").Select
Selection.Clear
Workbooks.Open Filename:="C:\Users\BARREO\Desktop\atividade\Metas Barra Bonita.xlsx"
Set wsOrigem = Workbooks("Metas Barra Bonita.xlsx").Worksheets("Metas")
Set wsDestino = ThisWorkbook.Sheets("Dados")
With wsOrigem
Range("B4:H13").Copy Destination:=wsDestino.Range("B2")
End With
Workbooks("Metas Barra Bonita.xlsx").Close
End SubAqui anexei a planilha que eu usei para fazer a macro.
https://etecspgov-my.sharepoint.com/:u: ... 1&e=kntNGK