Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Ela 22 Cluj
 | Femeie
22 ani
Cluj
cauta Barbat
22 - 48 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
Source:
BEST - clear all filters in all tables on active sheet
Sub Clear_All_Table_Filters_On_Sheet()
Dim lo As ListObject
'Loop through all Tables on the sheet
For Each lo In ActiveSheet.ListObjects
'Clear All Filters for entire Table
lo.AutoFilter.ShowAllData
Next lo
End Sub |
GOOD - clear all filters in a specific table on active sheet
Sub Clear_All_Filters_Table()
Dim lo As ListObject
'Set reference to the first Table on the sheet
Set lo = ActiveSheet.ListObjects(1)
'Clear All Filters for entire Table
lo.AutoFilter.ShowAllData
End Sub |
OK - clear all filters in range on active sheet - DOES NOT WORK FOR TABLES
Sub Clear_All_Filters_Range()
'To Clear All Fitlers use the ShowAllData method for
'for the sheet. Add error handling to bypass error if
'no filters are applied. Does not work for Tables.
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End Sub |
|
|
| pus acum 5 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 748
|
|
More guides for Tables:
and
Modificat de TRaP (acum 5 ani)
|
|
| pus acum 5 ani |
|