Hide rows based on a condition

G

Guest

I have very little expierence with writing VB and what I would like to do is
based on a condition in cell "A1" being Y hide rows 15 - 20. "A2" hide rows
25 - 30 else do nothing.

Any help would be greatly appreciated.

Kim
 
D

Don Guillett

try

If UCase(Range("a1")) = "Y" Then Rows("10:15").Hidden = True
If UCase(Range("a2")) = "Y" Then Rows("25:30").Hidden = True
 
R

Ron de Bruin

Hi KimberlyH

You can test this event in the sheet module

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A2"), Target) Is Nothing Then
Rows("15:30").Hidden = False
If LCase(Range("A1").Value) = "y" Then Rows("15:20").Hidden = True
If LCase(Range("A2").Value) = "y" Then Rows("25:30").Hidden = True
End If
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

Similar Threads

using a value in a cell to hide rows 8
Conditional Hide Rows Macro 3
Hiding rows 1
Hide Rows Based on Cell Result 2
Hiding Rows Using IF Statement 1
My 1st IF-THEN-ELSE Procedure 8
Hide Rows based on Combobox Selection 15
Hide/Show rows based on Conditions 3

Top