Thread: Hide row based on value (different sheets)
View Single Post
 
Old 05-16-2017, 06:43 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
  
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default
Remove ALL the code you have and try putting this into the Blad1 module
Code:
Private Sub Worksheet_Change(ByVal Target As Range)

'limit cells to monitor
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("E12:E17")) Is Nothing Then Exit Sub

Call HideRow

End Sub

Code:
Sub HideRow()

If Sheets("Kalkyl").Range("E12").Value = 0 Then
    Sheets("Färdig Offert-Vy").Rows("10").EntireRow.Hidden = True
Else
    Sheets("Färdig Offert-Vy").Rows("10").EntireRow.Hidden = False
End If

If Sheets("Kalkyl").Range("E13").Value = 0 Then
    Sheets("Färdig Offert-Vy").Rows("11").EntireRow.Hidden = True
Else
    Sheets("Färdig Offert-Vy").Rows("11").EntireRow.Hidden = False
End If

'etc to E17

End Sub
Reply With Quote