Combo box to display in label

[anthonfire]

Hi im doing a payroll program and i need to get a label to display the payrate for people listed in the combo box. Both the payrate and employee name are linked from the excel sheet. So when a different name is selected from the list the label changes the payrate. Any ideas?

cheers

 

[neilp]

Hi Anthonfire

Welcome to the board

what column is the employee name in, and what column is the payrate in?
I assume you are using a userform

N

 

[anthonfire]

VBA Code

Thanks for the reply.
The employee name is b and colmn h for the payrate.

Cheers

 

[neilp]

Private Sub ComboBox1_Change()
    Label1.Caption = Range(ComboBox1.RowSource).Offset(0, 6).Cells(ComboBox1.ListIndex + 1)
    End Sub

If you are using a userform, paste in this code and it will hopefully work (untested)

n

 

[anthonfire]

tried it

Thanks for that.
I tried

Private Sub cboEmployeeName_Change()
lblPayRate.Caption = Range(cboEmployeeName.RowSource).Offset(0, -1).Cells(cboEmployeeName.ListIndex + 6)

It didnt work, I may have done it wrong. Could i send it to you and you could have a look?

Appreciate the help.

 

[neilp]

check you PM's

n

 

[deangla]

Neil,

I'd be interested in how this was resolved. I've been playing with something close to this.

I'd appreciate it.

Thanks,

Dean

 

[neilp]

Hi Dean

the code I posted did the job - the problem was that the combobox was being populated not using the rowsource property. Once that was altered it seemed to be working ok

N

 

[deangla]

Thanks Anthony and Neil for your responses. This is extremely helpful. Saves me a lot of hair. Have a nice day.

Dean