adding comments

[mvhh]

i have made a spreadsheet on weight. i want a comment to come up if a certain number is entered. eg if number is less than 100, i want a comment to come up saying well done.

 

[mvhh]

ahh yes works now. what do i change to make it less than or equal to? last question i promise!

 

[VoG]

Just this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then 'C
    If Target.Value > 50 And Target.Value <= 100 Then MsgBox "Well done", vbExclamation
End If
End Sub

 

[mvhh]

ok brilliant thankyou for all the help. if i do a few more comments like that for different values, can i do it just below the first one? and do i need to change anything else?

 

[VoG]

Try like this

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then 'C
    If Target.Value > 50 And Target.Value <= 100 Then
        MsgBox "Well done", vbExclamation
    ElseIf Target.Value <= 50 Then
        MsgBox "You are anorexic", vbCritical
    Else
        MsgBox "Have you stuck to your diet", vbQuestion
    End If
End If
End Sub