Copying one cell to muliple cells

  • Thread starter Thread starter GW Dyson
  • Start date Start date
G

GW Dyson

Cell a1 is a date cell. Cells b1-b30 are date cells. What I am trying to do
is every time that I enter a new date in Ai, I want it to go to a blank cell
in b column and not over write the dates that are already there.

A B
2/3/04 1/6/04
1/20/04
1/25/04
2/3/04
 
right click sheet tab>view code>copy\paste this>format col B as desired date
save.
Click to expand...
Now when you put a date in a1 such as 8/1, the last cell+1 in col b will get
that date.

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Cells(Cells(Rows.Count, "b").End(xlUp).Row + 1, "b") = Target
End Sub
 
Back
Top