combo box row value 1

[cc4mail]

What is the simple way to capture the combo box row value?

I have a combo box with employee information (combobox_emp).

I want to capture the row selected by the user to a variable (varEmp)

this is used to later populate dynamic text boxes.
textbox.text= Sheet2.Cells(varRow, 1) ... etc

Thanks - it's simple, but I'm not an excel guy.

 

[SkipVought]

cc4mail,

The selected value in a combobox

MyValue = Sheet1.Combobox1.Value

To assign values to a combobox use the AddItem method

Sheet1.Combobox1.AddItem MyOtherValue

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[cc4mail]

Sorry, didn't make this real clear.

I want the numerical index (array) value of the row, not value of the content of the row. something like {combobox1.row()}

thanks...

 

[cc4mail]

additionally, this is for a user in Excel 97.

Boy, I need to stick with HTML

Thanks

 

[SkipVought]

The Value is

MyValue = Sheet1.Combobox1.Value

The Index is

MyIndex = Sheet1.Combobox1.Index

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[cc4mail]

Skip,

It makes perfect sense, should work, but does not. What am I missing?

Private Sub ComboBox_Ofcr_Change()

varRow = Sheet1.ComboBox_Ofcr.Index

TextBox_Ofcr.Text = Sheet2.Cells(varRow, 1) + ", " +
Sheet2.Cells(varRow, 2) + " " + Sheet2.Cells(varRow, 3) + " -- Ser #" + Sheet2.Cells(varRow, 4) + " " + Sheet2.Cells(varRow, 5) + " " + Sheet2.Cells(varRow, 6)

TextBox_Notes.Text = ""

End Sub

 

[SkipVought]

So what's NOT happening? What value of varRow is NOT working?

Private Sub ComboBox_Ofcr_Change()

varRow = Sheet1.ComboBox_Ofcr.Index

With Sheet2
    TextBox_Ofcr.Text = .Cells(varRow, 1) + ", " + _
                        .Cells(varRow, 2) + " " + _
                        .Cells(varRow, 3) + " -- Ser #" + _
                        .Cells(varRow, 4) + "   " + _
                        .Cells(varRow, 5) + " " + _
                        .Cells(varRow, 6)
End With

TextBox_Notes.Text = ""

End Sub

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[cc4mail]

Skip

Regardless of the row selected in the Combo Box, the index value returns as 3. (There are 300+ rows in the ComboBox and sheet 2).

 

[SkipVought]

cc,

Sorry. It seems that the correct property is ListIndex. ListIndex starts with 0 to ItemCount - 1.



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[cc4mail]

Skip,

Thanks, it seemed simple, but I was banging my head against the wall.

Thanks for staying at it so long. It worked!!!

Many stars!

Craig