Find Last Day of The Month And Do Something

[dgr]

Hello,
I'm looking for an Excel macro solution. I'm using Excel 2013.

I want to determine if today is the last day of the month. If yes, do something. If no, do nothing. Could you show me the code please?

Thanks.

 

[SteveO59L]

no need for vba

=IF(TODAY()=EOMONTH(TODAY(),0),"do something","do nothing")

 

[TheGlovner]

You will need to ensure you have the analysis toolpak add-in installed though. Developer tab > Add Ins Section > Add-Ins button > Analysis Toolpak.

 

[dgr]

I need a vba solution, thanks.

 

[Big Wade]

Try

Sub findDate()
Dim now As Date
Dim firstDay As Date
Dim lastDay As Date

now = Date

firstDay = DateSerial(Year(now), Month(now), 1)
lastDay = DateSerial(Year(now), Month(now) + 1, 0)

If now = firstDay Then
    'process
End If

If now = lastDay Then
    'process
End If

End Sub

 

[dgr]

Excellent help, Big Wade. Thank you very much. I appreciate it.

 

[strooman]

Sub Test()
If DateSerial(Year(ActiveCell.Value), Month(ActiveCell.Value) + 1, 0) = ActiveCell.Value Then
    MsgBox "Date is the last day of the month."
Else
    MsgBox "Date is Not last day of the month."
End If

End Sub