Advance By Month With A CommandButton

[Minitman]

Greetings,

I have a worksheet with a date in C10 in mmm/yyyy formant. I made a
CommandButton (NextMonth) to advance the date by 1 month. I have a
problem, I used +30 to advance which works for the short term.
However, I am going back 12 years and getting a lot of errors in the
date.

Is there anyway to advance by one month at a time?

Any help would be appreciated.

TIA

-Minitman

 

[Myrna Larson]

One way:

With ActiveSheet.Range("C10")
.Value = DateAdd("m",1,.Value)
End With

Another way

With ActiveSheet.Range("C10")
d = .Value
.Value = DateSerial(Year(d), Month(d) + 1, Day(d))
End With

 

[Bob Phillips]

There is a problem here if the following month has less days (31st Jan + 1
month = 31st Feb, or 2nd Mar), so this formula goes back to the last day of
the previous month. Not perfect but

=DATE(YEAR(C1),MONTH(C1)+1,MIN(DAY(C1),DAY(DATE(YEAR(C1),MONTH(C1)+2,0))))

 

[Bob Phillips]

oops missed the button bit.

--

HTH

RP

One way:

With ActiveSheet.Range("C10")
.Value = DateAdd("m",1,.Value)
End With

Another way

With ActiveSheet.Range("C10")
d = .Value
.Value = DateSerial(Year(d), Month(d) + 1, Day(d))
End With

 

[Minitman]

Hey Myrna,

This works great, thanks.

-Minitman