Thanks alot!
It worked like a charm. 5 stars!
Also wrote the rest to make it work on all cells I want too.
___
Quote:
Originally Posted by NoSparks
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
|