Losing One of Two Header Rows In When Autofilter Applied

[Ark68]

I'm having some issue with this code and I'm not certain where I need to make corrections.

        With ws_sdata
            If .AutoFilterMode = True Then .AutoFilterMode = False
            lrow = .Cells(.Rows.Count, "B").End(xlUp).Row
            Set filter_rng = .Range("A3:A" & lrow)
            .Range("A3").AutoFilter Field:=2, Criteria1:=inqtofind & "*"
            For y = 1 To .Range("B3").CurrentRegion.Rows.Count
                If .Cells(y, 2).EntireRow.Hidden = False Then
                    zcount = zcount + 1
                End If
            Next y
        End With

In my database, rows 1 and 2 are header rows. When I run the filter, row 2, a header row is hidden with this code.

 

[MARK858]

Autofilter requires a header row. Not sure at the moment why row 2 is getting hidden but what happens when you change your code to the below.
Not sure what your 2nd part of the code is supposed to do as you aren't doing anything with zcount

        With ws_sdata
            If .AutoFilterMode = True Then .AutoFilterMode = False
            lrow = .Cells(.Rows.Count, "B").End(xlUp).Row
            Set filter_rng = .Range("A2:B" & lrow)
            filter_rng.AutoFilter Field:=2, Criteria1:=inqtofind & "*"
            For y = 1 To .Range("B3").CurrentRegion.Rows.Count
                If .Cells(y, 2).EntireRow.Hidden = False Then
                    zcount = zcount + 1
                End If
            Next y
        End With

 

[Ark68]

Hi Mark858,
When this solution didn't work at first I tried a bunch of different things with this code specifically. They I decided to start further back in my code stepping through. I had another filter having had run on that same data earlier that was doing the same thing, so I changed it to reflect some of the changes you suggested. Seems to all be working now with a couple improvements from your solution. Thank you!

 

[MARK858]

The only issue now that I'm having, is instead of the filter being applied to row 2

Is there a header in row B2? you did change the range to row 2?

Set filter_rng = .Range("A2:B" & lrow)

 

[Ark68]

Hi Mark! You must have answered while I was editing my post. I found that yes I had indeed had the wrong range reference.

 

[MARK858]

You're welcome