scroll through visible rows only

[Av8tordude]

I'm using this code to scroll through each row, however if the rows are filtered I would like to scroll through only the visible rows. Can someone assist with a vba code to only scroll through the visible rows. Thanks

Private Sub spNav_SpinDown()
Dim LRow As Long

LRow = Application.Max(7, Range("A" & Rows.Count).End(xlUp).Row)

If Range("A7") > vbNullString Then Cells(Application.Min(LRow, selection.Row + 1), "A").Select
end sub

 

[bebo021999]

May be:

Private Sub spNav_SpinDown()
Dim LRow As Long, cell As Range
LRow = Application.Max(7, Range("A" & Rows.Count).End(xlUp).Row)
If Range("A7") > vbNullString Then
    For Each cell In Range("A1:A" & LRow).SpecialCells(xlCellTypeVisible)
        If cell.Row > Selection.Row Then
            cell.Select
            Exit Sub
        End If
    Next
End If
End Sub

 

[Av8tordude]

Thank you for the help. Greatly appreciate it. Couple of question....

1. This works if I scroll down, but it does not work if I scroll up. What do I need to adjust?
2. Is there no way to adjust the 1-line code I used instead of looping through each row?

 

[Av8tordude]

anyone?

 

[Av8tordude]

After doing some research, I discovered this code. Only problem, it selects the entire row. How can I adjust the code to only move the cursor up 1 row without selecting the entire row?

    Dim i As Long

    For i = ActiveCell.Row - 1 To 2 Step -1
        If Rows(i).Hidden = False Then
            Rows(i).Select
            Exit For
        End If
    Next i

 

[MARK858]

What columns do you want selected?

 

[Av8tordude]

I don't want the entire column or row selected. I just want the cursor to move up or down on the visible rows only.

 

[MARK858]

Maybe...

Sub Option1()
    Dim i As Long

    For i = ActiveCell.Row - 1 To 2 Step -1
        If Rows(i).Hidden = False Then
            Cells(i, ActiveCell.Column).Select
            Exit For
        End If
    Next i
End Sub

 

[Av8tordude]

The code works great Mark. How do I stop it from passing the first filtered row?

Thank you very much. Greatly appreciate your help

 

[MARK858]

You're welcome