items in combo box

[vroemans]

Hi,

Can you see what is wrong in my code for the comboboxlists?
The lists do not appear when I open the excel file.

C ATT

Thanks?

[MSP77079]

I assume that you want the combo box lists to be filled by the ranges below?

The combo boxes appear to be missing a "ListFillRange".

[MSP77079]

How did you want the combo box lists to be populated? Where should they be getting their data from?

[vroemans]

The comboboxes listitems are dtermined in the code.

How can I use the listfillrange. But the items need to stay unique.

Example: Combobox repeat lisfillrange is K1:K2000 and all they can type is yes or no so that only yes and no appear in the list. and not 50 times yes and 50 times no.

[MSP77079]

Sorry ... must be in a different workbook than the one you up loaded.

I looked everywhere. Even did a search in the entire project for "list" and found it nowhere.

This is the entirety of the code I found:

Please Login or Register  to view this content.

[vroemans]

You can find it on the code of input sheet.

This is the entire code:

Private sub initialize is the one I use to make the lists.

Private Sub Initialize()

With ComboBox_Status
.Clear
.AddItem "Warming Up"
.AddItem "Working On"
.AddItem "Promected"
.AddItem "Signed"
.AddItem "Invoiced"
.AddItem "Lost"
End With

With ComboBox_Technical
.Clear
.AddItem "Yes"
.AddItem "No"
End With

With ComboBox_SalesRep
.Clear
.AddItem "JP"
.AddItem "MB"
.AddItem "TV"
End With

With ComboBox_ActionMarketing
.Clear
.AddItem "Yes"
.AddItem "No"
End With

With ComboBox_TypeIndustry
.Clear
.AddItem "Casting"
.AddItem "Construction"
.AddItem "Plasturgy"
.AddItem "Promotion"
.AddItem "Sanitary"
End With

With ComboBox_Origine
.Clear
.AddItem "Existent"
.AddItem "Fair"
.AddItem "JP"
.AddItem "MB"
.AddItem "RP"
.AddItem "TV"
.AddItem "Web"
End With

With ComboBox_Repeat
.Clear
.AddItem "Yes"
.AddItem "No"
End With

With ComboBox_ActionMarketing
.Clear
.AddItem "Yes"
.AddItem "No"
End With

With ComboBox_PL
.Clear
.AddItem "PL1"
.AddItem "PL2"
.AddItem "PL3"
.AddItem "PL4"
.AddItem "PL5"
.AddItem "PL6"
.AddItem "PL7"
.AddItem "PL8"
.AddItem "PL9"
.AddItem "PL10"
End With

End Sub


Private Sub ComboBox_ActionMarketing_Change()

TextBox_ActionMarketing.Value = ComboBox_ActionMarketing.Value

End Sub

Private Sub ComboBox_Briefing_Change()

TextBox_Briefing.Value = ComboBox_Briefing.Value

End Sub

Private Sub ComboBox_Client_Change()

TextBox_Client.Value = ComboBox_Client.Value

End Sub

Private Sub ComboBox_Origine_Change()

TextBox_Origine.Value = ComboBox_Origine.Value

End Sub

Private Sub ComboBox_PL_Change()

TextBox_PL.Value = ComboBox_PL.Value

End Sub


Private Sub ComboBox_Repeat_Change()

TextBox_Repeat.Value = ComboBox_Repeat.Value

End Sub

Private Sub ComboBox_SalesRep_Change()

TextBox_SalesRep.Value = ComboBox_SalesRep.Value

End Sub

Private Sub ComboBox_StartingDate_Change()

TextBox_StartingDate.Value = ComboBox_StartingDate.Value

End Sub

Private Sub ComboBox_Status_Change()

TextBox_Status.Value = ComboBox_Status.Value

End Sub

Private Sub ComboBox_TargetDate_Change()

TextBox_TargetDate.Value = ComboBox_TargetDate.Value

End Sub

Private Sub ComboBox_Technical_Change()

TextBox_Technical.Value = ComboBox_Technical.Value

End Sub

Private Sub ComboBox_TypeIndustry_Change()

TextBox_TypeIndustry.Value = ComboBox_TypeIndustry.Value

End Sub


Private Sub CommandButton_Add_Click()

Cells(65536, 1).End(xlUp).Offset(1, 0) = TextBox_Briefing.Value
Cells(65536, 1).End(xlUp).Offset(0, 1) = TextBox_Status.Value
Cells(65536, 1).End(xlUp).Offset(0, 2) = TextBox_Client.Value
Cells(65536, 1).End(xlUp).Offset(0, 3) = TextBox_Technical.Value
Cells(65536, 1).End(xlUp).Offset(0, 4) = TextBox_StartingDate.Value
Cells(65536, 1).End(xlUp).Offset(0, 5) = TextBox_TargetDate.Value
Cells(65536, 1).End(xlUp).Offset(0, 6) = TextBox_SalesRep.Value
Cells(65536, 1).End(xlUp).Offset(0, 7) = TextBox_TypeIndustry.Value
Cells(65536, 1).End(xlUp).Offset(0, 8) = TextBox_Origine.Value
Cells(65536, 1).End(xlUp).Offset(0, 9) = TextBox_Repeat.Value
Cells(65536, 1).End(xlUp).Offset(0, 10) = TextBox_ActionMarketing.Value
Cells(65536, 1).End(xlUp).Offset(0, 11) = TextBox_TO.Value
Cells(65536, 1).End(xlUp).Offset(0, 12) = TextBox_PL.Value

End Sub

Private Sub CommandButton_Reset_Click()

TextBox_Briefing.Value = ""
TextBox_Status.Value = ""
TextBox_Client.Value = ""
TextBox_Technical.Value = ""
TextBox_StartingDate.Value = ""
TextBox_TargetDate.Value = ""
TextBox_SalesRep.Value = ""
TextBox_TypeIndustry.Value = ""
TextBox_Origine.Value = ""
TextBox_Repeat.Value = ""
TextBox_ActionMarketing.Value = ""
TextBox_TO.Value = ""
TextBox_PL.Value = ""

ComboBox_Briefing.Value = ""
ComboBox_Status.Value = ""
ComboBox_Client.Value = ""
ComboBox_Technical.Value = ""
ComboBox_StartingDate.Value = ""
ComboBox_TargetDate.Value = ""
ComboBox_SalesRep.Value = ""
ComboBox_TypeIndustry.Value = ""
ComboBox_Origine.Value = ""
ComboBox_Repeat.Value = ""
ComboBox_ActionMarketing.Value = ""
ComboBox_PL.Value = ""


End Sub

Private Sub TextBox_TO_Change()

End Sub

[vroemans]

Sorry I uploaded the wrong file, SUNDAYS!

[MSP77079]

The problem is that the Initialize Event does not exist for a worksheet.

What you need is a routine that runs from the Workbook_Open Event.

Using straight VB, you cannot call your Initialize routine from anywhere because it is not in a Module. But, you can use Excel's "Run" command to fake it out. This seems to work for me ... add this code to the ThisWorkbook object's code window:

Please Login or Register  to view this content.

[vroemans]

THANKS A LOT
MY PROBLEM IS SOLVED, now I can start to enjoy my weekend