somar apenas celulas de planilhas visivel

Question

E o objetivo é em NÃO somar os valores de planilhas ocultas, apenas das visíveis. Tem uma função semelhante para célula "=Subtotal(109;A1;A2)", mas não encontrei para valores de planilhas visíveis.

Answer 1

Olá Augusto!

Desconheço uma forma nativa de realizar este tipo de operação, porém é possível desenvolver no VBA uma função personalizada (UDF) que faça esta validação se o intervalo está numa planilha visível e retornar o valor somente se estiver.

Para isso, pressione ALT+F11 para abrir o VBE, e adicione um novo módulo a sua pasta de trabalho. Neste módulo, copie e cole o código abaixo:

Public Function ÉVÍSIVEL(rng As Excel.Range) As Variant

Application.Volatile

Dim ws As Worksheet

Set ws = Sheets(rng.Parent.Name)

If ws.Visible = -1 Then

Set ÉVÍSIVEL = rng

Else

ÉVÍSIVEL = 0

End If

Set rng = Nothing

Set ws = Nothing

End Function

Pode fechar o VBA e testar a função ÉVISÍVEL. Por exemplo, vamos somar os intervalos A1:A3 da plan2 e da plan3 numa célula da plan1. A fórmula ficaria:

=SOMA(ÉVÍSIVEL(Plan2!A1:A3);ÉVÍSIVEL(Plan3!A1:A3))

Note que para cada intervalo é necessário aplicar a função para fazer a validação de visibilidade.

As observações que deixo é:

1º) Você terá que salvar o arquivo como .xlsm (pasta de trabalho habilitada para macros do excel)

2º) A ação de ocultar uma planilha não dispara o recálculo da planilha, portanto após ocultar uma planilha, é necessário pressionar F9 para forçar o recálculo ou fazer qualquer atualização numa célula para a planilha recalcular e atualizar a fórmula.

Espero ter ajudado.

Answer 2

Otima resposta, deu certo. Obrigadão