VBA Autofilter

[kapi98]

Hi there,

I've been trying to merge these two codes in hundreds different ways but I didn't work out.

Could you please advice if there's a way to filter my data, and then, hide the filter arrows?

ActiveSheet.Range("$L$5:$Q$52").AutoFilter Field:=1, Criteria1:=4, _
    Operator:=11, Criteria2:=0, SubField:=0

Dim c As Range
Dim i As Integer
Dim rng As Range
Set rng = ActiveSheet.AutoFilter.Range.Rows(1)
i = 1
Application.ScreenUpdating = False
For Each c In rng.Cells
  c.AutoFilter Field:=i, _
      Visibledropdown:=False
  i = i + 1
Next
Application.ScreenUpdating = True

Thanks

 

[mrshl9898]

Well this worked. But removing the arrows cleared the filter

Sub Macro1()

Dim c As Range
Dim i As Integer
Dim rng As Range

ActiveSheet.Range("$L$5:$N$14").AutoFilter Field:=1, Criteria1:=4, _
    Operator:=11, Criteria2:=0, SubField:=0
    

Set rng = Range("$L$5:$N$14")
i = 1
Application.ScreenUpdating = False
For Each c In rng.Cells
  c.AutoFilter Field:=i, _
      Visibledropdown:=False
  i = i + 1
Next
Application.ScreenUpdating = True

End Sub

Turning the data into a table and adding a silcer may be an option.

 

[kapi98]

Unfortunately, I can't turn this into a table due to repetitive headings.

 

[mrshl9898]

VBA to hide the rows then I suppose. Everything else i'm seeing is about hiding the non filtered arrows.

 

[kapi98]

Exactly, this code only hides the filtrated arrows

ActiveSheet.Range("$L$5:$Q$52").AutoFilter Field:=1, Criteria1:=4, _
    Operator:=11, Criteria2:=0, SubField:=0, Visibledropdown:=False
Application.ScreenUpdating = True

 

[mrshl9898]

Think I get it now, had similar working with 1 criteria.

Sub Macro1()

Dim c As Range
Dim i As Integer
Dim rng As Range

Set rng = Range("$L$5:$Q$5")
i = 1
For Each c In rng.Cells
  c.AutoFilter Field:=i, Criteria1:=4, _
    Operator:=11, Criteria2:=0, SubField:=0
  i = i + 1
Next
Application.ScreenUpdating = True

End Sub

 

[kapi98]

I've already tried this combination but the filter returns no results, even though it should find two rows.