Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Resumo das outras p...
 
Notifications
Clear all

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
(@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
 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
 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
DJunqueira
 DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Célula B58

=SE(CONCAT(G47:G52)="";"";MAIOR(G47:G52;1)), assim é mais rápido.

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 03/12/2016 10:44 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico