Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
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.
de cel met de keuzelijst doorkopieren naar onderen?
yolandal,
Selecteer de hele kolom, en maak je keuze lijst, zoals in je vorige post.
kun je deze weer openen, ik heb misschien een oplossing voor je.
Data validatie via een ander tabblad moet gedaan worden mbv CTRL F3 (name manager)
Hier het voorbeeldje.
Tevens heb ik het dynamisch gemaakt zodat de lijst die je ziet net zolang is als het aantal ingevoerde waarden.
De validatie cel moet nog verder naar beneden gekopieerd worden.En ik kan onder de laatste invoer in kolom B toch niet meer invoeren.......
Wat is het nut van zowel een validatie als een combobox met dezelfde invoer in dezelfde cel??
De validatie cel moet nog verder naar beneden gekopieerd worden.
Probeer het hier eens mee.
het kopieren werkt!
Yolandal,
En de rest heb je niet getest?
Komen we ook weer terug in je vorige topic, nu heb je er al twee over het zelfde onderwerp.
Nieuw voorbeeld, en goed lezen wat er op de Bladen voor uitleg bijstaat.
voorbeeldje van een ander topic
als je het wat vindt en aanpassing nodig hebt, laat het dan weten
zie kolom A
groet sylvester
Private Sub ComboBoxHoofdcat_Change()
ActiveCell.Value = ComboBoxHoofdcat.Value
End Sub
Private Sub ComboBoxSubcat_Change()
ActiveCell.Value = ComboBoxSubcat.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
If Target.Row <= 1 Or (Target.Column <> 3 And Target.Column <> 4) Then Exit Sub
If Target.Column = 3 Then
Call ZetComboboxOpCel(Target, ComboBoxHoofdcat)
ComboBoxHoofdcat.Value = Target.Value
Else
Call ZetComboboxOpCel(Target, ComboBoxSubcat)
ComboBoxSubcat.Value = Target.Value
End If
End Sub
Sub ZetComboboxOpCel(Cel As Range, ComBo)
ComBo.Top = Cel.Top
ComBo.Left = Cel.Left
ComBo.Height = Cel.Height + 1
ComBo.Width = Cel.Width + 1
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.