Hi there,
I am struggling a bit with folowing situatie. I created a userform which has 3 combo boxes and I am having trouble with getting the lists in each of there separate boxes.
The names of the lists are:
- Typeopdracht
- Statusopdracht
- Verdienmodel
The names of the combo boxes are:
- cboTypeOpdracht
- cboStatusOpdracht
- cboVerdienmodel
I found the following piece of code
Private Sub UserForm_Initialize()
With Worksheets("Projects")
Revenue_Account.List() = .Range("RevCategory").Value
End With
End Sub
and I rewrote it like this:
Private Sub UserForm_Initialize()
txtAangenomenOp.Value = Format(Date, "medium date")
Me.txtAdres.SetFocus
With Worksheet("blad9")
cboTypeOpdracht.List() = .Range("Typeopdracht").Value
cboStatusOpdracht.List() = .Range("Statusopdracht").Value
cboVerdienmodel.List() = .Range("Verdienmodel").Value
End With
End Sub
I don't know what I did wrong and besides that it now says that the sub or function isn't defined.
What do I do?
Bookmarks