Preciso criar um resumo


#1

Bom dia gente estou com um problema nao sei se e pequeno ou grande poderiam me ajudar eu tenho uma planilha com varias abas e preciso fazer uma resumo dessas planilhas com as os dado que estao em cada uma aba que seria a célula b8 e a célula p134 a como tem varias aba como faco isso de uma forma mais automatica e mais facil do que ir vinculando uma por uma


#2

@WILKERSON, veja se é isso o que deseja:

Exemplo.xlsm (12,1 KB)


#3

ola boa tarde muito obrigado me ajudou, mais tem um problema cada aba minha tem um nome diferente como fazer nessa caso? seria bom se pudesse mandar um anexo mais sou novo no forum e nao tenho permissao


#4

Pegando carona na solução do Arruda…
Se forem poucas planilhas, coloque nome da planilha nas celulas A1 em diante e mude a formula assim:

=INDIRETO(A2 & “!B8”)

Se forem muitas, dá para fazer automatico também…

Qualquer coisa escreva para nós.

abs


#5

sao muitas planilhas sim e sempre tenho que fazer esse tipo de resumo


#6

É desta forma que vc quer? O que cada uma tem ou vc quer a soma de todas as planilhas ?
Por exemplo, 15 + 17 + 35 + 45 ou o resumo mesmo do que tem em cada uma ?


#7

e o resumo mesmo do que tem nas outras planilhas.


#8

Colega @WILKERSON, seuge uma possibilidade:
Enviei a planilha no seu email.

Obs. Na Planilha, clique no botão preencher…

Sub Preencher()
Dim ul As Long
ul = 15
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "RESUMO" And sh.Name <> "DADOS CALCULOS" And _
sh.Name <> "CAL. INDICE" Then
Plan3.Range("B" & ul).Value = sh.Range("B8").Value
Plan3.Range("C" & ul).Value = sh.Range("P134").Value
ul = ul + 1
End If
Next
End Sub

#9

Ótimo Arruda, estava escrevendo para ele… abs


#10

e isso ai mesmo agora como faço para transferir isso para outras planilhas que tenho? tenho varia planilhas assim desse mesmo jeito so que com nome diferentes


#11

1 - Copie esse código
2 - Abra sua planilha
3 - Aperte Alt+F11
4- No lado esquerdo, dê dois clique sobre “Esta_pasta_de_Trabalho”
5- À direita abriu uma tela em branco
6 - Cole esse código nesse campo em branco

feche o vba, voltando para sua planilha

7 - Na planilha RESUMO, aperte Alt + F8
8 - Dê dois cliques sobre “Esta_pasta_de_Trabalho.Preencher”


#12

Gente muito obrigado deu certo aqui vc nao tem ideia de como isso me ajudou agradeço muito mesmo.