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

One way:

MsgBox "First Date " & FoundCell.Offset(0, 2).Value

This assumes that FoundCell is a public value declared in a regular code
module.




In article ,
Minitman wrote:

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?

Hey JE,

That works, thanks.

-Minitman

On Mon, 10 May 2004 10:41:03 -0600, JE McGimpsey
wrote:

One way:

MsgBox "First Date " & FoundCell.Offset(0, 2).Value

This assumes that FoundCell is a public value declared in a regular code
module.




In article ,
Minitman wrote:

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?