code to replace date (2003)

Topic

New Reply

I need to (using code)

Select and copy D2
Select D2000 xl.up to find the bottom data cell
Replace the bottom data cell up to D3 with the contents of D2.

D2 is a date (in the correct format). The rest of the rows may or may not contain a date, some dates are incorrectly formatted. This is due to a data merge from multiple sources.

Thanks

Reply | Quote

Replies

Try this:

Range(“D2”).Copy Destination:=Range(Range(“D3”), Range(“D2000”).End(xlUp))

Reply | Quote

Ctrl Find , replace with

I had a feeling that there was an easier way!!

Reply | Quote