Message Box With Cell Refferences
Greetings,
I am trying to get a msgbox to show me 2 pieces of data after coming
out of a UserForm.
The cells are in column B and D of the target row.
Here is the code that will pick the row, and link all but those two
cells to my "Enter" sheet:
Private Sub GetCustInfo_MatchFound_Button_Click()
If GetCustInfo_ListBox.ListIndex = -1 Then Exit Sub
Set FoundCell = Range("MyRange").Find(GetCustInfo_ListBox, , _
xlValues)
If Not FoundCell Is Nothing Then
Range("SI_CI_Chooser") = FoundCell
End If
Unload Me
Sheets("Enter").Activate
'Here I turn on and off my control buttons - I'll skip this part
'This is the code I tried but I soon realized that I do not know how
'to make this work
MsgBox "First Date " & Range("foundcell").Offset(0, 2)
Anybody have a suggestion on how to see the contents of columns B and
D of the chosen row?
TIA
-Minitman
|