Finding the most recent, and oldest dates in a range

[Glove303]

I'm not sure why this doesn't work:

Sub min_max_date()

Dim MinDate As Date, MaxDate As Date

MinDate = Application.WorksheetFunction.Min(Range(Trades.Cells(5, 2), Trades.Cells(LastRow, 2)))
MaxDate = Application.WorksheetFunction.Max(Range(Trades.Cells(5, 2), Trades.Cells(LastRow, 2)))

End Sub

The range in question is cells that contain dates only.

MinDate and MaxDate only return 00:00:00

 

[wigi]

This works for me, given that the sheet Trades exists (as sheet name, not necessarily what you see in the sheet tabs at the bottom):

Sub min_max_date()

Dim MinDate As Date, MaxDate As Date

LastRow = 10

MinDate = Application.WorksheetFunction.Min(Trades.Range(Cells(5, 2), Cells(LastRow, 2)))
MaxDate = Application.WorksheetFunction.Max(Trades.Range(Cells(5, 2), Cells(LastRow, 2)))

End Sub

 

[Glove303]

Strange, I wonder why it won't work for me.

Don't worry, the sheet codename is Trades, so it isn't related to that.

It must be that my range is not in proper date format or something...

 

[wigi]

You could use the function:

=ISNUMBER(B2)

and drag down for the other cells.