Boa noite!!

Um exemplo qualquer......

Sub Explique()
    Dim LR As Long
    LR = Range("D" & Rows.Count).End(xlUp).Row
    Range("D" & LR + 3).Formula = "=SUBTOTAL(9,D3:D" & LR & ")"
End Sub

Olá Fernando, boa noite.

Lembra dos meus posts sobre ocultar linha, descobrir o maior número...ambas tem a ver com esse subtotal. Preciso que o subtotal seja posicionado acima do range, como descito no post. Assim, as linhas do range, que estarão abaixo, serão ocultadas. Posicionando o subtotal acima do range, não precisa rolar a tela quando ainda restarem muitas linhas visíveis. O subtotal deve exibir o somatório das linhas visíveis.

É isso, obrigado.

luiz, porque simplesmente não coloca a formula manualmente e deixa, pra que incrementar em VBA ? Até onde sei esta formula que postou soma somente as linhas visiveis.

Olá Mauro,

Fpo exatamente isso que fiz. Inserir a fórmula nas colunas. Acontece que ao ocultar as linhas (post anterior)o subtotal não se atualiza. Daí pensei que via VBA isso seria resolvido.

Ao ocultar as linhas, o valor da fórmula não se atualiza!

Vou rever o código. Agora em casa pude analisar seu arquivo. Tentarei implementar de outra forma amanhã.

Boa noite.

Olá Mauro,

Foi exatamente isso que fiz. Inserir a fórmula nas colunas. Acontece que ao ocultar as linhas (post anterior)o subtotal não se atualiza. Daí pensei que via VBA isso seria resolvido.

Ao ocultar as linhas, o valor da fórmula não se atualiza!

Luiz, provavelmente a aba que está filtrando não está com a opção de calculo automático, mas para contornar isto é só foçar o recalculo apos executar a rotina do filtro adicionando ao final a seguinte linha:

ActiveSheet.Calculate

Assim quando a rotina executar a formula será calculada.

[]s