ComboBox displays last selection

[PW]

I have a combo box on a user form. The first time I run it, it works fine.
The second time I run it. It has the previous selection in it. How can I
have it come up blank?

Thank You,

PW

 

[brzak]

Make use of teh ListIndex property

From VBA Help:
"Values of ListIndex range from –1 to one less than the total number
of rows in a list (that is, ListCount – 1). When no rows are selected,
ListIndex returns –1"

so at whicever event you want the value to be cleared and force the
user to make a chose, set:

combobox1.listindex = -1

Brz

 

[pw]

The first time I run the macro, it works fine. The second time I can't get
the combobox to be blank even with the code you used below. Any idea why?

 

[brzak]

I can only guess tht you're not resetting on all the possible events
where the user form appears.

A sample of the code would make it easier to see where the problem is.

Brz

 

[pw]

Yes, i agree. If I stop the macro, it resets and works OK. Here's one of
the form code.
No. 1:

Private Sub CommandButton2_Click()
EnterMenu.Hide
Sheets("Estimate").Select
ProjectNoMenu.Show

End Sub

Private Sub CommandButtonSaveRecordstoDatabase_Click()
PutData
End Sub

Private Sub UserForm_Initialize()
EnterMenu.StartUpPosition = CenterOwner
End Sub

No. 2 (for the combobox):

Private Sub ProjectNumberComboBox_Change()
'Brings up combo box with project numbers from column on "Dropdown Values"
worksheet
'
Dim PrNo As String
PrNo = ProjectNumberComboBox.Text
Sheets("Sample").Select
Range("a2") = PrNo
ProjectNoMenu.Hide
ContinueSearchData1

End Sub

Private Sub UserForm_Initialize()
Dim rowx As String
Dim PNRng As Range
Dim z As Variant

'ProjectNoMenu.StartUpPosition = CenterOwner

For Each C In ProjectNoMenu.Controls
If TypeOf C Is MSForms.ComboBox Then
C.Value = ""
End If
Next
Sheets("Dropdown Values").Select

rowx = Range("A2").End(xlDown).row
'Set the range to loop through
Set PNRng = Sheets("Dropdown Values").Range("A2:A" & rowx)

'Loops through the ranges
For Each z In PNRng

'Adds an item to the list
ProjectNumberComboBox.AddItem z.Value

Next z

ProjectNumberComboBox.ListIndex = -1
Sheets("Estimate").Select
End Sub