• 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.

Reset Keuzelijsten

Status
Niet open voor verdere reacties.
Je had in die macro:
PHP:
Range("E5:F5")
Maar dat moet toch zo?
PHP:
Range("E2:E4")
 
nee eigenlijk toch niet want de bedoeling is dat de keuzes wel blijven alleen dat het filter wordt gereset
 
Zo dan?
 

Bijlagen

  • Reset van keuzelijsten.xlsm
    26,4 KB · Weergaven: 82
dat is ook wel een mooie setup voor evetuele vervolgstappen. Maar de bedoeling is dat de keuzefilters zoals in A2 en A4 gewoon met een reset weer blanco worden.
 
Dan zet je de code voor het resetten toch onder de knop.
 
Bijvoorbeeld zo:
Code:
Sub reset()
ActiveSheet.Shapes.Range(Array("Drop Down 1")).Select
    With Selection
        .ListFillRange = ""
    End With
End Sub
 
@ VeNa - de opmerking code onder knop begrijp ik niet

@ Gijsbert - code werkt maar verwijdert ook de range. alleen het filter dient te worden gereset de range zoals in E2:e4 & F2:F4 moeten wel blijven
 
Is dit de bedoeling?
 

Bijlagen

  • Reset van keuzelijsten.xlsm
    25,8 KB · Weergaven: 61
Code voor je keuzelijsten in je openingspost.
In module blad1.

Code:
Sub reset()
 Me.Shapes(1).ControlFormat.Value = 0
 Me.Shapes(2).ControlFormat.Value = 0
End Sub
 
Goedemorgen,

thanks iedereen - laatste twee oplossingen werken zoals voorzien!
Weer een klein beetje wijzer!
 
Dan heb je de laatste blijkbaar niet getest. Of de spelregels zijn veranderd.
 
@VenA, hoezo?
 
@HSV, met jouw code blijven de keuzes niet staan in E5:F5 (zie #3) Anders zou
Code:
Range("E5:F5")= 0
ook voldoende zijn.
 
Vraag is 'Reset keuzelijsten'.

Dat doet het.
Als de vorige keuze moet blijven staan, is het inderdaad niet getest.

Range("e3:f5") op nul zetten is maar een half gebakken oplossing.
Koppel je de keuzelijst aan een andere cel?, moet je de code weer bijwerken.
 
allebei getest anders zit ik mijzelf voor de gek te houden en daarmee jullie tijd te verdoen.
allebei de oplossingen werken prima en mijn voorkeur gaat uit naar de onderstaande omdat er inderdaad vervolgacties op de keuzelijst klaar staan

Sub reset()
Me.Shapes(1).ControlFormat.Value = 0
Me.Shapes(2).ControlFormat.Value = 0
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan