EDATE problem

[0 Agios]

what i want to do is add a new month, so if the previous cell says Aug 23 the new one should say Sept 23
this is my code and a sample of the page


Private Sub CommandButton1_Click()
ActiveCell.EntireColumn.Select
ActiveCell.EntireColumn.Copy ActiveCell.Offset(0, 3).EntireColumn
Selection.Copy
ActiveCell.Offset(0, 1).ColumnWidth = 1
ActiveCell.Offset(0, 2).PasteSpecial Paste:=xlPasteAll
ActiveCell.Offset(0, 0) = "=EDATE(R[-3]C,0)"
End Sub

 

[NoSparks]

perhaps that formula should be
=EDATE(RC[-3],1)

 

[Peter_SSs]

How would we know what the ActiveCell is?

 

[0 Agios]

i click on the yellow cell

 

[Peter_SSs]

So, did you try the suggestion made by @NoSparks ?

 

[0 Agios]

yes that's not the problem, if i use the formula +1 it does it for days only

 

[Peter_SSs]

if i use the formula +1 it does it for days only

Why are you talking about +1?

You said that if the original column said Aug-23 then the new column should be Sep-23. That is exactly what the code does for me if you remove your incorrect formula and replace it with the one suggested in post #2. I am assuming that the original yellow merged cell contains an actual date formatted to show month & year only.

Here is my sheet before the code

0 Agios.xlsm
	A	B	C	D	E	F	G
1	Aug-23
2	PROJECTS
3	a	1
4	b	2
5	c	3
6	d	4
7
Sheet2

And after:

0 Agios.xlsm
	A	B	C	D	E	F
1	Aug-23			Sep-23
2	PROJECTS			PROJECTS
3	a	1		a	1
4	b	2		b	2
5	c	3		c	3
6	d	4		d	4
7
Sheet2

Cell Formulas
Range	Formula
D1	D1	=EDATE(A1,1)

Isn't that what you wanted?

 

[0 Agios]

yes the formula works thank you

 

[0 Agios]

gives me "NAME"
ActiveCell.Offset(0, 0).Value = "=EDATE(ActiveCell.Offset(-3, 0), 1)"

 

[0 Agios]

please help with this