column dates

  • Thread starter Thread starter Gary
  • Start date Start date
G

Gary

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
 
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

--
HTH

Bob

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