Hi,
I have checked the forum but cant seem to find a solution that works.
I need to run the below code when one of the cell values change.
The code works if I manually change the above cell values but not when I use VLookup to get the value.
Your help on this will be much appreciated.
Ben
I have checked the forum but cant seem to find a solution that works.
I need to run the below code when one of the cell values change.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("uk1").Value = "a" Then
Range("A8:a47").EntireRow.Hidden = False
Else
Range("A8:a47").EntireRow.Hidden = True
End If
If Range("uk2").Value = "a" Then
Range("A48:A87").EntireRow.Hidden = False
Else
Range("A48:A87").EntireRow.Hidden = True
End If
If Range("uk3").Value = "a" Then
Range("A88:A127").EntireRow.Hidden = False
Else
Range("A88:A127").EntireRow.Hidden = True
End If
If Range("uk4").Value = "a" Then
Range("A128:A167").EntireRow.Hidden = False
Else
Range("A128:A167").EntireRow.Hidden = True
End If
If Range("uk5").Value = "a" Then
Range("A168:A207").EntireRow.Hidden = False
Else
Range("A168:A207").EntireRow.Hidden = True
End If
End Sub
The code works if I manually change the above cell values but not when I use VLookup to get the value.
Your help on this will be much appreciated.
Ben