SendKeys to show Filter window in filtered column & put cursor in Search field

[2Took]

Once in filtered column header, it takes holding Alt and pressing Down Arrow to get filter window to show. Then it takes 8 Down Arrows to get cursor to end up in Search field. Below code fails...

Sub DropFilter()
    Range("E3").Select
    Application.SendKeys ("% + {Down}")
    Application.SendKeys ("{Down 8}")
End Sub

 

[Domenic]

Any reason why you're not using the AutoFilter method of the Range object?

In any case, try...

Sub DropFilter()
    Range("a1").Select
    Application.SendKeys ("%{Down}")
    Dim i as Long
    For i = 1 To 8
        Application.SendKeys ("{Down}")
    Next i
End Sub

 

[2Took]

Any reason why you're not using the AutoFilter method of the Range object?

If AutoFilter method of the Range object can accomplish the objective -- I'd love to see that code, as I understand SendKeys is recommended to be avoided

​

 

[Domenic]

Well, let's say that Sheet1 contains your data, and that the data starts at A1, and that Row 1 contains your headers, and that you want to filter Column E for "X"...

Worksheets("Sheet1").UsedRange.AutoFilter field:=5, Criteria1:="X"

Hope this helps!