Results 1 to 5 of 5

Grouping multiple individual combobox filters

Threaded View

SHUTTEHFACE Grouping multiple individual... 12-16-2014, 05:04 PM
SHUTTEHFACE Re: Grouping multiple... 12-17-2014, 11:10 AM
SHUTTEHFACE Re: Grouping multiple... 12-17-2014, 12:37 PM
SHUTTEHFACE Re: Grouping multiple... 12-17-2014, 01:31 PM
SHUTTEHFACE Re: Grouping multiple... 12-18-2014, 11:55 AM
  1. #1
    Forum Contributor
    Join Date
    08-13-2014
    Location
    Chicago
    MS-Off Ver
    2013
    Posts
    209

    Grouping multiple individual combobox filters

    I currently have a number of individual combobox filters that filter individual columns in my table. The problem is, the way things are currently setup each time one of the filters is selected it only filers the rows for that particular filter/column. How can I group this so that if multiple criteria are selected, the table filters for the combination of the selected criteria. Here is the code I have so far for the individual filters:

    Private Sub cmbShiftFilter_Change()
    
        Application.ScreenUpdating = False
        
        Range("PSList").Rows.Hidden = False
        Row = 7
        Do While Cells(Row, 1) <> ""
            If cmbShiftFilter = "*" Then
                Range("PSList").Rows.Hidden = False
            ElseIf Cells(Row, 5) <> cmbShiftFilter.Value Then
                Rows(Row).Hidden = True
            End If
            Row = Row + 1
        Loop
    
        Application.ScreenUpdating = True
    
    End Sub
    
    Private Sub cmbLevelFilter_Change()
    
        Application.ScreenUpdating = False
        
        Range("PSList").Rows.Hidden = False
        Row = 7
        Do While Cells(Row, 1) <> ""
            If cmbLevelFilter = "*" Then
                Range("PSList").Rows.Hidden = False
            ElseIf Cells(Row, 6) <> cmbLevelFilter.Value Then
                Rows(Row).Hidden = True
            End If
            Row = Row + 1
        Loop
    
        Application.ScreenUpdating = True
    
    End Sub
    
    Private Sub cmbOverAvailFilter_Change()
    
        Application.ScreenUpdating = False
        
        Range("PSList").Rows.Hidden = False
        Row = 7
        Do While Cells(Row, 1) <> ""
            If cmbOverAvailFilter = "*" Then
                Range("PSList").Rows.Hidden = False
            ElseIf Cells(Row, 6) <> cmbOverAvailFilter.Value Then
                Rows(Row).Hidden = True
            End If
            Row = Row + 1
        Loop
    
        Application.ScreenUpdating = True
    
    End Sub
    Thanks!

    M
    Last edited by SHUTTEHFACE; 12-16-2014 at 05:23 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Independent multiple filters data with combobox
    By savyback in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 08-13-2013, 04:12 AM
  2. Help me to use grouping / filters
    By sarath25 in forum Excel General
    Replies: 1
    Last Post: 07-10-2012, 03:46 AM
  3. How to work filters in combobox when i type some some data in combobox
    By suresh mongam in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 05-29-2012, 04:50 AM
  4. Protecting individual cells and use filters
    By Cadu14 in forum Excel General
    Replies: 6
    Last Post: 12-10-2009, 01:29 PM
  5. Grouping Data/Filters over multiple Worksheets?
    By VolvicRevolver in forum Excel General
    Replies: 0
    Last Post: 05-24-2008, 10:39 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1