0 Agios
Well-known Member
- Joined
- Feb 22, 2004
- Messages
- 570
- Office Version
- 365
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
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