Select the VISIBLE row above the selected cell?

[9tanstaafl9]

Hi all. I want to select the VISIBLE ROW above the currently selected cell. How do I do that? There are a variable number of hidden rows in between. I tried the macro recorder, but it was no use in this instance.

Is there a sneaky way to do this? Actually, I know there is, I'm pretty sure this is one of those things I used to know how to do but I forgot. I hate getting older.

Jennifer

 

[VoG]

Is this a start?

Range("A1:A100").SpecialCells(xlCellTypeVisible).EntireRow.Select

 

[Mike Blackman]

Hi,

Simply has to be a better way then this but...

Sub NextVisibleCell()

    If Selection.Row = 1 Then Exit Sub
    
    Selection.Offset(-1).Select
    
    Do Until Selection.EntireRow.Hidden = False
        Selection.Offset(-1).Select
    Loop

End Sub

 

[9tanstaafl9]

Is this a start?

Range("A1:A100").SpecialCells(xlCellTypeVisible).EntireRow.Select

Actually though, I only want to select the very next visible cell directly above the cell that is currently selected. Kind of like using the arrow key to go one up, because the rows are hidden.

Ok, I am the world's stupidest person. Could I just use the arrow key to go one up? Duh. I appologize. Forget I asked the question. Is there a way to delete this post. Which of these emoticons means I am so embarassed?

I have been up all night on other macro issues. I am not entirely stupid under normal circumstances!

 

[VoG]

I think I'm the stupidest person for failing to read the question properly

 

[9tanstaafl9]

Hi,

Simply has to be a better way then this but...

Sub NextVisibleCell()
 
    If Selection.Row = 1 Then Exit Sub
 
    Selection.Offset(-1).Select
 
    Do Until Selection.EntireRow.Hidden = False
        Selection.Offset(-1).Select
    Loop
 
End Sub

Just realized this myself. I have been up all night trying to finish this project for a deadline. This question related to a very minor other issue that was the last thing keeping me up. Brain fart!

 

[9tanstaafl9]

NEVERMIND. sORRY.