'This is if you place the macro in your personal wb to be able to reset the filters on any wb you're currently working on. The one I use the most: Resetting all filters in the workbook that the module is stored in: Sub ResetFilters() open is assuming you need to open the workbook in question - different procedure if it's already open Set TestingWorkBook = Workbooks.Open("C:\Intel\.") 'The.
You can use this, by, for example, opening a workbook you need to deal with and resetting their filters before doing anything with it: Sub ExampleOpen() 'This removes "normal" filters in the workbook - however, it doesn't remove table filters However, I usually want to do the entire workbook Sub ResetAllWBFilters(wb as workbook) Useful if you need to make sure just one worksheet is clear. We can feed a specific worksheet to this macro which will unfilter just that one worksheet. 'This gets rid of "normal" filters - but tables will remain filtered We start with: Sub ResetWSFilters(ws as worksheet) This thread is ancient, but I wasn't happy with any of the given answers, and ended up writing my own. Hopefully this helps someone out there :) Sub ResetFilters() But since I had the same issue and tried a few of the options in this thread without success I combined some of the answers to get a working macro. I know this is a relatively old post and don't really like being a necromancer. Next 'Check next worksheet in the workbook Wrksheet.Protect Password:="Albuterol1", _
Wrksheet.ShowAllData 'This works for filtered data not in a table Wrksheet.Unprotect Password:="Albuterol1" 'Change the password to whatever is required Sub ClearFilters()įor Each wrksheet In ActiveWorkbook.Worksheets In the spirit of your submission, I add this to assist anyone else. I made just a minor addition to it so that the screen didn't flash and it removes and subsequently reapplies the password on each sheet as it cycles through. That is brilliant, the only answer I found that met my particular need, thanks SO much for putting it up!
0 kommentar(er)
