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

plaats van dropdownlijst van gegevensvalidatie

Status
Niet open voor verdere reacties.
S

SUVERMO

Gebruiker
Lid geworden
22 dec 2019
Berichten
478
goede morgen

Is het mogelijk om de dropdownlijst niet onder maar naast de cel te laten verschijnen?

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[BESTAANDE_CELINHOUD] = Target.Value
If Intersect(Target, Range("BEREIK")) Is Nothing Then Exit Sub
If [BESTAANDE_CELINHOUD] = "" Then SendKeys "%{DOWN}"
End Sub
 

Bijlagen

  • open zonder klik op pijltje 1.xlsm
    23,8 KB · Weergaven: 18
Nee. Dan moet je een eigen keuzelijst met invoervak maken, die je naast de actieve cel zet. Anders moet je Bill even bellen :).
 
Spijtig, heeft U een voorbeeld, of een link naar voorbeelden?
 
M2:m7

Klik eens op M2:M7...
 

Bijlagen

  • open zonder klik op pijltje 1.xlsm
    29,5 KB · Weergaven: 29
bedankt mvdvlist

heeft u een oplossing voor
is het mogelijk om de bovenzijde van de listbox te koppelen aan de bovenzijde van de geselecteerde cel, bv bij M100
hoe kan men bekomen dat dit ook werkt om 2 maal na elkaar het zelfde te kunnen selekteren of 2 maal na elkaar op dezelfde cel te klikken
 

Bijlagen

  • open zonder klik op pijltje 2.xlsm
    36,9 KB · Weergaven: 18
Probeer dit eens.
Code: 
Private Sub ListBox1_Click()
 ActiveCell.Value = ListBox1.Value
 ListBox1.Visible = False
 [COLOR="#FF0000"]Application.Goto ActiveCell.Offset(, -1)[/COLOR]
End Sub

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("M2:M100")) Is Nothing And Target.Count = 1 Then
  With ListBox1
    .Visible = True
    .Top = ActiveCell.Top
    .Selected(.ListIndex) = False
  End With
 End If
End Sub
 
Nog een optie met dubbelklick, dan kun je de rode regel in Listbox1.click weglaten.
Code: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("M2:M100")) Is Nothing And Target.Count = 1 Then
  With ListBox1
    .Visible = True
    .Top = ActiveCell.Top
    .Selected(.ListIndex) = False
  End With
 End If
 Cancel = True
End Sub
 
Heel veel dank AD,
ga vanavond proberen om het te gebruiken in het eigenlijke bestand.
 
AD1957 zei:
Probeer dit eens.
Code: 
Private Sub ListBox1_Click()
 ActiveCell.Value = ListBox1.Value
 ListBox1.Visible = False
 [COLOR="#FF0000"]Application.Goto ActiveCell.Offset(, -1)[/COLOR]
End Sub

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("M2:M100")) Is Nothing And Target.Count = 1 Then
  With ListBox1
    .Visible = True
    .Top = ActiveCell.Top
    .Selected(.ListIndex) = False
  End With
 End If
End Sub
Klik om te vergroten...
als er in kolom M op een cel klikt dan verschijnt het dropdownmenu
klikt men dan op een cel in kolom M dan gaat het fout
kan iemand dit oplossen
 

Bijlagen

  • open zonder klik op pijltje 3.xlsm
    36,6 KB · Weergaven: 17
Laatst bewerkt:
weet even geen betere oplossing.
Code: 
If Not Intersect(Target, Range("M2:M100")) Is Nothing And Target.Count = 1 Then
  With ListBox1
    .Visible = True
    .Top = ActiveCell.Top
   [COLOR="#FF0000"] On Error Resume Next[/COLOR]
    .Selected(.ListIndex) = False
  End With
 End If
 
beste AD,

uw voorstel werkt prima, zelfs met samengevoegde cellen
zelf had ik ook geprobeerd met On Error Resume Next, maar niet op de juist plaats.

nogmaals bedankt
 

Bijlagen

  • open zonder klik op pijltje 251121.xlsm
    26,3 KB · Weergaven: 20
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan