Populate multiple column listbox

Hi All!

Id Like to populate a multiple column listbox using a textbox and a commandbutton, i would like 7 columns and my data within these columns to come from one of my data tabs 'PRIMARY'.

The data i'd like to populate my listbox is (in the order id like it) in column J, column A, column FP, column B, Column FO, column FM and column FN.
J = WO No.
A = Wp No.
FP = BM No.
B = Quality
FO = Location
FM = Date of manufacture
FN = ORGANIC Y/N?


I would like to be able to automatically filter out certain results based on the selection of two checkboxes - checkbox1 to add a filter to INCLUDE beams currently in Quarantine - and checkbox2 to add a filter to INCLUDE results 'IN LOOM'



Im sure this is possible, as ive managed to pull bits of data through into my listbox, but as for filtering i have become very stuck!!

Thanks in advance for any help anyone can offer!

Hi Pepe Le Mokko!

This isnt an advert? im looking for help?

Josh

Attachment 653351Attachment 653352Attachment 653353


I have managed some of the code, but am nowhere near filtering the data yet, for a standard search i would only like to include results from locations R1-R10
including results from quarantine checkbox would include Qu1 and Qu2
including results from in loom would include from 501-570

here is the code i have so far..

Dim rng As Range
Dim ws As Worksheet
Dim i As Integer

Set ws = Worksheets("PRIMARY")
Set rng = ws.Range("A:GO")
Set fnd = rng.Find(TextBox1)
If fnd Is Nothing Then MsgBox TextBox1 & " not found": Exit Sub
Set first = fnd
With ListBox1
.Clear
.AddItem fnd.Offset(, 1)
.List(.ListCount - 1, 1) = fnd.Offset(, 9)
.List(.ListCount - 1, 2) = fnd.Offset(, 0)
.List(.ListCount - 1, 3) = fnd.Offset(, 171)
.List(.ListCount - 1, 4) = fnd.Offset(, 1)
.List(.ListCount - 1, 5) = fnd.Offset(, 170)
.List(.ListCount - 1, 6) = fnd.Offset(, 168)
.List(.ListCount - 1, 7) = fnd.Offset(, 169)

Do
Set fnd = rng.FindNext(fnd)
If fnd.Address = first.Address Then Exit Do
.AddItem fnd.Offset(, 1)
.List(.ListCount - 1, 1) = fnd.Offset(, 9)
.List(.ListCount - 1, 2) = fnd.Offset(, 0)
.List(.ListCount - 1, 3) = fnd.Offset(, 171)
.List(.ListCount - 1, 4) = fnd.Offset(, 1)
.List(.ListCount - 1, 5) = fnd.Offset(, 170)
.List(.ListCount - 1, 6) = fnd.Offset(, 168)
.List(.ListCount - 1, 7) = fnd.Offset(, 169)
Loop
End With


Thanks in advance for any help anyone can give!!!