Automatically Change the Date

[seasmith]

I have a spreadsheet where I have the date in cell D2 next to a button. When I click the button I need code that checks to see if it has been a month since that date in cell D2. If it has been a month the date changes to the new date. I know I need to use an If else within this code but I am not quite sure how to get the date in D2 to automatically change if it has been a month. Any suggestions?

 

[Sthrncali]

This macro should work for you:

Sub Date_MonthsBetweenDates()
      Dim dBeginDate As Date
      Dim dEndDate As Date
      Dim intMonths As Integer
      ' Beginning date.
      dBeginDate = ActiveSheet.Range("D2").Value
      ' Ending Date.
      dEndDate = Date
      ' Calculate number of months between dates.
      intMonths = ((Year(dEndDate) - Year(dBeginDate)) * 12) + _
         Month(dEndDate) - Month(dBeginDate)
      ' Determine if date needs to be updated.
      If intMonths > 0 Then
      ActiveSheet.Range("D2").Value = Date
      End If
      
   End Sub