Hello,
I am currently trying to hide/show entire rows based on a dropdown value.
The scenario is that if dropdown value is "EV" it is supposed to show certain rows. That works. However if I go to the drop down selection in the next cell and select "Petrol" the rows shown due to "EV" selection in the previous dropdown selection disappears.
The optimal solution would be that once I select "EV" the rows are shown and do not disappear even if i select "Petrol" in the other drop down selections.
Attached some screenshot:
My code currently looks as following:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$12" Or Target.Address = "$F$12" Or Target.Address = "$H$12" Or Target.Address = "$J$12" Or Target.Address = "$L$12" Or Target.Address = "$N$12" Then
With ActiveSheet
Select Case Target
Case "EV"
CUSTO.Range("A18:A27").Rows.Hidden = False
CUSTO.Range("A64:A67").Rows.Hidden = False
Case "Petrol"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "Diesel"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "P-PHEV"
CUSTO.Range("A18:A27").Rows.Hidden = False
CUSTO.Range("A64:A67").Rows.Hidden = False
Case "P-HEV"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "D-HEV"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "D-PHEV"
CUSTO.Range("A18:A27").Rows.Hidden = False
CUSTO.Range("A64:A67").Rows.Hidden = False
Case "P/CNG"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "P/LPG"
CUSTO.Range("A18:A27").Rows.Hidden = True
Case "Fuel cell"
CUSTO.Range("A18:A27").Rows.Hidden = True
End Select
End With
End If
End Sub
Thank you for your help
Dennis
Bookmarks