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

Dropdown bij aanklikken cel

Status
Niet open voor verdere reacties.
B

Bakkerbakgraag

Gebruiker
Lid geworden
24 okt 2015
Berichten
66
Beste allemaal,
om een dropdown menu te openen, selecteer je de cel en klik je vervolgens op het pijltje.
Is het ook mogelijk om een dropdown menu te openen, direct wanneer je de cel aanklikt (dus de stap van het pijltje overslaat?)

Bij voorbaat dank voor uw helpende woorden!
 
Dat kan met dit achter het werkblad:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lDVType As XlDVType
    
    If Target.Cells.CountLarge = 1 Then
        On Error Resume Next
        lDVType = Target.Validation.Type
        On Error GoTo 0
        If lDVType = xlValidateList Then SendKeys "%{down}"
    End If
End Sub
 
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo XL90
    If Target.Validation.Type = 3 Then SendKeys "%{down}"

XL90:
End Sub
 
edmoor zei:
Dat kan met dit achter het werkblad:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim lDVType As XlDVType
    
    If Target.Cells.CountLarge = 1 Then
        On Error Resume Next
        lDVType = Target.Validation.Type
        On Error GoTo 0
        If lDVType = xlValidateList Then SendKeys "%{down}"
    End If
End Sub
Klik om te vergroten...

snb zei:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo XL90
    If Target.Validation.Type = 3 Then SendKeys "%{down}"

XL90:
End Sub
Klik om te vergroten...

Beste excelers,
volgens mij doe ik iets fout. Ik heb (afzonderlijk) van elkaar de codes in een macro gezet. Er gebeurd echter niks.
Moet ik verder nog iets instellen zodat ze geactiveerd worden bij het openen van mijn werkmap?

Alvast weer bedankt voor het meedenken.
 
Ik heb (afzonderlijk) van elkaar de codes in een macro gezet.
Klik om te vergroten...
Dit vraagt om een voorbeeldbestand.
De code moeten direct in de worksheet worden gezet.
 
Zo blijft je numlock werken

Code: 
CreateObject("wscript.shell").SendKeys "%{down}"
 
AD1957 zei:
Dit vraagt om een voorbeeldbestand.
De code moeten direct in de worksheet worden gezet.
Klik om te vergroten...

Dat voorbeeldbestand is niet zo spannend. Dat kan ieder bestand zijn met een dropdown menu erin.
Wat bedoel je met "De code moeten direct in de worksheet worden gezet"?

Groet,
B. Bakgraag
 
Wat ik al zei, achter het werkblad:
 

Bijlagen

  • bbakgraag.png
    bbakgraag.png
    57,5 KB · Weergaven: 29
Dat voorbeeldbestand is niet zo spannend. Dat kan ieder bestand zijn met een dropdown menu erin.
Wat bedoel je met "De code moeten direct in de worksheet worden gezet"?
Klik om te vergroten...

Je reaktie illustreert je onwetendheid.
Voldoe aan een verzoek van iemand die daarvan niet beticht kan worden of vermijd een forum met deskundigen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan