Results 1 to 3 of 3
  1. #1
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts

    code to replace date (2003)

    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

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: code to replace date (2003)

    Try this:

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

  3. #3
    Bronze Lounger
    Join Date
    Sep 2007
    Posts
    1,203
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: code to replace date (2003)

    Ctrl Find <my ten lines of code>, replace with <Hans one liner> <img src=/S/grin.gif border=0 alt=grin width=15 height=15>

    I had a feeling that there was an easier way!! <img src=/S/thankyou.gif border=0 alt=thankyou width=40 height=15>

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •