04. marts 2008 - 21:22Der er
5 kommentarer og 1 løsning
Excel Worksheets åbne/lukke autofiltre
Jeg har brug for at at lukke/åbne autofiltre i alle/nogle af mine workheets. Jeg har lavet en makro, men da antallet af worksheets ændrer sig hele tiden, fejler makroen, hvis der er flere worksheets end makroen er lavet til. Der må være en lettere måde.
Sub TurnAutofilterOff() Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets If WS.AutoFilterMode Then WS.Range("A1").AutoFilter Next End Sub
Sub TurnAutofilterOn() Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets If Not WS.AutoFilterMode Then WS.Range("A1").AutoFilter Next End Sub
nej der gik vist for meget "gehør" i den, men bak's virker fint
du kan også anvende denne som fjerner filter hvis de er sat eller indsætter hvis de ikke er
Sub Filter() For Each sh In ThisWorkbook.Sheets sh.Range("A1").AutoFilter Next End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
