Value to stay visible

[Aussiebear]

I currently have a combobox which is used to select the job number for the task at hand, but the job number is not retained until changed. How can I make this number be retained?

Sub cboSelectJobs_Change()
Dim MyArray(0, 5) As String
MyArray(0, 0) = Sheets("Work Orders").Range("A2").Value
MyArray(0, 1) = Worksheets("Work Orders").Range("A3").Value
MyArray(0, 2) = Worksheets("Work Orders").Range("A4").Value
MyArray(0, 3) = Worksheets("Work Orders").Range("A5").Value
MyArray(0, 4) = Worksheets("Work Orders").Range("A6").Value
cboSelectJobs.Column() = MyArray
End Sub

[SamT]

Sub cboSelectJobs_Change() 
   Dim JobNo As String
    Dim MyArray(0, 5) As String 
With Sheets("Work Orders"
   JobNo = .Range("A2").Value 
    MyArray(0, 1) = .Range("A3").Value
    MyArray(0, 0) = .Range("A2").Value 
    MyArray(0, 1) = .Range("A3").Value 
    MyArray(0, 2) = .Range("A4").Value 
    MyArray(0, 3) = .Range("A5").Value 
    MyArray(0, 4) = .Range("A6").Value 
    cboSelectJobs.Column() = MyArray 
End With
End Sub

[Aussiebear]

hmmm.. why is MyArray(0,1) = .Range("A3").Value repeated?

[SamT]

Typo?

Souldn't be, I nevr make tpyos.

However, I am not real clear what you are asking for. Sorry.
Shouldn't this have an index number in the brackets? I

cboSelectJobs.Column() = MyArray

[Aussiebear]

I would like the combobox on a form to maintain its value once selected. Currently it loses its selected value

[Aussiebear]

Shouldn't this have an index number in the brackets? I

cboSelectJobs.Column() = MyArray

Don't know, however it currently shows the job numbers that fall within the array. I have been thinking about turning the combobox into a 2 column display, since its possible to possibly get the wrong job number if you don't know which job number is for which client.

[mikerickson]

Perhaps this, if you are sure that the current selection is one of the values that is being put in the Combobox's list.

Sub cboSelectJobs_Change() 
    Dim MyArray(0, 5) As String
    Dim CurrentValue as String

    CurrentValue = cboSelectJobs.Value

    MyArray(0, 0) = Sheets("Work Orders").Range("A2").Value 
    MyArray(0, 1) = Worksheets("Work Orders").Range("A3").Value 
    MyArray(0, 2) = Worksheets("Work Orders").Range("A4").Value 
    MyArray(0, 3) = Worksheets("Work Orders").Range("A5").Value 
    MyArray(0, 4) = Worksheets("Work Orders").Range("A6").Value 
    cboSelectJobs.Column() = MyArray
    cboSelectJobs.Value = currentValue
End Sub

[SamT]

Sub cboSelectJobs_Change()

I would like the combobox on a form to maintain its value once selected

But, you are loading the combo box with new (or the same) values when you make a selection. At that point, there is no more selection.

Sub cboSelectJobs_Change() 
    Dim JobNo As String 
   JobNo = cboSelectJobsValue
'Do Something with selected JobNo.

End Sub

[Aussiebear]

Thanks Mike, yours is working well

[snb]

I don't think so.

What is the content of cboselectJobsvalue before selecting any value in it ?

It should be:

Sub Userform_initialize() 
  cboSelectJobs.List=Sheets("Work Orders").Range("A2:A6").Value 
End Sub

After this
Sub cboSelectJobs_Change() is redundant