how do i define the oldest 2 dates in vba

[ayansen]

Hi everyone,

I am new to Excel programming and I have a question regarding finding the oldest 2 dates in a specific cell.

I am trying to build an application that automatically sends an email but can't seem to filter the 2 oldest dates which is why when I click on send, all the records are sent.

Please look at the my code and tell me what the problem is. Thanks

For i = 2 To Sheets("sheet1").Range("f65536").End(xlUp).Row
If Cells(i, 4).Value <= Date + 5 Then
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

 

[didIDo_that]

I'm not sure how your code is intended to find the two oldest dates, I suppose you have other code and you are looping through.

Once you know your range you can use the small function to find the two oldest dates, example below.

Dim oldestDate, secondDate As Date
oldestDate = Application.WorksheetFunction.Small(ActiveSheet.Range("C1:C22"), 1)
secondDate = Application.WorksheetFunction.Small(ActiveSheet.Range("C1:C22"), 2)

 

[ayansen]

Hey thanks a lot for your reply. Tho I tried it but it didn't work. Can I send you the file and then maybe you will have a better vision of that?

Thanks

 

[didIDo_that]

Can you attach it in the board?