adding balloons

[niyrho]

I am using validation to create drop down boxes that refer to a list on another worksheet. Does anyone know how to add a balloon to the drop down box that refers to another column in the corisponding row of the same worksheet?

 

[mattrx731]

This works so far...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim balloon As String
Dim myRow As Integer
If Target.Address <> "$A$1" Then Exit Sub
myRow = Application.WorksheetFunction.Match(Target, Sheet2.Range("$A$1:$A$8"), 0)
MsgBox myRow
balloon = Sheet2.Cells(myRow, 2)
MsgBox balloon
Target.ClearComments
Target.AddComment.Text Text:=balloon
End Sub

All I changed was deleted an "S" after addcomment in the second to last line

Thanks for helping me learn a little more
Matt

 

[lenze]

Mattrx

Yep!! The "S" was a typo on my part. The code you just posted DOES work fine. Thanks for stepping in for me.
Did we, however, lose the OP? I hope the OP knows the MsgBox rows can be deleted.
lenze

 

[niyrho]

Thanks for the help guys. I think I just about got this thing ready to use in the field. Almost time for part 2, I gotta set it up with access so it will do full reports for accounting and human resources. That'll be a headache, lol. Thanks again.