ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Opening Built-In Custom AutoFilter Dialog Box Programmatically (https://www.excelbanter.com/excel-programming/361570-opening-built-custom-autofilter-dialog-box-programmatically.html)

[email protected]

Opening Built-In Custom AutoFilter Dialog Box Programmatically
 
Hello,

I would like to know if it possible to open the built-In Custom
AutoFilter dialog box programmatically.

Manually I get it through selecting a filtered field, followed by
choosing "Custom..." in the pull down list. The automatic solution is
not in the help files as far as I know.

By the way,

Application.Dialogs(xlDialogFilter).Show

and

Application.Dialogs(xlDialogFilterAdvanced).Show

are not the one I exactly need. Is there a workaround?

Thanks in advance,

Nico Sterk


K Dales[_2_]

Opening Built-In Custom AutoFilter Dialog Box Programmatically
 
The menu you see when you select an autofiltered column is not one of the
Excel Dialogs, as you note. I don't know how to activate that menu
programatically, but you can set the autofilter criteria automatically
through the Range.AutoFilter method - see help for details. If you want to
make this interactive you may need to build your own custom dialog (userform)
for the user to enter the criteria.
--
- K Dales


" wrote:

Hello,

I would like to know if it possible to open the built-In Custom
AutoFilter dialog box programmatically.

Manually I get it through selecting a filtered field, followed by
choosing "Custom..." in the pull down list. The automatic solution is
not in the help files as far as I know.

By the way,

Application.Dialogs(xlDialogFilter).Show

and

Application.Dialogs(xlDialogFilterAdvanced).Show

are not the one I exactly need. Is there a workaround?

Thanks in advance,

Nico Sterk



Aijik

Opening Built-In Custom AutoFilter Dialog Box Programmatically
 

Try this

Application.ExecuteExcel4Macro "FILTER?(1)"

where 1 is the number of column

or for a predefined value:

Application.ExecuteExcel4Macro "FILTER?(1, ""sometext"")"


--
Aijik
------------------------------------------------------------------------
Aijik's Profile: http://www.excelforum.com/member.php...o&userid=34691
View this thread: http://www.excelforum.com/showthread...hreadid=542394



All times are GMT +1. The time now is 05:25 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com