J
Jock W
Using an 'If' function, is it possible to hide a row when criteria aren't met?
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
N
Norman Jones
Hi Jock,
It would be necessary to use VBA.
If this is acceptable, post back with details of the range and the hide
condition.
It would be necessary to use VBA.
If this is acceptable, post back with details of the range and the hide
condition.
J
Jock W
Norman,
Here's an example of what I'd like to happen. If it's going to be hugely
complex, then I can live without it!
If (A15="xxxx",hide the next 4 rows,don't hide the next 4 rows)
thanks,
Here's an example of what I'd like to happen. If it's going to be hugely
complex, then I can live without it!
If (A15="xxxx",hide the next 4 rows,don't hide the next 4 rows)
thanks,
N
Norman Jones
Hi Jock,
'======================>>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const TestString As String = "xxxx" '<<===== CHANGE
Set rng = Range("A15")
If Not Intersect(rng, Target) Is Nothing Then
Rows("16:20").Hidden = StrComp(rng.Value, TestString, _
vbTextCompare) = 0
End If
End Sub
'<<======================
(1) Copy the above code
(2) Right-click the worksheet tab
(3) Paste the copied code
(4) Alt-F11 to return to Excel
All done!
Now try entering: xxxx or XXXX in A15. This should hide rows, 16-20.
Deleting, or changing A15 should restore rows 16:20 to view.
'======================>>
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Const TestString As String = "xxxx" '<<===== CHANGE
Set rng = Range("A15")
If Not Intersect(rng, Target) Is Nothing Then
Rows("16:20").Hidden = StrComp(rng.Value, TestString, _
vbTextCompare) = 0
End If
End Sub
'<<======================
(1) Copy the above code
(2) Right-click the worksheet tab
(3) Paste the copied code
(4) Alt-F11 to return to Excel
All done!
Now try entering: xxxx or XXXX in A15. This should hide rows, 16-20.
Deleting, or changing A15 should restore rows 16:20 to view.
J
Jock W
Thanks Norman. That's got it.
Cheers
Cheers