Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Wladimir Melo

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

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×