# filling every 23 rows

#### Peterfc2

##### Active Member
A1 holds a date 16/08/2014

A2 to A22 should be blank etc
A23 should be 23/08/2014 (Date +7 days)
A24 to A46 blank
A47 should be 30/08/2014 (Date +14 days)

etc for 40 weeks

Should know how to do this and fill down but my minds gone blank (pun)

### Excel Facts

Enter current date or time
Ctrl+: enters current time. Ctrl+; enters current date. Use Ctrl+: Ctrl+; Enter for current date & time.
Maybe something like this:

Code:
``````[COLOR=#0000ff]Sub[/COLOR] TestDateFill()

[COLOR=#0000ff]   Dim [/COLOR]b [COLOR=#0000ff]As Long[/COLOR]
[COLOR=#0000ff]    Dim[/COLOR] i [COLOR=#0000ff]As Long[/COLOR]

b = 7
[COLOR=#0000ff]    For[/COLOR] i = 23 To 920 [COLOR=#0000ff]Step[/COLOR] 23
Cells(i, 1).Value = Cells(1, 1).Value + b
b = b + 7
[COLOR=#0000ff]  Next [/COLOR]i

[COLOR=#0000ff]End Sub[/COLOR]``````

Assuming A1 = 16/08/2014

Replies
6
Views
237
Replies
6
Views
288
Replies
3
Views
419
Replies
3
Views
263
Replies
1
Views
227

1,214,494
Messages
6,119,875
Members
448,926
Latest member
Geoexeng

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back