Soma_Celulas_Visiveis


#1

Bom dia!

Como a função Subtotal “=SUBTOTAL(9;E12:AE12)” não funciona para colunas ocultas, mas apenas para as linhas, pois ao ocultarmos as linhas elas não são somadas, porém quando ocultamos as colunas as colunas ocultas também são somadas.

Assim adaptei a função abaixo para somar apenas as colunas visíveis e funcionou perfeitamente, mas o problema é que, por ser uma função, ela só soma quando clicamos na barra de fórmula e teclamos enter.

Gostaria de quando as células fossem ocultadas a função funcionasse automaticamente, alguém conhece alguma maneira de automatizar esse processo

FUNÇÃO ADAPTADA:

Function Soma_Celulas_Visiveis(Ceulas_Para_Soma As Object)

Application.Volatile
For Each cell In Ceulas_Para_Soma
    If cell.Columns.Hidden = False Then
            Total = Total + cell.Value
    End If
Next
Soma_Celulas_Visiveis = Total

End Function

Obrigado,

Jorge Alexandre


#2

Não existe uma forma original do Excel capturar o envento Hide / Unhide.
Porém fazer isso não é impossivel. Se quiser se aventurar a tentar…

https://social.msdn.microsoft.com/Forums/office/en-US/a5d44c36-1953-49b5-9f22-e80fa06a1175/is-there-any-way-to-trigger-an-event-when-a-column-is-hidden?forum=exceldev

(traduza a página)


#3

Obrigado, vou dar uma olhada no link e ver se consigo descobrir mais alguma coisa que possa me ajudar. Continuo pesquisando e fazendo testes, mas sem sucesso.