ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   How to show 'Custom Auto Filter' dialog? (https://www.excelbanter.com/excel-programming/378416-how-show-custom-auto-filter-dialog.html)

michael.beckinsale

How to show 'Custom Auto Filter' dialog?
 
Hi all,

What l would like to do using VBA is show the 'Custom Auto Filter'
dialog and additionally set the
'Show rows whe' to 'begins with'

Once the form is showing with the default as above l want to exit the
macro and pass control to the user. They would then enter the 'begins
with' criteria click OK and the rows would be filtered accordingly.

Any help in coding this / pointing me in the right direction gretafully
appreciated.

Regards

Michael Beckinsale


Nigel

How to show 'Custom Auto Filter' dialog?
 
I suspect you would be able to use the Application.Dialogs() function, but I
do not believe there is one for the filter selection drop down
Alternatively create your own userform and simulate the selection, then
apply this directly to the filter criteria settings.



--
Cheers
Nigel



"michael.beckinsale" wrote in message
oups.com...
Hi all,

What l would like to do using VBA is show the 'Custom Auto Filter'
dialog and additionally set the
'Show rows whe' to 'begins with'

Once the form is showing with the default as above l want to exit the
macro and pass control to the user. They would then enter the 'begins
with' criteria click OK and the rows would be filtered accordingly.

Any help in coding this / pointing me in the right direction gretafully
appreciated.

Regards

Michael Beckinsale




michael.beckinsale

How to show 'Custom Auto Filter' dialog?
 

Nigel,

I considered the 'input box' method but l really wanted to give the
user more choice with the custom filter and didn't want to re-invent
the wheel by re-constructing the same thing via a userform.

The following code does pretty much what l want. The only downside l
can see is that the criteria box has a ? in it and takes the focus.

Application.ExecuteExcel4Macro "Filter?(1,""?*"")"

Regards

Michael Beckinsale



All times are GMT +1. The time now is 11:17 PM.

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