Controlling Cursor position with Macro

[bluegold]

Hi guys I'm hoping somebody can help me with this Macro code.

I want a macro that moves the cursor to the 1st empty row on column D or 1st empty row on column AP (the lowest row number should decide which column the cursor gets placed)
So if column D's 1st free row is lower than column AP than it should use Column D otherwise if Column AP's 1st free row is lower than column D than the cursor should go to column AP.

Is this clear?

 

[Smitty]

You'll want to get the scroll portion adjusted, but see if this gets you started:

Sub foo()
    Dim lr1 As Long
    Dim lr2 As Long
    
    lr1 = Cells(Rows.Count, "D").End(xlUp).Row
    lr2 = Cells(Rows.Count, "AP").End(xlUp).Row
    
    If lr1 < lr2 Then
        Application.Goto Reference:=ActiveSheet.Range("D & lr1), Scroll:=True
    Else
        Application.Goto Reference:=ActiveSheet.Range("AP" & lr1), Scroll:=True
    End If
    
End Sub

HTH

 

[bluegold]

You'll want to get the scroll portion adjusted, but see if this gets you started:

Sub foo()
    Dim lr1 As Long
    Dim lr2 As Long
    
    lr1 = Cells(Rows.Count, "D").End(xlUp).Row
    lr2 = Cells(Rows.Count, "AP").End(xlUp).Row
    
    If lr1 < lr2 Then
        Application.Goto Reference:=ActiveSheet.Range("D & lr1), Scroll:=True
    Else
        Application.Goto Reference:=ActiveSheet.Range("AP" & lr1), Scroll:=True
    End If
    
End Sub

HTH

Thanks Smitty but I get a syntax error on this line

Application.Goto Reference:=ActiveSheet.Range("D & lr1), Scroll:=True

The line is even highlighted red before I start the macro like its missing something?

 

[Smitty]

Sorry about that, I wrote it by hand, and missed a closing quote after the "D. It should be:

Application.Goto Reference:=ActiveSheet.Range("D" & lr1), Scroll:=True

 

[bluegold]

Thanks Smitty your're a legend

 

[Smitty]

Oops, I just noticed a goof in the Else statement:

Application.Goto Reference:=ActiveSheet.Range("AP" & lr1), Scroll:=True

It should be lr2, not lr1.