Navigating Rows Dynamic Range

[ZooTV92]

I have a range "LoopRange"

I have code to look through each row in the range

on command button click:

ActiveCell.Offset(-1, 0).Select

to move up, and on a separate button:

ActiveCell.Offset(1, 0).Select

to move down

My issue is that I would like that if the last row at the bottom is reached, it will jump back up to the first row, and vice versa.

Thanks in advance.

[tigeravatar]

ZooTV92,

Attached is a sample workbook based on the criteria you provided. The bordered section is a named range: "LoopRange". The Up and Down buttons are Form controls that are both assigned to the following macro:

Sub btn_Click()
    
    If Intersect(ActiveCell, Range("LoopRange")) Is Nothing Then
        Range(Split(Range("LoopRange").Address, ":")(0)).Select
        Exit Sub
    End If
    
    Select Case ActiveSheet.Buttons(Application.Caller).Caption
        Case "Up"
            If ActiveCell.Address = Split(Range("LoopRange").Address, ":")(0) Then
                Range(Split(Range("LoopRange").Address, ":")(1)).Select
            Else
                ActiveCell.Offset(-1, 0).Select
            End If
        Case "Down"
            If ActiveCell.Address = Split(Range("LoopRange").Address, ":")(1) Then
                Range(Split(Range("LoopRange").Address, ":")(0)).Select
            Else
                ActiveCell.Offset(1, 0).Select
            End If
    End Select
    
End Sub

Hope that helps,
~tigeravatar