If then for acopy paste

I'm looking for a fairly simple if then macro to do the following (but in code that actually works).

Please Login or Register  to view this content.

loop through A100
repeat with columns B, C, D, E, F.....P

(In other words, I want all cells that read "no" to have the same text as the cell at the top of the column.)

There should be a simple example attached.

See if this helps

Please Login or Register  to view this content.

Weirdly. It worked once at copying A1 to all the cells with "no", but now it doesn't do anything. I haven't changed anything. I've never had a macro run only once.

Also, I didn't want to copy A1 to all the cells. I wanted to copy the top of the column. So if cell B6 = No, then I wanted to copy B1. If D56 = No, then I wanted to copy D1.

Thanks for the quick post. Seems like your solution is pretty close.

Try:

Please Login or Register  to view this content.

Apologies, seems like I misinterpreted top of the column as 'always A1' , Mumps1 solution should do the exact trick for you.. Update thread as "solved" if its query is resolved. Thanks.

Originally Posted by Jiptastic

Weirdly. It worked once at copying A1 to all the cells with "no", but now it doesn't do anything. I haven't changed anything. I've never had a macro run only once.

May be that's because once you run this macro, there is no cell left in the given range with 'no' in it.

Not only is this solution brilliant. But it's brilliant.