How to read the selected case in a Combo Box?

[actjfc]

Excel Friends, I have the code below, after the user makes the selection, just before running a macro in another module, please, what is the code to read the selection made by the user. I mean the VBA code to read/store in a String Variable the current content of the combo box just before running another macro that need that value as an input. Thanks!

Private Sub UserForm_Initialize()
Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("EXTENSIONS")

For Each cLoc In ws.Range("EXTList")
With Me.cboLocation
.AddItem cLoc.Value
End With
Next cLoc

Me.cboLocation.Value = "Select"

End Sub

 

[RickXL]

It is a bit difficult to be specific from what you have said so far.
The value selected is a ComboBox property called Value. In your case this will be cboLocation.Value.

When the ComboBox has been unloaded that property will not be available. So you will need to do something with it before that. For instance, you could have a ComboBox Change Event created that will capture the value and write it to a worksheet cell:

Private Sub cboLocation_Change()
    Sheet1.Range("B2").Value = cboLocation.Value
End Sub

Or you could add a command button to the userform and make that store the selection somewhere:

Private Sub CommandButton1_Click()
    CommandButton1.Caption = cboLocation.Value
End Sub

The above code changes the button's caption every time a new value is selected from the combobox.

I hope this helps.

 

[actjfc]

Thanks for your reply. What was actually driving me crazy was the "me." What I did in other module was assigning SelectedLoc = frmName.cboLocation.Value, and it worked. I was using me.cboLocation.Value, and it did not worked. You code may be useful for me also. Thanks!