show hide row if

[Wanna Learn]

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

 

[Jacob Skaria]

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]

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

If this post helps click Yes

 

[Don Guillett]

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]

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