Combobox laat niet alles zien

[HWV]

Beste,

Ik heb een combobox die gegevens ophaald vanuit de scheet artikelgroepen.
De gegevens staan in kolom 3 en 4. Maar nu laat hij niet alles zien, maar de lengte vanuit kolom 2.
Ik heb al gekeken waar hij daar naar verwijst maar kan het niet terug vinden in de code.

Heeft iemand een idee, want ik kom er alleen niet uit.
Alvast bedankt
groet HWV

Bekijk bijlage Listrow_HWV.xls

 

[leofact]

Endrow is de laastste van kolom 2, dat moet 3 of 4 zijn
Hetzelfde geldt voor if die kijkt of de cel leeg is, ook dat moet drie of 4 zijn
Zie hier

    EndRow = Sheets("Artikelgroepen").Cells(Rows.Count, [COLOR="red"]3[/COLOR]).End(xlUp).Row
    Set oC = Sheets("Artikelgroepen").Cells
    For r = 2 To EndRow
        If oC(r, [COLOR="red"]3[/COLOR]).Value <> "" Then
            Txt_Artikelgroepen_code.AddItem oC(r, 4).Value
            Artikelgroepen_naam.AddItem oC(r, 3).Value
        End If
    Next

 

[HWV]

niet helemaal

Beste,

Bedankt voor je bericht.
Ik heb het toegepast maar zondere resultaat.
Dit geef volgens mij de rijen aan waarvandaan hij moet gaan beginnen.
Als ik het verander in 3 of 4 dan begin hij van die regel de combox te vullen.

Als jij het werkend heb gekregen, kan je deze dan posten !
Alvast bedankt voor de genomen moeite

groet HWV

 

[leofact]

Het zou toch echt moeten kunnen zo.
Zie bijlage



Bekijk bijlage Listrow_HWV.xls

 

[HWV]

Bedankt voor het voorbeeld bestand.
Hier doet hij het inderdaad wel.
Ik zie ook al wat ik verkeerd had gedaan

EndRow = Sheets("Artikelgroepen").Cells(Rows.Count, 3).End(xlUp).Row
    Set oC = Sheets("Artikelgroepen").Cells
    For r = [COLOR="Red"]2[/COLOR] To EndRow
        If oC(r, 3).Value <> "" Then
            Txt_Artikelgroepen_code.AddItem oC(r, 4).Value
            Artikelgroepen_naam.AddItem oC(r, 3).Value
        End If
    Next

Ik had het rode veranderd

Groet HWV