Notifications
Clear all

olá pessoal!

5 Posts
1 Usuários
0 Reactions
1,174 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Suponhamos que eu tenha na plan1 os seguintes dados: a1=10, a2=20, a3=30 e os mesmos valores respectivamente na plan2.
Agora aqui vai a minha pergunta: como fazer para poder criar um resumo por soma na plan3? sei que com a função soma dá para fazer, mas preciso de algo mais complexo, algo que fosse como concatenar as duas tabelas e exibir o resumo na plan3; porque ficar somando de intervalo por intervalo tá sinistro, até porque trata-se de muitas tabelas. Alguém pode me ajudar :?:

 
Postado : 11/12/2009 1:42 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

O que seria o "resumo"?
A soma desses valores?

 
Postado : 11/12/2009 3:53 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sim seria, mas acontece que se eu fizer com a função soma sei que dá certo, mas o caso é que se trata de muitas plans e o trabalho fica muito cansativo. Gostaria de saber se daria para criar uma função que faça isto a cada vez que eu inserir uma nova plan. Grato!

 
Postado : 11/12/2009 7:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Experimente esta função personalizada:

Function SOMACÉLULAS(ParamArray Células())
Application.Volatile
For Each ws In ThisWorkbook.Worksheets
    For Each rg In Células
        If ws.Name <> ActiveSheet.Name Then SOMACÉLULAS = SOMACÉLULAS + ws.Range(rg.Address)
    Next rg
Next ws
End Function

No seu caso a sintaxe seria =SOMACÉLULAS(A1;A2;A3)
[ ]S

 
Postado : 11/12/2009 8:50 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Desculpe, mas poderia detalhar melhor? tentei, mas não consegui. Grato!

 
Postado : 12/12/2009 7:34 pm