Add month to date

[buggy]

I would like to add one month to a date in a cell overwriting it wit
the new date. For example Cell A1 has the date 9/1/2004 and when m
macro is run A1 becomes 10/1/2004.

I can easily do this with the DATE(Year(a1),Month(a1)+1,day(a1) in
cell but I need to run it from the macro and overwrite the existin
cell.

Any help is appreciated

 

[Neil]

buggy,
Try this

Sub ChangeDate()
Dim Newdate
Newdate = DateSerial(Year(Range("a1")), Month(Range("a1")) + 1,
Day(Range("A1")))
ActiveSheet.Range("a1").Value = Newdate
End Sub

Neil

 

[Neil]

Watch the line wrap for newdate
Neil

buggy,
Try this

Sub ChangeDate()
Dim Newdate
Newdate = DateSerial(Year(Range("a1")), Month(Range("a1")) + 1,
Day(Range("A1")))
ActiveSheet.Range("a1").Value = Newdate
End Sub

Neil

 

[Frank Kabel]

Hi
in VBA
with activesheet.range("A1")
..value=dateserial(year(.value),month(.value)+1,day(.value))
end with


Note: this may give you wrong result for dates such as 31-Jan-2004