Scroll to last cell with date

[sharky12345]

I have a series of dates in column E and I need to scroll to the last cell which has today as the current date.

If it makes a difference, the cells are formatted as "dd/mm/yyyy"

Anyone?

 

[MARK858]

Maybe...

Sub findlastdate()
Application.Goto Columns(5).Find(CDate(Date), , xlValues, , xlByRows, xlPrevious), True
End Sub

 

[sharky12345]

Cheers Mark - however, that gives me a run time error 5, Invalid procedure call or argument......

Any ideas?

 

[My Aswer Is This]

Try this:
Since you say Todays Date is in last cell with data in column E.

Sub Goto_Today()
'Modified 10/9/2019 4:02:05 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim j As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "E").End(xlUp).Row
Application.Goto Reference:=Range("E" & Lastrow), Scroll:=True
        With ActiveWindow
            i = .VisibleRange.Rows.Count / 2
            j = .VisibleRange.Columns.Count / 2
            .SmallScroll Up:=i, ToLeft:=j
        End With
Application.ScreenUpdating = True
End Sub

 

[MARK858]

Cheers Mark - however, that gives me a run time error 5, Invalid procedure call or argument......

Any ideas?

No error when I run it so no unless you are using a Mac.

Since you say Todays Date is in last cell with data in column E

M.A.I.T, that isn't what the question says.

 

[MARK858]

#sharky12345 , actually are your column widths wide enough to show the full date?

 

[sharky12345]

Thanks - got it working, not sure what I'd done but it works fine now.

Thanks to both for your help!

 

[My Aswer Is This]

Glad we were able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks - got it working, not sure what I'd done but it works fine now.

Thanks to both for your help!