(pls I need help!) click object to select a cell and display the value to a txtbox

  • [h=2][ATTACH]n1215748[/ATTACH][/h] 3 days ago

    I'm Zim from the Philippines and I'm just a beginner in Excel vba. I'm really hoping that someone here can help with my little project for my work. I'm trying to create an evaluation form that will evaluate if our customer is likely to be satisfied or dissatisfied. I have attached here my unfinished file.

    I managed to put some highlighting effect when the mouse hover on my emoticons using 2 transparent label boxes. But what i would like to achieve is that when i click the label that makes the highlight effect visible, the 2nd label that hides the highlight effect should be disabled and select the corresponding "emotion" from cell AF5:AF14 and display the value to BegEmTxtBx.

    Thank you and more power.


  • Hi Zim,

    Firstly you don't need the secondary highlighting effect lables (Shapes) MouseMoves if you implement a reset routine which you call before making the Highlight Rectangle Visible, this works much better and I use this method for MouseOver effects on VBA UserForms ...

    To display the Emoticon's value to BegEmTxtBx simply use the Shape's Click Event.

    Private Sub FurLbl_Click()
    Sheet1.Cells(8, "I") = "Furious"
    Sheet1.Shapes("FurLbl").Visible = msoFalse
    End Sub

    Note: I also call the ResetShapes routine here to remove the Highlighting effect. If you move the mouse the Highlighting effect will reappear there is no way that I know of round this because you are using the MouseOver event to apply the highlighting.

    I have attached an updated spreadsheet for you.


    Tom Rowe...

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!