combobox is not filtering my listbox

[paulazierra]

Hi I have developed a code to filter a listbox2 using a combobox3, but Iam still having problems trying to get two parts of the code working. If anyone can help me out I would appreciated

My problems are these:

PROBLEM
Combobox3 must filter the lanes of the listbox2 if the column D located in data sheet equals 1 for that lane (to see this problem go to the userform in the breakdown tab

If someone can look my code and tell what iam doing wrong I would post my file. Thanks in advance

Paula

[Leith Ross]

Hello Paula,

Welcome to the Forum!

Please try posting the workbook again. It did not come along with your post.

To Attach a File:
1. Scroll down to the window below your post Additional Options
2. In the frame Attach Files you will see the button Manage Attachments
3. Click the button.
4. A new window will open titled Manage Attachments - Excel Forum.
5. Click the Browse... button to locate your file for uploading.
6. This will open a new window File Upload.
7. Once you have located the file to upload click the Open button. This window will close.
8. You are now back in the Manage Attachments - Excel Forum window.
9. Click the Upload button and wait until the file has uploaded.
10. Close the window and then click Submit.

[paulazierra]

Hi, sorry I didn't know how to upload the file.

Thanks for the instructions, here is my file at this address:

http://www.speedyshare.com/files/23424547/Lanes2.xls

Please let me know if I need to clarify the way i explained my problems

Paula

[royUK]

See if this example helps


FilterForm.zip

[paulazierra]

Hi thanks for the example, but what i need is not completely in the example. If you can help Iam having two problems, first I would like my combobox3 filter my listbox2 and also the combobox3 should filter the listbox2 if the information in the "data" sheet on column D equals -1 for that lane. This is how the information in my data sheet looks like:

A B C D
INVOICE CONTAINER LANE STATUS
B 1 2 -1

this is the code iam using:

 Sub populateComboBox1(sCombo1 As String)
Dim rngCell As Range
Dim rSource As Range
Dim CW As String
Dim WS As Worksheet
Dim lMaxRows As Long
Dim lRow As Long
Dim i As Integer

    Set WS = Sheets("Combo2")
    WS.AutoFilterMode = False
    WS.Cells.Clear
           
    Sheet11.AutoFilterMode = False
    Sheet11.Range("A:B").Copy
          
    WS.Range("A1").PasteSpecial
          
    Set rngCell = WS.Range("A:B").Find("*", Cells(1, 1), , , xlByRows, xlPrevious)
           
    If rngCell Is Nothing Then GoTo End_Sub
          
    lMaxRows = rngCell.Row
    Set WS = Sheets("Combo2")
          
    With WS
        For lRow = 1 To lMaxRows
            .Cells(lRow, "C") = lRow
        Next lRow
              
        .Range("a:a").AutoFilter field:=1, Criteria1:="<>" & sCombo1
        lMaxRows = .Cells(Rows.Count, "C").End(xlUp).Row
    End With
              
    If (lMaxRows > 1) Then
              
        WS.Rows("2:" & lMaxRows).Delete
          
    End If
          
    WS.AutoFilterMode = False

    Set rSource = WS.Cells(2, 3).CurrentRegion
    With Me.ListBox2
               
        .ColumnCount = 2
        .RowSource = rSource.Address(External:=True)
        For i = 1 To rSource.Columns.Count
            CW = CW & rSource.Columns(i).Width & ";"
        Next i
        .ColumnWidths = CW
        .ListIndex = -1
        .Width = 180
        .MultiSelect = fmMultiSelectMulti
    End With
          
End_Sub:
    Set rngCell = Nothing
          
End Sub

[royUK]

To best describe or illustrate your problem you would be better off attaching a dummy workbook, the workbook should contain the same structure and some dummy data of the same type as the type you have in your real workbook - so, if a cell contains numbers & letters in this format abc-123 then that should be reflected in the dummy workbook.

If needed supply a before and after sheet in the workbook so the person helping you can see what you are trying to achieve.

Doing this will ensure you get the result you need!