Combobox vullen in VBA

[blijfvandatknop]

Ik werk in VBA in excel en ik wil graag een combobox vullen vanuit de werkmap in het excel bestand.
Nu lukt het vullen wel, en dit is eenvoudig binnen het VBA bestand.

Private Sub UserForm_Initialize()
     cmbnummer.List = Range("B3:B65").Value
End Sub

nu wil ik graag dat de combobox alleen gevuld word met de cellen waar iets in staat. Op deze manier vul ik de combobox met alle cellen in het genoemde bereik dus ook de lege.

Daarnast, en nu komt het, zou ik willen dat het programma als ik een keus maak in de combobox. Hij ook 2 tekst velden vult met de waardes op dezelfde rij.

Ik kies met de combobox bijvoorbeeld de waarde uit cel A3 dan moet hij in 2 tekstboxen de waarden uit de cellen B3 en C3 weerggeven. en kies ik nu de waarde uit cel A6 dan geeft hij de waarde uit de cellen B6 en C6 in de tekstbox weer.

 

[MDN111]

Hallo blijfvandatknop !

Probeer bijgevoegde file eens.

Groeten,
MDN111.

 

[blijfvandatknop]

Dit is wat ik bedoelde. Mijn dank is groot. Met wat aanpassingen moet ik er uitkomen.
:thumb::thumb:

 

[basschmidt]

Hey allemaal,

Ik zit een beetje met hetzelfde probleem
Nu zit ik even de codes van jullie door te kijken
mag ik vragen waar de variabelen voor staan?

oC
oRng
r
EndRow

Neem aan dat de laatste gewoon het totaal aantal rijen is?

Groetjes
Bas

 

[Warme bakkertje]

Hou het simpel

Private Sub UserForm_Initialize()
Dim r As Long
For r = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(r, 1).Value <> "" Then
        ComboBox1.AddItem Cells(r, 1).Value
    End If
Next
End Sub

 

[basschmidt]

Hey bedankt voor je reactie,
Ik heb eerst alles met tekstboxen gedaan maar iemand vertelde mij dat comboboxen slimmer waren??

ik heb even een klein voorbeeldje gemaakt met wat ik wil doen.. (zie bijlage)

ik wil graag jullie code gebruiken om de gegevens uit blad2, door middel van het inloggen (UserForm1), weer te geven in UserForm2. De persoon die het invult kan zowel zijn rugnummer als zijn polisnummer gebruiken om de gegevens te zien! (dus: Of rugnummer, Of polisnummer )

Lukt dat met die code?

Groet,
Bas

 

[MDN111]

Dag Bas !

Zie bijlage.

Waarom je de textboxen hebt veranderd naar Comboboxen in mij niet direct duidelijk.
In een combobox kan je een aantal keuzewaarden opladen. In jouw geval de polisnummers en de rugnummers. Als het de bedoeling is dat de gebruiker ook kan kiezen uit de bestaande polis- en rugnummers, dan kan je comboboxen gebruiken. Als er echter een groot aantal personen in Blad2 staan, zou het scrollen om een waarde te kiezen wel eens omslachtiger kunnen worden dan het simpelweg invoeren van een nummer.

Grtz,
MDN111.

 

[basschmidt]

ziet er top uit! vraagje, wat is die len functie?
ik wil ook graag dat die gegevens die in de userform2 worden gezet, ook in Blad3 worden gezet, naast elkaar. welke code kan ik daarvoor gebruiken?