copy and paste if dates match

Hi Excel Masters,

I am in need of help in creating a Macro to automate parts of my tedious daily tasks.

I will explain what I need to do using the attached Excel test file I created. There are dates that represent working days. I would like to compare equivalency of “Today’s date” from cell A2 to each of the dates starting in cell A10. If the two dates match, then I want cell B11 to be copied and pasted into cell B12, C11 to C12, F11 to F12 and G11 to G12. Also, if the dates match, I would like to copy and paste Daily update data from D2 to D12, D3 to E12, I2 to U12 and I3 to I12.

Today’s date will update automatically when the Excel file is opened. Same with the Daily Update numbers. There are formulas in the cells containing “formula 1” and “formula 2”.

Of course this is a much scaled down version of my original file and I can’t use formulas because numbers change daily and there is no history to recall from by using a vlookup.

Any help would be appreciated. I hope I'm being clear in what I'm looking to do.

Thanks in advance.

-Donkey
Test for data.xlsx

hi xladept,

i'm having some issues getting the code to work properly on my real data after i adapt the code in the same format. unfortunately i can't show you the real data because of secrecy and they are linked into other files.

however, for the following two activities, can you add something so that they do a paste special formula

Range("B" & r - 1).Copy Range("B" & r): Range("C" & r - 1).Copy Range("C" & r)
Range("F" & r - 1).Copy Range("F" & r): Range("G" & r - 1).Copy Range("G" & r)

also for the following two activities, can you add something so that they do a paste value

Range("D2").Copy Range("D" & r): Range("D3").Copy Range("E" & r)
Range("I2").Copy Range("H" & r): Range("I3").Copy Range("I" & r)



thank you