Userform textboxen optellen

[HSV]

Met 'Option Explicit' bovenaan een module moet je alles declareren.

Dim TxtCount As Integer, ctl As Control[COLOR=#0000ff], EndRow as long, oC as range,r as long[/COLOR]

Kolom A = leeg

EndRow = Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Row
       Set oC = Sheets("Blad1").Cells
          For r = 2 To EndRow
            If oC(r, 1).Value <> "" Then
            cboId.AddItem oC(r, 2).Value
            End If
        Next

EndRow = 1

Van 2 tot 1 = niets

Je krijgt je combobox op die manier niet gevuld.

 

[bowlingman]

Hallo Harry,
Bedankt voor de uitleg.
Maar achteraf beschouwd zal het toch beter zijn om voor de iD's gewoon een txb te gebruiken en zelf de iD daar in te vullen.
Is het dan uberhaupt mogelijk, dat wanneer dit iDnummer wordt ingevuld dat in de txb van de Hdcp deze automatisch wordt ingevuld of beter deze laatste ook gewoon handmatig in te vullen.

Grtjs.
Armand

 

[HSV]

Bekijk het maar eens met drie Comboboxen.

Denk om de Tag bij serie aanvulling.

 

[bowlingman]

Goedemorgen Harry,

Dit is super.
Werkt perfect. Denk dat ik nu wel een tijdje verder kan.
Hartelijk bedankt

Grtjs.
Armand