Add one month to all the date...Closed

Question

Hello, 

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, i As Long

    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")

    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row

        For i = 3 To lRow
            .Range("A" & i).Value = DateAdd("m", 1, .Range("A" & i).Value)
        Next i
    End With
End Sub

Can somebody help me with this code to add one month to all the sheets in column A in my workbook. 

Code from this site <--REMOVED FOR SPAM-->
Configuration: Windows 7 / Chrome 34.0.1847.131

ac3mark · Answer

OK hang in there.....


So what part are stuck with?  

Where does the pasted code fail?

ac3mark · Answer

Look if you are going to cut and paste scripts/macros/vbscripts....

....please understand how to reverse engineer the code at least.....

...at this point you have earned yourself the title of......

[HORNS BLOW AND A BUNCH OF FANFAIR]

SCRIPTKIDDI3!

You must qualify your variables as follows, according to th3 script you cut....

Setting Description
yyyy    Year
q       Quarter
m       Month
y       Day of year
d       Day
w       Weekday
ww      Week
h       Hour
n       Minute
s       Second 
 

there really isn't a single programmer that will make it easy (for another programmer)!

Try some stuff and let us know where you are stuck!

ac3mark · Answer

I see you have posted again.  I am closing this thread.  You could always just add 31 to the cell!

Add one month to all the date...

3 responses

Subscribe To Our Newsletter!