K
Kieranz
Hi
I have a listbox in my userform in which i would like to have two
columns show up from my find result. I am mixed as to the coding of
which i have the extract below.
Thks Kz
With grSearchRng
Set C = .Find(gvFindX, , goLookIn, goLookAt, goSearchOrder, ,
gbMatchCase)
If Not C Is Nothing Then
sFirstAddr = C.Address
Do
ufFind.LstFound.AddItem "'" & C.Worksheet.Name & "'!"
& C.Address
If IsNumeric(C.Value) Then
Select Case C.Column
Case 9, 10
error here--> ufFind.LstFound.List(.ListCount - 1, 1) = C.Value
Case ElseEnd Select
ElseEnd If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> sFirstAddr
End If
End With
I have a listbox in my userform in which i would like to have two
columns show up from my find result. I am mixed as to the coding of
which i have the extract below.
Thks Kz
With grSearchRng
Set C = .Find(gvFindX, , goLookIn, goLookAt, goSearchOrder, ,
gbMatchCase)
If Not C Is Nothing Then
sFirstAddr = C.Address
Do
ufFind.LstFound.AddItem "'" & C.Worksheet.Name & "'!"
& C.Address
If IsNumeric(C.Value) Then
Select Case C.Column
Case 9, 10
error here--> ufFind.LstFound.List(.ListCount - 1, 1) = C.Value
Case ElseEnd Select
ElseEnd If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> sFirstAddr
End If
End With