Hello Scenario - Form - when the form is opened F6 is Blank and is a
dropdown
Row 17 is not hidden
now if F6 says Distributor I want to hide Row 17 otherwise row 17 show not
be hidden
Below is my code- but it does not work
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address < "$F$6" Then Exit Sub
If .Value = "Distributor " Then
Rows(17).Hidden = True
ElseIf .Value = "Customer" Then
Rows(17).Hidden = False
ElseIf .Value = " Office" Then
Rows(17).Hidden = False
ElseIf .Value = "Demo " Then
Rows(17).Hidden = False
End If
End With


End Sub
thanks in advance

In your code there is a space after Distributor ("Distributor "). Remove the
space or TRIM() the value

If this post helps click Yes
---------------
Jacob Skaria


"Wanna Learn" wrote:

Hello Scenario - Form - when the form is opened F6 is Blank and is a
dropdown
Row 17 is not hidden
now if F6 says Distributor I want to hide Row 17 otherwise row 17 show not
be hidden
Below is my code- but it does not work
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address < "$F$6" Then Exit Sub
If .Value = "Distributor " Then
Rows(17).Hidden = True
ElseIf .Value = "Customer" Then
Rows(17).Hidden = False
ElseIf .Value = " Office" Then
Rows(17).Hidden = False
ElseIf .Value = "Demo " Then
Rows(17).Hidden = False
End If
End With


End Sub
thanks in advance

This should cover case and extraneous space problems

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address < "$F$6" Then Exit Sub
Rows(17).Hidden = False
If LCase(Application.Trim(.Value)) = "distributor" Then
Rows(17).Hidden = True
End If
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Wanna Learn" wrote in message
...
Hello Scenario - Form - when the form is opened F6 is Blank and is a
dropdown
Row 17 is not hidden
now if F6 says Distributor I want to hide Row 17 otherwise row 17 show not
be hidden
Below is my code- but it does not work
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address < "$F$6" Then Exit Sub
If .Value = "Distributor " Then
Rows(17).Hidden = True
ElseIf .Value = "Customer" Then
Rows(17).Hidden = False
ElseIf .Value = " Office" Then
Rows(17).Hidden = False
ElseIf .Value = "Demo " Then
Rows(17).Hidden = False
End If
End With


End Sub
thanks in advance