show hide row if

W

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
 
J

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
 
D

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top