Insert text based on criteria match

[thesolution]

I'm trying to do some criteria automation on sheet activate but I just cannot get it to work. I have it automatically pulling matching rows from another sheet. What I want it to do is to insert a new column then from that insert some text if the column to the left of the new column matches some criteria.

Please Login or Register  to view this content.

The above code is supposed to look for the string "safety" within the cell range. Then if there is a match, insert "Safety" into the next column. Can someone help me figure out why it's not working? The insert column works correctly.

[111StepsAhead]

Please Login or Register  to view this content.

The above code uses excels built in compare function. The code is searching all of column "A" for the word safety and if it finds it, the word 'Safety' is put into column B. You can change the ranges to whatever you need.

edit: Messed up one of the ranges. Should work now.

[thesolution]

I tried implementing that into the existing code and also as a stand-alone function, however both do not seem to work. The F column cells remain empty even though safety is most definitely in the relative E cell. Is the function case-sensitive?

[111StepsAhead]

Did you see the change I made to the range? I just ran the new code in my own workbook and it worked perfectly. It is not case sensitive so will pick up 'Safety' and 'safety'.

[thesolution]

I changed the range to match my needs. Can you check my file to see why it's not working? I put the code into a button. I removed all sensitive info from the spreadsheet.toolreport.xlsm

[111StepsAhead]

You didn't use my updated code as I explained in the original submission.

Also, put the code into the worksheet and not some module.

Finally, your button should be an ActiveX command button. If the button is called

CommandButton1

then your Sub should be labeled Sub CommandButton1_Click().

[thesolution]

Thanks, that solved it!