Ocultar e reexibir linha a partir do resultado de uma fórmula

[Wladimir Melo]

Boa tarde!

Estou tentando montar uma planilha de financiamento para apresentar em sala de aula para os meu alunos. Contudo, preciso de uma ajuda para automatiza-la.

A minha dificuldade é que eu quero que a última linha da planilha tenha o TOTAL, que sempre ficará na mesma linha (linha 411, por exemplo). Portanto, se eu informo um financiamento de 100 meses, as linhas que não têm resultado de cálculo acima de zero (0) precisam ser ocultas. Caso eu decida alterar os meses de financiamento para 120, 20 linhas, que estavam ocultas, precisam ser reexibidas.

Eu estou tentando encontrar uma solução, mas algo está dando errado. Vejam o que o meu conhecimento limitado sobre o assunto permitiu fazer:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Tempo As Integer

'Executa a macro quando a célula de meses de AMORTIZAÇÃO for alterada

If Not Intersect(Target, Range("b3")) Is Nothing Then

Call macro1

End If

'Executa a macro quando a célula de meses de CARÊNCIA for alterada

If Not Intersect(Target, Range("b4")) Is Nothing Then

Call macro1

End If

'Soma os meses de carência e amortização e atribui a célula TOTAL de tempo

Tempo = [b3] + [b4]

Range("B2").Value = Tempo

Application.EnableEvents = True

Application.EnableEvents = True

End Sub

'Nesta macro eu tento ocultar ou reexibir linhas a partir do resultado de célula TOTAL de tempo

Sub macro1()

Dim i As Integer

'13 é o número da linha onde inicia a planilha. O cabeçalho da planilha está na linha 12

For i = 13 To 411

If Range("a" & i).Value <> "" Then

Rows(i & ":" & i).Select

Selection.EntireRow.Hidden = False

Else

End If

Next i

For i = 13 To 411

If Range("a" & i).Value = "" Then

Rows(i & ":" & i).Select

Selection.EntireRow.Hidden = True

Else

End If

Next i

Range("B2").Activate

End Sub

Muito obrigado se alguém puder ajudar.

[Patropi]

Boa noite Wladimir

No site abaixo tem um exemplo de uma planilha para cálculo de financiamento, que só mostra dados nas linhas conforme o número de parcelas e não precisa usar macros.

http://www.clubedainformatica.com.br/site/2004/03/12/como-calcular-juros-no-excel/

Att.

[Wladimir Melo]

Patropi, você é 10. Muito obrigado!

Não é exatamente o que queria, mas resolve o meu caso.

[Patropi]

Caso o autor necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.