column dates

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Gary - 22 Oct 2007 17:58 GMT

Column B, Rows 5 thru 50 is used to type in dates on a timesheet. Is it
possible to auto-fill dates in cells below a cell that a date has been typed
in, but then type in another date further down the column and all cells
below that reflect the new date?

For example there's 4 employees in column C rows 5 thru 8 and we would type
10/15/07 in B5 and all cells below B5 would automatically fill in with
10/15/07. The next day the same 4 employees would be in C rows 9 thru 12 on
10/16/07 and that new date would be typed into cell B9, with all following
cells changing to the new date.

Ideally not all the cells below the typed cell would be automatically filled
in, but only the ones that showed employee names in column C, but having all
cells in B rows 5 thru 50 is acceptable.

Regards,
Gary

Reply to this Message

Bob Phillips - 22 Oct 2007 18:30 GMT

Const TEST_COLUMN As String = "C" '<=== change to suit
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
.Range("B5").Resize(iLastRow - 4).Value = Range("B5").Value
End With

Signature

HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Column B, Rows 5 thru 50 is used to type in dates on a timesheet. Is it
> possible to auto-fill dates in cells below a cell that a date has been
[quoted text clipped - 13 lines]
> Regards,
> Gary

Reply to this Message