Excel - Copiar dados de um intervalo de folhas para uma folha mestre
Questão
Eu preciso desenvolver uma macro que irá coletar dados de um intervalo de planilhas em uma pasta de trabalho.
A macro precisa:
- Copie os dados para um intervalo de folhas depois da folha chamada "Todos os prazos" e antes da folha chamada "Modelo". Então, todas as folhas caindo entre folha "Todos os prazos" e folha "Template".
- Eu preciso de todas as linhas que têm dados neles a partir da linha 14 para as folhas no intervalo, mas para a macro apenas para copiar as linhas que incluem dados
- Após o lançamento, a macro deve copiar os dados para a planilha chamada "Todos os prazos", colando na linha 3 pela primeira vez e colando os dados de cada planilha subseqüente abaixo da última entrada anterior.
- Quando executado, a macro deve excluir todos os dados da linha 3 e abaixo na planilha "Todos os prazos" (dados coletados de execuções anteriores da macro).
Solução
Ajuste o código abaixo para atender aos seus requisitos:
Sub MoveData () Dim ws Como Planilha Dim lRow, dRow As Integer Sheets ("Todos os Prazos"). Linhas ("3:" & Range ("A" & Rows.Count) .End (xlUp) .Row) .ClearContents For Each ws Em Sheets If ws.Name = "Criar Novo Projeto" _ Ou ws.Name = "Painel do Projeto" _ Ou ws.Name = "Todos os Prazos" _ Ou ws.Name = "Template" Então Ir Para Próximaw dRow = Sheets ( "All Deadlines"). Range ("A" e Rows.Count) .End (xlUp) .Offset (1, 0) .Row lRow = Folhas (ws.Name) .Range ("A" e Rows.Count). End (xlUp) .Row Sheets (ws.Name) .Rows ("14:" & lRow) .Copiar Folhas ("Todos os Prazos"). Range ("A" & dRow) Nexts: Seguinte ws End Sub Obrigado ao TrowaD por essa dica.