Formulier besturingselement (knop) verschuift bij het aansturen van een filtermacro.

[DaanZ]

Ik heb een excel sheetje gemaakt met een macro waarin regels worden verborgen en opengeklapt door een filter aan te sturen. Deze macro wordt aangestuurd door een formulierbesturingselement als opdrachtknop. Deze knop bevind zich boven de regels die worden weggefilterd.

Ik heb echter het probleem dat als de sheet na gebruik door een andere gebruiker wordt geopend, als de filter al is gebruikt en met een andere weergave is opgeslagen, dat de knop is verschoven en/of in formaat kleiner is geworden. Hoe vaker de sheet wordt geopend hoe kleiner de knop wordt, totdat deze zelfs zo klein is geworden dat deze bijna verborgen is. Hoe kan dit worden voorkomen?

De cel waarin deze knop zich bevind verandert niet in formaat door de macro/filter. De macro heb ik zo geschreven dat de sheet eerst wordt ontgrendeld om de filter aan te passen en deze dan opnieuw te vergrendelen. dit omdat sommige onderdelen van het werkblad beveiligd en onbeveiligd zijn, voor het geval dat iemand met de oplossing komt om te beveiliging anders zo in te stellen dat filters toch met beveilig kunnen wordt geactiveerd

Ik heb het volgende al geprobeerd:
1) in kenmerken van het besturingsformulier alle 3 die instellingen uitgeprobeerd met
-verplaats en formaat Gerelateerd aan cellen
-alleen verplaatsing gerelateerd aan cellen
-verplaatsing gerelateerd aan cellen
2) de knop zo klein gemaakt dat deze in 1 cel past.
3) met de beveiliging van de knop alle instellingen uitgeprobeerd

Ik heb als noodoplossing dat ik de knop anders in een ander werkblad plaats en de macro dan zo herschrijf dat de filter in het andere tabblad wordt aangestuurd, echter heb ik de knop liever in hetzelfde tabblad, omdat dit toch extra handeling is (navigeren naar andere tabblad).

Is er ook een manier om in VbA een programma te schrijven om de positie van de knop te herstellen en te resetten.

 

[route99]

Heb je een voorbeeld bestand zoals het nu is?

 

[cow18]

je moet gaan voor "verplaatsing en formaat niet gerelateerd aan cellen
Daarna zou je eigenlijk er geen omkijken meer naar hebben, filteren, veranderen van kolombreedte, verwijderen van kolommen zouden geen invloed mogen hebben

Zie macro hier onder,
die freefloating is die verplaatsing ... niet gerelateerd aan cellen
Met de andere 4 kenmerken kan je positie en grootte bepalen, maar eigenlijk hoeft dat niet meer.

Sub test()
   With ActiveSheet.Shapes(1)                    'je besturingselement
      .Placement = xlFreeFloating                'verplaatsing en formaat niet gerelateerd aan cellen

      .Top = 200                                 'afstand tot bovenkant werkblad
      .Left = 100                                'afstand tot linkerkant
      .Width = 50                                'breedte
      .Height = 50                               'hoogte
      MsgBox .TopLeftCell.Address
   End With