Hide or unhide a cell base on text in a different cell - Either VBA or formula solution.

[Liam_1988]

Hi,

I've been using VBA for about 6 months or so (hobbyist). I'm currently working on a workbook for my job and I'm completely stuck.

X	A	B	C	D
1​	Sent By:
2​	Date Sent:
3​	Method:		Tracking #:

I have the above in place. I'm trying to have it so that C3 & D3 are hidden unless B3 (which has a Data Validation list assigned to it) says "Postal".

I don't mind if this achieved with a Formula or VBA.

Please Please help it's driving me crazy!

 

[Fluff]

You cannot hide individual cells, only entire rows/columns.

 

[Liam_1988]

You cannot hide individual cells, only entire rows/columns.

Ok thanks Fluff.

Assume then that I moved C3 down to become A4 and hide row 4 unless B3 contained "Postal".

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address(0, 0) = "B3" Then
      Rows(4).Hidden = Not Target.Value = "Postal"
   End If
End Sub

This needs to go in the relevant sheet module.

 

[Liam_1988]

Thanks Fluff.

Unfortunately there was an error with "If Target.CountLarge > 0 Then Exit Sub".

 

[Liam_1988]

Is there command that's basically if B3 = postal then unhide otherwise hide in any other circumstance.

If it helps the only other cell values can be:
- "Email"
- "Portal"
or Blank

 

[Fluff]

Unfortunately there was an error with "If Target.CountLarge > 0 Then Exit Sub".

Why did you change what I supplied?

 

[Liam_1988]

Sorry I

Why did you change what I supplied?

The only part I changed was the Row number and Target cell so that they where the correct cells/rows.

 

[Fluff]

You said you were getting an error on this line "If Target.CountLarge > 0 Then Exit Sub"
That is not what I suggested.
What is the code you are using?

 

[Liam_1988]

I tried:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "D83" Then
Rows(87).Hidden = Not Target.Value = "Postal"
End If
End Sub

and

If Target.CountLarge > 1 Then Exit Sub
If Target.Address(0, 0) = "D83" Then
Rows(87).Hidden = Not Target.Value = "Postal"
End If
End Sub

You said you were getting an error on this line "If Target.CountLarge > 0 Then Exit Sub"
That is not what I suggested.
What is the code you are using?