Macro to insert text in a field if another field is > 0.

I have a situation where I need to analyze a range (F9:Q100) and if the cell contents are > 0 insert the header into another field . (See attached picture) Example: Referencing the attached picture, I would like column R to have the following text:

R8 PACKAGING CHANGE, CONTRACT CHANGE, UOM CHANGE
R9
R10 ITEM ADD, VENDOR CHANGE, ACTIVATE
R11
R12
R13 CONTRACT CHANGE
R14
R15 PACKING CHANGE
R16

Sample.png

I am having trouble writing the code to do this in VB. Any help would be appreciated.

Thanks,

Met

Maybe:

Please Login or Register  to view this content.

Or do you mean?

Please Login or Register  to view this content.

John,

Thanks for the quick response. However, I was unable to get either code to process the data like I need it to. (All of the cells under column "R" remain blank when I am expecting some to have text.)

Can you attach a sample file with some dummy data?

Book1.xlsm

Please find attached a basic sample file. I included Macro1 in the workbook.

Thanks,

Met

Met:

It didn't work because I assume your header information was in row 1.

Try:

Please Login or Register  to view this content.

Thanks, that did capture part of the information. However, the cell is being overwritten if multiple columns are tagged. For example, if you run the script in book1.xlsm the results listed in R9 will be: UOM CHANGE. Ultimately, what I want to see would be: PACKAGING CHANGE, CONTRACT CHANGE, UOM CHANGE.

I do appreciate the help you have provided.

Thanks,

Met

Try:

Please Login or Register  to view this content.

Try:

Please Login or Register  to view this content.

Perfect! I appreciate your help.

Met

You're welcome. Glad to help out and thanks for the feedback.