Insert comment

Hello all!!

I thought this would be simple but that's what I get for thinkin lol!!! I am just trying to add a comment with text in it if a cell text value is a matching value!
I've tried this but to no avail!! Note is a macro that I created but if there is a better way, that's even better!

TIA

Sub worksheet_change(ByVal target As Range)
Set target = Range("G2:G500")
If target.Text = "xxxxx" Then
 Call Note
 Else
End If
End Sub

You'll need to post the code for your Note macro, as well as explaining exactly what the undesired results are. Even better would be attaching a sample workbook, which you can do by clicking Go Advanced, then Manage Attachments.

Originally Posted by Melvosh

You'll need to post the code for your Note macro, as well as explaining exactly what the undesired results are. Even better would be attaching a sample workbook, which you can do by clicking Go Advanced, then Manage Attachments.

I've removed the macro that I had just to simplify the process. I would like to do it without a macro if possible! No personal info involved here!

Based on your workbook, this should do what you want:

Sub worksheet_change(ByVal target As Range)
    If target.Column = 2 And target.Text = "Walmart" Then
        target.AddComment
        target.Comment.Visible = False
        target.Comment.Text Text:="Your Name:" & Chr(10) & "Text Here"
    End If
End Sub

I use the basic form from excel when entering these things. Makes thing a little easier. It works doing it without the form but not with it. Is there something different to put in the code? Otherwise, it works manually!

Originally Posted by jarhead58

I use the basic form from excel when entering these things

What do you class as a basic form? Userform? Inputbox? Something else?

There is no evidence of any form in your sample, so there is nothing to link the code to.

If it's a userform then adding False at the end of the .Show line should allow other code to run while it is open, but you will still need to call each part correctly to ensure that it does what is required.

I was using the Excel form from the command items which is on the Toolbar. I ended up just creating my own form while I was waiting. I also put a line of code that, I believe, should sort the data from newest to oldest. Literally just finished it. I'll upload what I have. It appears that part isn't working. I did get the Comment part to work though finally!

It's my understanding that macros are put on hold while the built-in data form is open. I haven't worked with the built-in form in the past, so I don't know how well it plays with VBA. You might be able to call the form with a macro, and within that macro test for changes, but that's beyond my skillset. I'll see if I can get other folks in on this one.

There is another problem that it looks like you missed. Your form is not adding new entries to the list, it just keeps overwriting the first entry.

The cause is in this line

NR = .Range("H" & .Rows.Count).End(xlUp).Row + 1

Column H is empty, so NR is always going to be 1. With the +1 at the end of the line, the code is only ever going to run on row 2. Changing "H" to "A" will sort that and everything should run as expected.