Este fórum está sendo desativado

[daniel3o]

Prezados, necessito de uma grande ajuda:

Com uso de macro eu preciso copiar informações de várias planilhas (Ex. "A01", "A02", "A03") em uma única. Atualmente eu separo-as em "abas" e com uso de fórmulas eu faço soma/cálculo. Ex:https://imgur.com/a/plCgRNE

Seria possível ao invés de criar inúmeras abas, colar uma embaixo da outra numa aba "principal" e adicionar na coluna Ade qual planilha foi extraída as informações de outro lugar, indicar ao Excel de quais planilhas eu quero que seja feito esse processo? Ex: https://imgur.com/a/0r6qnE2

Obrigado.

[babdallas]

Sim, é possível usando o recurso Consolidar na guia Dados (caso queira já fazer alguma agregação como soma, média, etc) ou então usar PowerQuery ou VBA.
Anexe um exemplo e diga o resultado desejado.

[daniel3o]

Sim, é possível usando o recurso Consolidar na guia Dados (caso queira já fazer alguma agregação como soma, média, etc) ou então usar PowerQuery ou VBA.
Anexe um exemplo e diga o resultado desejado.

Obrigado pela orientação, como seria possível fazer isso através do VBA?

[babdallas]

Veja se este vídeos do Ivair Ferrari te ajudam:
https://www.youtube.com/watch?v=dUGlykRbd7c
https://www.youtube.com/watch?v=2VHsdE3YV6k

[JulioMangilli]

Olá Amigo,

Segue uma forma..
Sub Consolidar()
Sheets(1).Range("A2:AR10000").Clear
plans = Sheets.Count
linha = 2

For n = 2 To plans
lin = 2
Do Until Sheets(n).Cells(lin, 1) = ""

Sheets(1).Cells(linha, 1) = Sheets(n).Cells(lin, 1)
Sheets(1).Cells(linha, 2) = Sheets(n).Cells(lin, 2)




Sheets(1).Cells(linha, 16).Font.ColorIndex = n + 1
Sheets(1).Cells(linha, 16) = Sheets(n).Name

lin = lin + 1

linha = linha + 1

Loop
Next
End Sub

Sub Limpar()
Sheets(1).Range("A2:AR10000").Clear
End Sub


Grande abraço.