listbox view

[aloggies]

Please assist i want display all info in a row in the listbox currently its only showing the data in the first line i presume its something to do with the offset please help me

Private Sub TextBox207_Change()
Dim rFound As Range
Dim sFirstAddress As String
Dim LName As String

LName = TextBox207.Value

Me.ListBox1.Clear

With Worksheets("Sheet1").Range("a:ab")
Set rFound = .Find(what:=LName, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)
If Not rFound Is Nothing Then
sFirstAddress = rFound.Address
Do
Me.ListBox1.AddItem rFound.Offset(1, 0).Value
Set rFound = .FindNext(rFound)
Loop While rFound.Address <> sFirstAddress
End If
End With




End Sub

 

[NdNoviceHlp]

Hi aloggies. It seems like this should work. HTH. Dave

Private Sub TextBox207_Change()
Dim Rng As Range, R As Range
Dim LName As String
Me.ListBox1.Clear

LName = TextBox207.Value
Set Rng = Worksheets("Sheet1").Range("a:ab")
For Each R In Rng
If LCase(R.Value) = LCase(LName) Then
Me.ListBox1.AddItem R.Value
Next R
End Sub

ps. Pleasse use code tags