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

Combobox gebruiken voor een cel range

Status
Niet open voor verdere reacties.
Hoi Albert,

Dank je wel voor je hulp! Hierdoor kom ik weer een stukje verder.
Mijn bedoeling is dat de gegevens uit Userform4/Listbox2 in Userform5 terecht komen.
En dat in Userform5, net als in de eerste 3 Userforms, gezocht kan worden ("zoek").

Is dat mogelijk?

Groetjes

Anne

PS: heel erg bedankt voor je hulp!!!
 
Ik zou alles in 1 Userform houden.
Maak gewoon eens een nieuw voorbeeldbestand en leg hierin uit wat je wilt bereiken.
 
Hallo Albert,

Dit is onze bedoeling:
Er is een categorie dieren -> Userform2
Bij de dieren horen bepaalde kenmerken -> Userform3

Een gebruiker selecteert in cel N7 een categorie en vervolgens in cel P7
1 van de kenmerken die bij dat dier horen.
Als extra kan de gebruiker in Userform3 dmv de zoekfunctie, (zoals bij de andere Userforms), via
een gedeelte van het woord van het kenmerk gaan zoeken.
Dit is vooral heel handig als de lijst van kenmerken erg lang is.
Eae niet dmv een dubbel click zoals in veld M4 maar net als in de andere Userforms dmv een enkele click.

In de bijlage heb ik dit ook bij Userform3 aangegeven.

Groetjes

Anne
 

Bijlagen

  • nieuw bestand.xlsm
    31,7 KB · Weergaven: 15
Kijk maar eens op blad 3.
 

Bijlagen

  • drie Userforms.xlsm
    37,7 KB · Weergaven: 27
GEWELDIG Albert!!!!

Een schot in de roos!

Mijn laatste vraag is:
kan naast het kenmerk in kolom E, in kolom D de bijbehorende categorie worden gevuld?
B.v.
Cel D2 = beer
Cel E2 = bruin

Groetjes en nogmaals heel erg bedankt!

Anne
 
pas onderstaande codes aan.
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 Or Target.Column = 4 And Target.Count = 1 Then UserForm4.Show
End Sub

Code: 
Private Sub ListBox2_Click()
With ListBox2
  If .ListIndex > -1 Then
    If ActiveCell.Column = 5 Then
        ActiveCell = .Value 
        ActiveCell.Offset(0, -1) = ListBox1.Value   [COLOR="#008000"] 'offset(,-1) betekent 1 kolom terug t.o.v. active cel[/COLOR]
    ElseIf ActiveCell.Column = 4 Then
        ActiveCell = ListBox1.Value
        ActiveCell.Offset(0, 1) = .Value                [COLOR="#008000"]'offset(,1) betekent 1 kolom verder t.o.v. active cel[/COLOR]
    End If
  End If
End With

End Sub
p.s. Belangrijkste is het begrijpen van de code's zodat je zelf eventuele aanpassingen kunt doen.
Als je de code's niet begrijpt heb je helemaal niets geleerd.
Zoek zelf maar eens hoe je met Offset(....) een rij kunt verschuiven.
 
Laatst bewerkt:
Hallo Albert,

De offset code heb ik gelijk kunnen gebruiken omdat de gegevens 1 kolom te weinig naar links kwamen.
Het proces zoals je me hebt uitgelegd is me nu voor 90% duidelijk de andere 10% ga ik nog achterna.

Mijn heel hartelijke dank voor je hulp en geduld om me e.e.a. uit te leggen!
Petje af voor je hulp en kennis!

Hartelijke groeten

Anne
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan