Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Slicer: meerdere opties kunnen aanduiden vastzetten  (gelezen 966 keer)

0 leden en 1 gast bekijken dit topic.

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Slicer: meerdere opties kunnen aanduiden vastzetten
« Gepost op: 18 juli 2022, 11:01:15 »
Beste,

Ik heb een paar slicers gelinkt aan 2 tabellen. Als ik dan een verandering doe in een slicer passen de 2 tabellen zich aan.
Nu zou ik graag voor een paar slicers standaard meerdere opties kunnen aanduiden. Telkens als je de excelfile opslaat, sluit en terug opent moet je telkens rechts bovenaan aanduiden dat je meerdere opties tegelijk kan selecteren.
Hoe kan je aangeven dat dit standaard opstaat als je de excelfile opent?

Alvast bedankt voor jullie info
Groetjes
Mart

Offline Warme bakkertje

  • Volledig lid
  • **
  • Berichten: 215
  • Geslacht: Man
Re: Slicer: meerdere opties kunnen aanduiden vastzetten
« Reactie #1 Gepost op: 18 juli 2022, 15:20:46 »
Probeer dit in het WorkBook_Open event

ActiveSheet.Shapes.Range(Array("slicer_header")).Select
Application.SendKeys "%s"

Wijzig slicer_header in de naam van je Slicer.

Wil je dit voor meerdere slicers zal je dit voor elk van hen moeten herhalen.
Windows 10 Home   NLD 64bit

Microsoft Office Professional Plus 2016 US

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: Slicer: meerdere opties kunnen aanduiden vastzetten
« Reactie #2 Gepost op: 18 juli 2022, 17:53:02 »
Ter aanvulling, bij gebruik van application.sendkeys wordt je numlock uitgeschakeld
Twee manieren om dat te voorkomen.

Sub jec()
Application.SendKeys "%s"
DoEvents
Application.SendKeys "%s"
End Sub

of

Sub jec()
CreateObject("WScript.Shell").SendKeys "%s", True
End Sub

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Re: Slicer: meerdere opties kunnen aanduiden vastzetten
« Reactie #3 Gepost op: 21 juli 2022, 03:49:06 »
Hey,

Beide bedankt voor jullie antwoord.
Antwoord 1 heb ik proberen toe te passen, maar reeds hier kreeg ik een bug:
Het tabblad heet "Pivot" en de slicer heet "Selectiegroep"

En dan krijg ik:
'Slicers aanpassen om meerdere te kunnen selecteren
Sheets("Pïvot").Shapes.Range(Array("Selectiegroep")).Select
Apllication.SendKeys "%s"


Wat kan er volgens jullie fout zijn aan het bovenstaande ?

Alvast bedankt
Mart

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 197
  • Geslacht: Man
  • Oplossing.be
Re: Slicer: meerdere opties kunnen aanduiden vastzetten
« Reactie #4 Gepost op: 21 juli 2022, 07:53:46 »
Pïvot
|-|aije

ik gebruik Office 2016 Professional Plus

Offline MartG

  • Lid
  • *
  • Berichten: 37
  • Geslacht: Vrouw
  • Oplossing.be
Re: Slicer: meerdere opties kunnen aanduiden vastzetten
« Reactie #5 Gepost op: 28 juli 2022, 21:48:16 »
Hi,

Ik had idd de benaming van het tabblad gebruikt en niet de benaming van de slicer.
Nu geeft de macro geen bug meer, maar hij zet de multiple selection van de slicer nog niet aan.
Het lijkt alsof die %s niet werkt...

Alvast bedankt
Mart

 


www.combell.com