View another column in userform

[ipbr21054]

Hi,

I currently use the code shown below.
It does what i require fine but now i also wish to get in ListBox the info from column E
Currently in the listbox i see say Tom Jones but it should now show say Tom Jones Music Singer etc etc
Please advise what i need to add & also where to put it etc.
I can then follow this advice for my other codes

Thanks

Private Sub TextBoxVehicle_Change()
  Dim r As Range, f As Range, cell As String, added As Boolean
  Dim sh As Worksheet
  
  Set sh = Sheets("DATABASE")
  sh.Select
  With ListBoxSearch
    .Clear
    .ColumnCount = 2
    .ColumnWidths = "100;0"
    If TextBoxVehicle.Value = "" Then Exit Sub
    Set r = Range("D6", Range("D" & Rows.Count).End(xlUp))
    Set f = r.Find(TextBoxVehicle.Value, LookIn:=xlValues, lookat:=xlPart)
    If Not f Is Nothing Then
      cell = f.Address
      Do
        added = False
        For i = 0 To .ListCount - 1
          Select Case StrComp(.List(i), f.Value, vbTextCompare)
            Case 0, 1
              .AddItem f.Value, i
              .List(i, 1) = f.Row
              added = True
              Exit For
          End Select
        Next
           If added = False Then
          .AddItem f.Value
          .List(.ListCount - 1, 1) = f.Row
        End If
        Set f = r.FindNext(f)
      Loop While Not f Is Nothing And f.Address <> cell
      TextBoxSearch = UCase(TextBoxSearch)
      .TopIndex = 0
      Else
      MsgBox "NO ITEM WAS FOUND USING THAT INFORMATION", vbCritical, "DATABASE SHEET ITEM SEARCH"
      TextBoxVehicle.Value = ""
      TextBoxVehicle.SetFocus
    End If
  End With
End Sub
End Sub

 

[ipbr21054]

Ive kind of sorted it but stuck now on one issue.
The code i have is shown below.

The code below checks down column G "CHIP"
In the listbox i then see my results.

Column G Column F Row number.
I dont see any info for a 4th column ?
What im trying to return is the following.

Column G Column A Column D Row

Ive never got my head around this.

Private Sub TextBoxChip_Change()
  Dim r As Range, f As Range, cell As String, added As Boolean
  Dim sh As Worksheet
  
  Set sh = Sheets("DATABASE")
  sh.Select
  With ListBoxSearch
    .Clear
    .ColumnCount = 4
    .ColumnWidths = "220;200;100;100"
   If TextBoxChip.Value = "" Then Exit Sub
    Set r = Range("G7", Range("G" & Rows.Count).End(xlUp))
    Set f = r.Find(TextBoxChip.Value, LookIn:=xlValues, lookat:=xlPart)
    If Not f Is Nothing Then
      cell = f.Address
      Do
        added = False
        For i = 0 To .ListCount - 1
          Select Case StrComp(.List(i), f.Value, vbTextCompare)
            Case 0, 1
              .AddItem f.Value, i
              .List(i, 1) = f.Offset(, -1).Value
              .List(i, 2) = f.Offset(, -1).Value
              .List(i, 2) = f.Row
              added = True
              Exit For
          End Select
        Next
        If added = False Then
          .AddItem f.Value
          .List(.ListCount - 1, 1) = f.Offset(, -1).Value
          .List(.ListCount - 1, 1) = f.Offset(, -1).Value
          .List(.ListCount - 1, 2) = f.Row
        End If
        Set f = r.FindNext(f)
      Loop While Not f Is Nothing And f.Address <> cell
      TextBoxSearch = UCase(TextBoxSearch)
      .TopIndex = 0
    Else
      MsgBox "NO CUSTOMER WAS FOUND USING THAT INFORMATION", vbCritical, "POSTAGE SHEET CUSTOMER NAME SEARCH"
      TextBoxChip.Value = ""
      TextBoxChip.SetFocus
    End If
  End With
End Sub