VBA Code for hiding rows with zero value then hiding when value changes

[jones987]

Hello,
Would anyone be able to give me a code for hiding rows 17:39 if the value in column D is zero, then unhide if the value changes to greater than zero?
Thank you

 

[My Aswer Is This]

How are these values changing? From direct input or from a formula causing the change.

 

[jones987]

From a IF formula

 

[My Aswer Is This]

If the values in Column (D) rows (17:39) are being changed by direct input then you can use the below script.
If the values are changing due to formula values changing then my knowledgebase has no answer for you. It turns into a on calculation event that then gets complicated for me.

To install this code:

Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D17:D39")) Is Nothing Then
If Target.Value = "0" Then Rows(Target.Row).Hidden = True Else Rows(Target.Row).Hidden = False
End If
End Sub

 

[My Aswer Is This]

What causes the IF formula to change.

Show me your IF statement