Macro to check if Cell=today() then paste values in cells below

Hello,

See attachment for example

Example.xlsx

I'm working with reporting on some dynamic data from SQL where todays results are only available today, to handle this i'm using IF in excel to only update the value of the cells in question when the date above them is today's date. The issue this gives me is that while it displays values I want, if I were to add 1 to them, the result would become 1, losing the initial value. A workaround for this is if after I update the value through the IF forumla I copy/paste special values.

Effectively what I am looking for in a macro would be something along these lines:

IF value in a column in row 12 = today()
then select values in same column, rows 13 - 21
copy
paste special

end

Sorry for basically asking someone to write a macro for me but I've no experience doing it myself and have been trying to steal other code for a few days and just haven't been able to get it to work

Cheers,

Would have to be paste special values, removing the formula is the key to getting the result to display exactly how it needs to

Thank you very much both humdingaling and alansidman, works a charm.

One more question, I already have a VB script to open this report and update it (to get new data from SQL), would I be able to code it to run the macro as well?

Cheers,

Back again,

Have been trying to get this to update when the report is refreshed.

I've added the below to the worksheet that the update occurs on but now the code humdingaling provided is giving me an error method 'range' of object'_global' Failed on this this line of
Code that is now providing the error: For i = 3 To Range("c12").End(xlToRight).Column 'last column in row 12

Code that I'm using to make the macro run on update

Please Login or Register  to view this content.