Question : How to change a date value (cell value)

I like to know how to increment the date value in excel by macro, here is the requiremnt

cell value (say A1) is "01-jan-2008"

base on this A1 value I will like to add 7 day to this value so that it will become "08-jan-2008" and then duplicate the value to A10.
logic:
1) build a button to trigger the action
2) if A1 is a date value,
validate the date to check if the date is the correct date,
if not , allow user to change the date value
perform add 7 day to the value
copy A1 to A2..A10
else
error message
fi

thank you,

Answer : How to change a date value (cell value)

Yeah, for some reason, it doesn't like going back to TEXT. One way is to use an apostrophe prefix, which denotes TEXT....

                       
         
           
           
             Sub IncrementDate()
    If Not IsDate(Range("A1")) Then
        Range("A1") = Application.InputBox(Prompt:="Cell A1 does not contain a valid date." & _
                                                   vbCrLf & "Enter a valid date...", Type:=2)
    End If
    Range("A1") = Range("A1") + 7
    Range("A1").AutoFill Range("A1:A10"), xlFillCopy
    Dim r As Long
    For r = 1 To 10
        Cells(r, "A") = "'" & Format(Cells(r, "A"), "dd-mm-yy")
    Next
End Sub

           
         

Open in New Window

Select All