Hi,
Total beginer when it comes to coding so any help would be gretaly appreciated.
I have two worksheets, and i want to hide certain columns in one worksheet ("Results Summary"), based on the value of a dropdown cell in another worksheet ("Corporate Summary").
In essence:
If cell value in "Corporate Summary" is "N/A", columns D to H in "Results Summary" are hidden;
If value is "1", columns E to H are hidden
"2", columns F to H are hidden
"3", columns G to H are hidden
"4", column H is hidden
"5", columns D to H are unhidden
I'm currently using the code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Worksheets("Corporate Summary").Range("F14").Value Then
Select Case Target.Value
Case Is = "N/A"
Columns("D").EntireColumn.Hidden = True
Columns("E").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
Columns("G").EntireColumn.Hidden = True
Columns("H").EntireColumn.Hidden = True
Case Is = "1"
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = True
Columns("F").EntireColumn.Hidden = True
Columns("G").EntireColumn.Hidden = True
Columns("H").EntireColumn.Hidden = True
Case Is = "2"
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Columns("G").EntireColumn.Hidden = True
Columns("H").EntireColumn.Hidden = True
Case Is = "3"
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
Columns("G").EntireColumn.Hidden = True
Columns("H").EntireColumn.Hidden = True
Case Is = "4"
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
Columns("G").EntireColumn.Hidden = False
Columns("H").EntireColumn.Hidden = True
Case Is = "5"
Columns("D").EntireColumn.Hidden = False
Columns("E").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = False
Columns("G").EntireColumn.Hidden = False
Columns("H").EntireColumn.Hidden = False
End Select
End If
End Sub
I currently have this in the VBA editor for the "Results Summary" tab.
Obviously its not working and any steerance at all would be a massive help!
Thanks :-)