auto hide and unhide

[bleeet]

Hi guys

I am trying to make a sheet unhide the row below when someone inputs a value in a certain cell. and if they delete that value the same row will got back to hidden. I have this code which hides the row but how to I make it hide the row if the value in the cell is deleted.

Public Sub Worksheet_Change(ByVal Target As Range)

 If Target.Address(False, False) = "A2" Then
        With Sheet19
            .Rows(3).EntireRow.Hidden = False

Also if it isn't too much can you also tell me how I can make this happen to a long rang of cells in certain rows where the bottom row unhides when the top cell has a value and hides when there is no value in the cell above? Or do I have to keep repeating the above code for each cell?


thanks

 

[rpaulson]

not 100% sure what you are trying to accomplish.

this code will displayrow 3 if you enter something in cell A2. if you delete A2 then if will hide row 3

Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        r = Target.Row
        If Target = "" Then Rows(r + 1).EntireRow.Hidden = True Else Rows(r + 1).EntireRow.Hidden = False
    End If
End Sub

hth,

Ross

 

[bleeet]

not 100% sure what you are trying to accomplish.

this code will displayrow 3 if you enter something in cell A2. if you delete A2 then if will hide row 3

Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        r = Target.Row
        If Target = "" Then Rows(r + 1).EntireRow.Hidden = True Else Rows(r + 1).EntireRow.Hidden = False
    End If
End Sub

hth,

Ross

Thanks so much

sorry I was unclear. what I am trying to do is in a certain range of rows for example rows 3-20 when a user types a value in a certain cell in row 3 then row 4 unhides and if they type a value in a certain cell in row 4 then row 5 unhides and then continues until row 20

then in a different range of rows say rows 30-40 the same thing happens for those rows


I hope this makes sense

thanks

 

[rpaulson]

just change the range

Public Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A50")) Is Nothing Then
        r = Target.Row
        If Target = "" Then Rows(r + 1).EntireRow.Hidden = True Else Rows(r + 1).EntireRow.Hidden = False
    End If
End Sub

hth,
Ross

 

[bleeet]

Yea, so sorry I just realized that myself


thanks so much again