6 star ranking system: how to select a rating by clicking on one of the stars

[Bas_R]

Hello again,

For my music database I set up a system of IF-formulas to turn a numeric rating into a 6 star visual. Now I want to make it possible to click one of the stars to change the rating. I understand I need to set up a macro but I am a newb with VBA. Can anyone tell me the needed code? I would also need a button to remove any rating. I attach the worksheet.

Thanks!

[karedog]

How if the setup is like the one in the attached file ?

The code is :

Please Login or Register  to view this content.

[Bas_R]

Thank you!!!

[karedog]

You are welcome.
Don't forget to mark this thread as solved :
please select Thread Tools from the menu link above and mark this thread as SOLVED. Thanks.

[mikerickson]

I think this will do what you want.
If you put this in the code module for the sheet, it will set the ratings when you click on your stars.
Since Selection is so volatile, it also creates an Undo (ctrl-Z)

Please Login or Register  to view this content.

To keep the unDo and ReDo stacks clean, this code should be put in the ThisWorkbook code module

Please Login or Register  to view this content.

The Clear Ratings button calls this code in a normal module

Please Login or Register  to view this content.