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.
Boa tarde Alison,
Coloque o que você disse em uma planilha de exemplo, assim fica mais fácil ajudar.
att,
Segue planilha modelo, qualquer dúvida estou a disposição.
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.
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
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. 