Loop for "E3" = "D3" + 30 Days

[Gard5096]

I am trying to make a loop fill in all cells in column E (starting with row 3) with the date in column D plus 30 days. For example: If D3 = 12/1/12, then E3 = 12/31/12.

Here is what I have so far. The part where it gets tricky is :

= Cells(rIndex, "D" & Date + 30).Value

Please Login or Register  to view this content.

[tigeravatar]

Please Login or Register  to view this content.

You'll also need to format the cells as date afterwards. You can do that in the macro by using the Range().NumberFormat = "m/d/yy"

[rcm]

Just fix the line as follows:

Cells(rIndex, "E").Value = Cells(rIndex, "D").value + 30

[tigeravatar]

That being said, I'd recommend using this way instead of a loop:

Please Login or Register  to view this content.