Fout in code ergens

[petervandijk]

Hoi,

Ik heb een bestand omgevormd zodat ik deze kan gebruiken naar mijn wensen. De bedoeling is dat men via een userform een aantal gegevens invult die op een tabblad terecht komen. Daarna wil ik deze gegevens gaan mailen (moet nog gebeuren). Ik krijg echter de code voor de comboboxen niet goed. Ik zie iets over het hoofd. Kan iemand er een blik op werpen?

 

[Roncancio]

Kan iemand er een blik op werpen?

Waarop?:shocked:

Gaarne code en/of bestand bijsluiten.

Met vriendelijke groet,


Roncancio

 

[Finch]

De fout zit in lijn 26 - met dank aan mijn paranormale gave

Gaarne een bestandje bijvoegen

 

[petervandijk]

Oeps!

Tja....zo schiet het niet op! Hier het bestandje. Sorry.

 

[Finch]

Tja....zo schiet het niet op! Hier het bestandje. Sorry.

Ik zie nergens comboboxen

 

[petervandijk]

Bestand kan niet worden ge-upload

het bestandsvorm (xlsm) wordt niet gepikt.

 

[Hoornvan]

petervandijk,

Bestand kan niet worden ge-upload

Of het is te groot max. 100 MB, dus even inpakken.
De meeste mensen gebruiken de oude versie (.xls) , je moet het dan opslan als 97-2003

 

[petervandijk]

Hier dan.....

 

[Wigi]

Het bereik SchipIDList bestaat niet.

Ga ook met de F8-toets stap voor stap door de code, dan kan het niet anders of je zou de fout ontdekken :thumb:

Wigi

 

[Finch]

Je kan volgende code achter je Initialize event van je userform gebruiken om je comboboxen te vullen.

Private Sub UserForm_Initialize()
Dim ws As Worksheet
Dim arrSchip As Variant
Dim arrDienst As Variant
Dim arrMan As Variant

Set ws = Worksheets("Medewerkers")

arrSchip = ws.Range("A2:A" & ws.Range("A2").End(xlDown).Row)
arrDienst = ws.Range("C2:C" & ws.Range("C2").End(xlDown).Row)
arrMan = ws.Range("B2:B" & ws.Range("B2").End(xlDown).Row)

cboSchip.List = arrSchip
cboDienst.List = arrDienst
cboKap.List = arrMan
cboStm.List = arrMan
cboGezel.List = arrMan


Me.txtDate.Value = Format(Date, "Medium Date")
Me.cboSchip.SetFocus

End Sub

Je kan de code ook nog aanpassen zodanig dat je met je named ranges aan de slag kan, maar die zitten niet in dit bestand, maar zijn ook niet persé nodig.

 

[petervandijk]

Zo gaat ie goed!

prima zo! De gegevens worden echter neergezet op de 5e regel dit moet vanaf de 6e zijn. Bestaat ook de mogelijkheid om deze gegevens middels een knop direct te emailen?

 

[snb]

Of

Private Sub UserForm_Initialize()
    sq = Sheets("Medewerkers").Range("A1").CurrentRegion
    For Each ct In Controls
        If Left(ct.Name, 3) = "cbo" Then ct.List = sq
    Next
    txtDate.Text = Format(Date, "Medium Date")
End Sub

Stel de comboboxen als volgt in:
cboschip columncount: 1 boundcolumn: 1
cbodienst columncount: 3 boundcolumn: 3 columnwidth: 0;0;90
cbokapt columncount: 2 boundcolumn: 2 columnwidth: 0;90
cbostm columncount: 2 boundcolumn: 2 columnwidth: 0;90
cbogezel columncount: 2 bouindcolumn: 2 columnwidth: 0;90