VBA Coding, need help!

[BBC123]

Hi!
I am currently trying to figure out a VBA code (I’m not super familiar, but can grasp concept with little experience I have):
The coding is for a training tracking sheet.
I have a date in one cell, that will get over-written each year with the new training date.
the next cell over, Calculates the expiry date.. Which is the 1st of the next month, in the next year. However, if the training is completed within 90 days of the original expiry date, then the original expiry date stays the same, but adds a year only.
Is there anyone willing to help me create a VBA code for this? It seemed like it should be an easy fix, but I just can’t wrap my head around it.
Example; if training was done on February 4, 2020.. the expiry would be March 1, 2021 BUT if the training was completed January 2, 2021... the expiry would then stay at March 1, 2022 (just add a year)

thanks in advance, I’ve been stuck on this for a week now and I’m really hoping It’ll help my workload once Its done

 

[mrshl9898]

What happens if not within 90 days? what happens if after the expiry?

This will add a month and a year to a date, and make it the 1st of the month.

Sub adddate()

Dim trainingdate As Date

trainingdate = Range("A1")
expiry = DateSerial(Year(DateAdd("yyyy", 1, trainingdate)), Month(DateAdd("m", 1, trainingdate)), 1)

End Sub

 

[BBC123]

What happens if not within 90 days? what happens if after the expiry?

This will add a month and a year to a date, and make it the 1st of the month.

Sub adddate()

Dim trainingdate As Date

trainingdate = Range("A1")
expiry = DateSerial(Year(DateAdd("yyyy", 1, trainingdate)), Month(DateAdd("m", 1, trainingdate)), 1)

End Sub

hi, I have figured out how to code the 1st of the next month, but it’s just the 90 day clause that I’m stuck on.
If the training is done within 90 days of the expiry, then the original month and day stay the same, but adds one year.

If it’s not done within 90 days, then it regularly calculates 1st of next month, next year.

if after expiry, it calculates 1st of next month, next year.

Any ideas from here?

 

[BBC123]

Just to add one more thing.. I am meaning to say that if the training is done within 90 days before the expiry date, then the original expiry date stays the same but adds a year.

 

[mrshl9898]

Is this doing what you want?

If less training date is less than 90 days before expiry then add a Year and a Month (and change to the 1st) to the training date for the expiry

If the training date A2 is greater than the expiry B2 then B2 + 1 Year (same if less than 90)

Sub adddate()

trainingdate = Range("A2")
expiry = Range("B2")

If expiry - trainingdate < 90 Then
Range("B2") = DateSerial(Year(DateAdd("yyyy", 1, expiry)), Month(expiry), 1)
Else
Range("B2") = DateSerial(Year(DateAdd("yyyy", 1, trainingdate)), Month(DateAdd("m", 1, trainingdate)), 1)
End If

End Sub