Userform, insert comment in a worksheet

**BengtBrevik** · 10-27-2012, 04:52 AM

I have a Userform whit two dropdowns from where I select groupe and subgroupe, and a textbox where I write a number. It works fina. Now I want another textbox where I write a comment, and when I hit Updata I want the program to add a comment to the cell whera I updated whit the number. There is same problem whit the code between Userform and worksheets. Can somebody help me, Thanks Bengt Brevik

**Andy Pope** · 10-27-2012, 05:14 AM

Should help you get started.

Userform with textbox and commandbutton

Private Sub CommandButton1_Click()

    Dim objComment As Comment
    
    On Error Resume Next
    Set objComment = ActiveCell.Comment
    On Error GoTo 0
    
    If objComment Is Nothing Then
        ' new comment
        Set objComment = ActiveCell.AddComment
    End If
    
    objComment.Shape.TextFrame.Characters.Text = TextBox1.Text
    
End Sub