Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 3 van 3

Onderwerp: slicer items dmv macro

  1. #1
    Vraag is niet opgelost

    slicer items dmv macro

    Hallo,

    Ik heb heb een button gemaakt die mijn slicers instelt zodat ik dat niet elke keer hoef te doen.
    Echter wijzigt dagelijks mijn bron data waardoor ik nu een fout 5 melding krijg.

    De rede is dat bij het maken van de macro die aan de button gekoppeld zit, niet alle gegevens overeen komen met het bron bestand.
    Wat ik bedoel is het volgende.
    De foutmelding gaat over onderstaande:

    Sub Demo()
    With ActiveWorkbook.SlicerCaches("Slicer_Probleemsubtype")
    .SlicerItems("S08-3 Admin Wijz.").Selected = True
    .SlicerItems("S09-1 Eenmalige fact").Selected = False
    .SlicerItems("S09-2 Faillissement").Selected = False
    .SlicerItems("S14-Algemeen").Selected = False
    .SlicerItems("(leeg)").Selected = False
    .SlicerItems("P09-3 Opzegvergoed").Selected = False
    End With
    Dit komt omdat "P09-3 Opzegvergoed" vandaag niet in de data voor komt.

    Bij het maken van de Macro is de waarde True bij de filter die je wel wil zien, en False voor alles wat je niet wil zien.
    Hierdoor is de code erg lang en en traag.

    Is het niet mogelijk om alleen de waarde in VBA te zetten die je wil zien, en dat de rest automatisch uit staat?
    Dus alleen alles wat True is en de rest (ongeacht wat erin de lijst staat) is False?

    Ik hoop dat iemand mij hierbij kan helpen.

    PS. is kon het bestand niet uploaden omdat deze te groot is.

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Zoiets:

    Code:
    Sub Demo()
    On Error Resume Next
    With ActiveWorkbook.SlicerCaches("Slicer_Probleemsubtype")
    .SlicerItems("S08-3 Admin Wijz.").Selected = True
    .SlicerItems("S09-1 Eenmalige fact").Selected = False
    .SlicerItems("S09-2 Faillissement").Selected = False
    .SlicerItems("S14-Algemeen").Selected = False
    .SlicerItems("(leeg)").Selected = False
    .SlicerItems("P09-3 Opzegvergoed").Selected = False
    End With
    On Error Goto 0
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Senior Member Gijsbert1's avatar
    Geregistreerd
    7 april 2016
    Locatie
    Krimpen aan den IJssel
    Afstand tot server
    ±139 km
    of zo?
    (Macro is niet zo snel als je veel sliceritems hebt)
    Code:
    Sub Demo()
        Dim sI As SlicerItem
        For Each sI In ActiveWorkbook.SlicerCaches("Slicer_Probleemsubtype").SlicerItems
            If sI.name = "S08-3 Admin Wijz." Then sI.Selected = True Else: sI.Selected = False
        Next
    End Sub

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren