silva_jmp,

como fiquei em dúvida sobre algumas alocações, criei uma nova guia chamada "Entrada" que retornará os dados da guia "DADOS".

Analise detalhadamente o resultado e veja se é o esperado.

Em caso de erro ou inconsistência, indique.

Edson é isso mesmo que eu preciso, mas deixa explicar como vai funcionar:

Entro no relatório backlog da equipe 1 e peço para exportar para Excel em uma pasta especifica com nome (Dados), vou criar um botão com macro para copiar os dados do arquivo exportado da pasta (Dados) para plan 5 (Dados), após isso entro na plan (Entrada) que você criou, mas gostaria que tivesse 2 botões:

O primeiro botão seria para organizar os dados, do jeito que você fez mas preciso que nesta macro os dados organizados permanecessem sem alterações quando acionasse o botão novamente e sim quando acionasse seria para organizar outro relatório plan5 (dados) de outra equipe permanecendo a organização do primeiro relatório da equipe 1 e a segundo relatório ficaque debaixo da última linha do primeiro relatório e assim por adiante;

O segundo botão seria para atualizar os dados organizados desde o primeiro relatório, sobrepondo os relatórios anteriores organizados, não deixando de fazer a mesma rotina do primeiro botão.

silva_jmp.

Bom dia pessoal

Parece que não fui claro na dúvida anterior, vamos lá, nesta exportação, o 1º relatório é da equipe de caldeiraria, o 2º relatório é da equipe mecânica, pois os dois estarão em sequencia na Plan5 (Dados), quando eu pesso para organizar o relatório na Plan8 (Entrada), só esta buscando a equipe do 1º relatório (equipe Caldeiraria).

If IsNumeric(ws.Cells(slin, 1)) Then
Cells(elin, 6) = ws.Cells(slin, 1)
Cells(elin, 8) = ws.Cells(slin, 2)
Cells(elin, 9) = ws.Cells(slin, 3)
Cells(elin, 10) = ws.Cells(slin, 4)
Cells(elin, 11) = ws.Cells(slin, 5)
Cells(elin, 12) = ws.Cells(slin, 6)
Cells(elin, 13) = ws.Cells(slin, 7)
Cells(elin, 14) = ws.Cells(slin, 8)
Cells(elin, 15) = ws.Cells(6, 2) If IsNumeric(ws.Cells(slin + 2, 1)) Then
Cells(elin, 7) = ws.Cells(slin + 1, 1)
slin = slin + 2
Else
Cells(elin, 7) = ws.Cells(slin + 1, 1) & " " & ws.Cells(slin + 2, 1)
slin = slin + 3
End If
elin = elin + 1
Else
slin = slin + 1
End If

Loop

End Sub

silva_jmp