User Form Combo Box

[raccoon588]

Is there a way for the combo box to show the last item that was selected? if they choose Apples then submitted their data can Apples then show up in that combo box next?

 

[Peter h]

Is there a way for the combo box to show the last item that was selected? if they choose Apples then submitted their data can Apples then show up in that combo box next?

You can set it up to show pretty much whatever you want. What do you mean by selected? Selected from where? Like if the combobox has a list like apples, bananas, oranges, and grapes, they select apples and submit their data, the combobox stays on apples?

Edit: Maybe you can post the code of what happens when the data is submitted and I can help you adjust it.

 

[raccoon588]

in the code i am looking at the NAED combo box. so if they select 39795 and submit the entry the combo box will automatically show 39795. Is they change it and submit it with 39796 then once they submit the entry the combo box should show 39796.

ActiveSheet.Unprotect
Dim erow As Long
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = cboNAED.Value
Cells(erow, 2).Value = txtBadge.Value
Cells(erow, 3).Value = txtLotNumber.Value
Cells(erow, 4).Value = txtDefects.Value
Cells(erow, 5).Value = txtQty.Value
Cells(erow, 6).Value = Time
Cells(erow, 7).Value = Date




txtBadge.Text = ""
txtLotNumber.Text = ""
txtDefects.Text = ""
txtQty.Text = ""
cboNAED.Value = ""

 

[Peter h]

in the code i am looking at the NAED combo box. so if they select 39795 and submit the entry the combo box will automatically show 39795. Is they change it and submit it with 39796 then once they submit the entry the combo box should show 39796.

ActiveSheet.Unprotect
Dim erow As Long
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(erow, 1).Value = cboNAED.Value
Cells(erow, 2).Value = txtBadge.Value
Cells(erow, 3).Value = txtLotNumber.Value
Cells(erow, 4).Value = txtDefects.Value
Cells(erow, 5).Value = txtQty.Value
Cells(erow, 6).Value = Time
Cells(erow, 7).Value = Date




txtBadge.Text = ""
txtLotNumber.Text = ""
txtDefects.Text = ""
txtQty.Text = ""
[COLOR=#FF0000]cboNAED.Value = ""[/COLOR]

Try taking the highlighted line out. That resets your combobox to Nothing. Without that, it should stay on whatever was selected before.