CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

mfynbo Juniormester

07. februar 2017 - 08:12 Der er 11 kommentarer

Macro til at resette udvalgte slicers.. kun dem der er aktiveret

Hej Eksperter,

Nedenstående macro er langsom, da den resetter alle mine slicers!
Jeg vil gerne have macroen til kun at resette de slicers, der er aktiveret.

Det må være noget med if aktiveret, så skal du resette eller lad sliceren være. men ved ikke hvordan jeg kobler det på nedenstående.

Nogen der kan hjælpe?
Hilsen Morten

Sub reset_filters()
ActiveWorkbook.SlicerCaches("Slicer_Chain").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_RegionMarketTree").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Channel").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Hierarchy").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Company").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Item_Group_tree").ClearManualFilter
ActiveWorkbook.SlicerCaches("Slicer_Fin_Department").ClearManualFilter
End Sub

Synes godt om

excelent Ekspert

07. februar 2017 - 09:19 #1

Prøv:

Sub ClearSlicer()
For Each sc In ActiveWorkbook.SlicerCaches
If sc.FilterCleared = False Then sc.ClearManualFilter
Next
End Sub

Synes godt om

mfynbo Juniormester

07. februar 2017 - 09:34 #2

takker.
Har dog et par filtre, som ikke skal cleares.. de skal blive.
Kan du komme omkring det?

Synes godt om

excelent Ekspert

07. februar 2017 - 10:31 #3

Sub ClearSlicer()
For Each sc In ActiveWorkbook.SlicerCaches
If sc.Name <> "Udsnit_xxx" And sc.Name <> "Udsnit_yyy" Then
If sc.FilterCleared = False Then sc.ClearManualFilter
End If
Next
End Sub

ret xxx og yyy til aktuel

Synes godt om

mfynbo Juniormester

07. februar 2017 - 13:52 #4

Hej, mange tak. Har lavet koden som nedenfor, men den kører ikke.
Kan du se, hvad jeg gør forkert?

Sub ClearSlicer()
For Each sc In ActiveWorkbook.SlicerCaches
If sc.Name <> "Slicer_Chain" And sc.Name <> "Slicer_RegionMarketTree" And sc.Name <> "Slicer_Channel" And sc.Name <> "Slicer_Hierarchy" And sc.Name <> "Slicer_Company" And sc.Name <> "Slicer_Item_Group_tree" And sc.Name <> "Slicer_Fin_Department" Then
If sc.FilterCleared = False Then sc.ClearManualFilter
End If
Next
End Sub

Synes godt om

excelent Ekspert

07. februar 2017 - 14:57 #5

Nej det ser rigtig ud
Prøv lige at tilføje som linje 2: msgbox sc.name
så kan vi lige teste om det er Udsnit_xxx eller Slicer_xxx eller noget helt andet

koden kan stoppes med ctrl+break

Synes godt om

mfynbo Juniormester

07. februar 2017 - 15:15 #6

hej, den kører igennem slicers.. og skriver slicer_.. men den tager også slicers, som jeg ikke har defineret.. det er der den går galt.. kan den kun tage dem jeg skriver efter if..?
bh
m

Synes godt om

excelent Ekspert

07. februar 2017 - 15:44 #7

De slicers du skriver efter IF i tråd #4 skal de ryddes eller skal de ikke ?
Hvis de ikke skal, hvilke skal så ?

Synes godt om

mfynbo Juniormester

07. februar 2017 - 16:35 #8

Hej, dem jeg nævner skal ryddes, hvis der er valgt filter til
Grunden til at den ik bare skal nulstille alle er at funktionen bliver langsom

Synes godt om

excelent Ekspert

07. februar 2017 - 17:50 #9

Koden rydder IKKE slicers som er uden filter samt de slicers der er nævnt i koden herunder

Sub ClearSlicer()
For Each sc In ActiveWorkbook.SlicerCaches
'følgende slicers resettes ikke
If sc.FilterCleared = False And sc.Name <> "Slicer_v1" _
And sc.Name <> "Slicer_v2" And sc.Name <> "Slicer_v3" Then sc.ClearManualFilter
Next
End Sub

Du skal altså blot udskifte Slicer_v1 og Slicer_v2 og Slicer_v3 med dine navne
Hvis du har flere eller færre end de 3 nævnte, så skal du tilrette koden til aktuel

Synes godt om

mfynbo Juniormester

08. februar 2017 - 09:36 #10

Hej det virker, mange tak.
Du ved vel ikke hvordan man slår extern data fra (olap cube) og til igen.
Vil gerne gøre dette i forbindelse med kørslen, da forbindelsen sænker hastigheden betragtelig?
bh
m.

Synes godt om

excelent Ekspert

08. februar 2017 - 09:52 #11

Nej men prøv at starte makro optager
slå så extern data fra og til igen mens optager kører
Det burde give en ide om hvordan

ellers indsæt den optagede kode her så kikker jeg på det

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Splitte tal og tekst Af HHA i Excel	11	I dag 11:52	I dag 15:14
Skrive tekst fra celle i formel Af SFrede i Excel	8	25/04/202414:54	26/04/202412:51
slette rækker automatisk Af torben lind i Excel	12	24/04/202418:52	26/04/202407:07
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS