Resumo das outras planilhas

2024 - VBA & Macros

Post Recente por DJunqueira 8 anos atrás

6 Posts

5 Usuários

0 Reactions

1,475 Visualizações

RSS

Alison

(@alison)

Posts: 9

Active Member

Topic starter

Boa tarde,

Estou iniciando agora no VBA e travei numa coisa que não consigo fazer.
Tenho varias abas em uma planilha e preciso de um comando pra fazer tipo um resumo de todas essas abas, no caso seria uma comando que na primeira aba (Resumo) colocasse na celula A5 a celula P10 da aba 2, dai na Celula A6 a celula P10 da aba 3, na Celula A7 a celula P10 da aba 3, e assim por diante, no qual ele pegue todas as abas que tiverem.
Exitem mais celulas pra inserir mas se alguém conseguir fazer isso eu me viro depois pra ajeitar.

Se alguém puder ajudar eu agradeço.

Postado : 03/12/2016 11:41 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde Alison,

Coloque o que você disse em uma planilha de exemplo, assim fica mais fácil ajudar.

att,

Postado : 03/12/2016 12:06 pm

Alison

(@alison)

Posts: 9

Active Member

Topic starter

Segue planilha modelo, qualquer dúvida estou a disposição.

Postado : 03/12/2016 12:39 pm

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Boa tarde.
Veja se ajuda.

Sub atualizar()
Dim w As Worksheet, wmae As Worksheet, linha As Long

linha = 13


Set wmae = Plan1
Application.ScreenUpdating = False
DoEvents
Application.Calculation = xlCalculationManual
wmae.Range("b13:h200").ClearContents

For Each w In ThisWorkbook.Worksheets

If w.Name <> wmae.Name Then

wmae.Range("b" & linha).Value = w.Range("a6")
wmae.Range("d" & linha).Value = w.Range("g9")
wmae.Range("e" & linha).Value = w.Range("h9")
wmae.Range("g" & linha).Value = w.Range("h56")
wmae.Range("h" & linha).Value = w.Range("g58")
linha = linha + 1

End If


Next w

Application.ScreenUpdating = True
DoEvents
Application.Calculation = xlCalculationAutomatic


End Sub

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 03/12/2016 1:35 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Alison

Acesse os links abaixo para você tomar conhecimento das regras do fórum e demais instruções.
Você já infringiu 2 regras do fórum:
Título inadequado e não compactou o arquivo antes de anexar.

viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 03/12/2016 3:23 pm