Ajuda na Função "sum visible cells"

2024 - VBA & Macros

Post Recente por Fernando Fernandes 10 anos atrás

4 Posts

3 Usuários

0 Reactions

926 Visualizações

RSS

arthurvvm

(@arthurvvm)

Posts: 16

Active Member

Topic starter

Pessoal, boa tarde!

Estou tendo dificuldade em utilizar a função abaixo, ela não está funcionando quando eu oculto a coluna da célula referencia na fórmula, funciona apenas quando eu oculto a linha.

Poderiam me ajudar? Grato!

Function Sum_Visible_Cells(Cells_To_Sum As Object)
Application.Volatile
For Each cell In Cells_To_Sum
If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then
total = total + cell.Value
End If
End If
Next
Sum_Visible_Cells = total
End Function

Postado : 25/03/2015 1:50 pm

Edcronos

(@edcronos)

Posts: 1006

Noble Member

pelo que entendi da função é pq vc colocou um if dentro do outro

If cell.Rows.Hidden = False Then
If cell.Columns.Hidden = False Then

total = total + cell.Value

End If
End If
uma só vai funcionar se a primeira tbm estiver como false

não sei bem oq vc quer
mas pode tentar assim
If cell.Rows.Hidden = False Then total = total + cell.Value
If cell.Columns.Hidden = False Then total = total + cell.Value

sem o end if
nesse caso vai funcionar a que estiver como false, uma ou outra

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

Postado : 25/03/2015 2:09 pm

Edcronos

(@edcronos)

Posts: 1006

Noble Member

desculpa, eu não tinha entendido oq vc queria

olha só a função que vc postou funciona sim,
mas parece que somente é automatica com linhas
nas colunas vc tem que forçar o recalculo com
CTRL + ALT + F9

bem que eu tinha reparado que minhas funções tinha problemas com celulas ocultas no caso é nas colunas, tinha até colocado um post aqui no forum sobre tal fato que minha macro as vezes dava pane com celulas ocultas

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

Postado : 25/03/2015 2:28 pm