edate

[coquinn]

does anyone know how to use the edtae function in vba using worksheet function command?...Many thanks

 

[fairwinds]

Hi,

No. I think you need to:

x = Evaluate("=EDATE(A1, 4)")

 

[coquinn]

Are you sure as that does not seem to be working?...Thanks

 

[fairwinds]

Yes.

Have you analysis toolpack enabled?

 

[Zack Barresse]

Enable the add-in or reference (assuming english version) ATPVBAEN.XLA. Also, no need for the Evaluate method actually.

 

[Joe Was]

Try this, it is not the "EDate" but it does the same thing:

Sub myMonths()
Dim myNMos%, myMsg$
Dim startDate As Date


startDate = InputBox("Enter a starting date [mm/dd/ccyy]:")
myNMos = InputBox("Enter number of months to add," & vbLf & "positive for future date and negative for past date:")
myMsg = "New date: " & DateAdd("m", myNMos, startDate)
MsgBox myMsg
End Sub