Automatically filter rows by cell value

[mtdeilus]

Currently I'm working with a data table that I've built in True/False IF function in columns D and K. This allows the user to have 2 text boxes at the top of the table, which filter the table based on user entry.

I would like VBA to automatically remove the "false" rows which come back on value. Currently this is the VBA code I'm working with, which only is working for column K. I would like to have both of the rows work at once. I appreciate any help!

Matt

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Range("D7:D200")
If c.Value = False Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next c
Dim d As Range
For Each d In Range("K7:K200")
If d.Value = False Then
d.EntireRow.Hidden = True
Else
d.EntireRow.Hidden = False
End If
Next d
End Sub

 

[steve the fish]

What you are doing is hiding your unwanted rows in "D" and then unhiding them again when the macro continues to column "K". So to clarify if either cell contains false you want the row hidden?

 

[mtdeilus]

Yep any value with false would be hidden in the 2 columns.

 

[steve the fish]

Untested so try it on copied workbook first. Slight change to yours. Probably better way but vba not my strong point.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range

Cells.EntireRow.Hidden=False
    For Each c In Range("D7:D200")
        If c.Value = "False" Then
            c.EntireRow.Hidden = True
            Else: End If
    Next c
  Dim d As Range
    For Each d In Range("K7:K200")
        If d.Value = "False" Then
            d.EntireRow.Hidden = True
            Else: End If
    Next d
End Sub

 

[steve the fish]

That should be c.Value = "False"

 

[mtdeilus]

Worked perfectly, I appreciate the quick response!

 

[mtdeilus]

Just to follow up on this, I have my left two columns with 4 rows of search filters on my worksheet. When the rows automatically filter, is there any way to keep column A and B from moving? Freeze panes does not seem to work.