copy date from one column to another

  • Thread starter Thread starter -D-
  • Start date Start date
D

-D-

I want to copy data from one column to another column, but add the copied
value to existing data. The field I'm copying from contains dates. The
field I'm copying to contains text.

For example:

Before the copy:
Column A Column B
3/21/2008 Lorem Ipsum dolor...etc.

After copy:

Column B
Lorem Ipsum dolor...etc. Date in: 3/21/2008


How can I accomplish this?

Thanks for any help.
Regards.
 
Sub addtocolb()
For Each c In Range("a2:a4")
c.Offset(, 1) = c.Offset(, 1) & _
" Date in: " & Format(c, "mm/dd/yyyy")
Next c
End Sub
 
Back
Top