• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

1 vestiging per slicer, andere opties uit

Status
Niet open voor verdere reacties.
P

Peekhamer

Gebruiker
Lid geworden
2 okt 2012
Berichten
146
Er zijn 14 tabellen en grafieken, allemaal gekoppeld aan een eigen slicer. Onderstaande code dient voor als er geen data in het bestand aanwezig was, de slicers verliezen dan hun selectie en geven dus allemaal de waarde van alle vestigingen weer. Dat wil ik niet maar wil ook niet handmatig moeten kiezen.
Onderstaande code is opgenomen via recorder maar er moet betere code dan deze zijn om een slicer per vestiging te selecteren. Ik weet niet hoe, kan iemand helpen?


Code: 
        With ActiveWorkbook.SlicerCaches("Slicer_Vestiging")
        .SlicerItems("Nummer1").Selected = True
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging1")
        .SlicerItems("Nummer2").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging2")
        .SlicerItems("Nummer3").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging3")
        .SlicerItems("Nummer4").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging4")
        .SlicerItems("Nummer6").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging5")
        .SlicerItems("Nummer11").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging6")
        .SlicerItems("Nummer7").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging61")
        .SlicerItems("Nummer8").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer14").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging7")
        .SlicerItems("Nummer9").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
   
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging8")
        .SlicerItems("Nummer10").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging9")
        .SlicerItems("Nummer12").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer13").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging10")
        .SlicerItems("Nummer13").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer14").Selected = False
    End With
    With ActiveWorkbook.SlicerCaches("Slicer_Vestiging11")
        .SlicerItems("Nummer14").Selected = True
        .SlicerItems("Nummer1").Selected = False
        .SlicerItems("Nummer2").Selected = False
        .SlicerItems("Nummer3").Selected = False
        .SlicerItems("Nummer4").Selected = False
        .SlicerItems("NUMMER5").Selected = False
        .SlicerItems("Nummer6").Selected = False
        .SlicerItems("Nummer7").Selected = False
        .SlicerItems("Nummer8").Selected = False
        .SlicerItems("Nummer9").Selected = False
        .SlicerItems("Nummer10").Selected = False
        .SlicerItems("Nummer11").Selected = False
        .SlicerItems("Nummer12").Selected = False
        .SlicerItems("Nummer13").Selected = False
    End With
 
volgens mij kan je gewoon al de regels met = False weggooien. en alleen de regels met true laten staan

het klinkt alsof je helemaal geen slicers nodig hebt als ze altijd op dezelfde waarde staan.
je kunt ook via worksheet.pivottabels een filter instellen.

maar als je meer gerichte hulp wilt zul je toch even met een voorbeeld bestandje moeten komen om te bezien wat in jou sitiatie de beste oplossing is.
 
In principe staan ze idd altijd op dezelfde waarde. Ik wil de andere waarden juist uitzetten voor het geval deze geselecteerd zouden zijn.
Filteren via de DT werkt niet als er een keer geen data is ingeladen, want dan valt er niets te filteren en is de selectie dus weg.
Als er daarna wel data is moet je al de selecties opnieuw instellen. Die slicers zijn dan erg handig.

Maar ik denk idd dat ik het anders moet oplossen. Beter checken of er brondata is of niet; dat lijkt me makkelijker bedenk ik me nu.
Bedankt voor je suggestie!
 
Best lastig die slicers:d
Geef bij slicerinstellingen de slicers de juiste naam. Dus Slicer_Vestiging geef je de naam Nummer1
Je kan dan deze code proberen.

Code: 
Sub VenA()
For Each sc In ThisWorkbook.SlicerCaches
    For Each it In sc.SlicerItems
        For Each sl In sc.Slicers
            If it.Name = sl.Name Then it.Selected = True Else it.Selected = False
        Next sl
    Next it
Next sc
End Sub
 
Daar moet ik denk ik wel wat mee kunnen, bedankt VenA.
Er zijn nog meer slicers aanwezig op het werkblad dus moet even kijken.

Ik zet m op opgelost!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan