Selected Answer
Ok, I got your workbook but you need to look into protecting your data before anything.
NOTHING IMPORTANT should be "hidden" in Excel. Excel is not a database and just about any user can access all of the data in the workbook with ease or with a simple google search and a little patience.
When I first opened the file I disabled all macros and got access to all of the data. When I enabled macros, I closed the form and canceled saving the file and got access to all of the data.
That said, if this is very important data, you need to be using Access or another database that has more powerful control systems integrated into it.
If you do want to keep all of this in Excel, first read this tutorial on requiring users to enable macros.
You need to follow those steps in the tutorial to require enabling macros, this will help keep your data secured.
After that, we can populate the userform listbox with the data you want.
Populate the Listbox with Rows of Data
Find the section of your code that starts like this:
Private Sub UserForm_Initialize()
You can view the form in the VBA editor window and then double-click it and find it in the window that opens.
Go down and replace this line:
ListBox1.List = Sheets("2016").Range("A2:AH" & [a65536].End(3).Row).Value
with this:
Set record_range = Sheets("2016").Range("B1:B30000")
record_count = 0
For Each user_record In record_range
If user_record.Value = "AMBALIN" Then
ListBox1.AddItem
ListBox1.List(record_count, 0) = Cells(user_record.Row, 1).Value
ListBox1.List(record_count, 1) = Cells(user_record.Row, 2).Value
'copy the last line and add 1 to the numbers in it for each column that you want
record_count = record_count + 1
End If
Next user_record
Follow the instructions from the comment and simply add this line:
ListBox1.List(record_count, 1) = Cells(user_record.Row, 2).Value
for as many columns as you want to appear, add 1 to the numbers that appear in the line of code each time you add it. The pattern is clearly visible in the code above.
