Index Match - ComboBox Worksheet.Function

[kaemerso]

Private Sub TextBox3_Change()


TextBox5.value = Application.WorksheetFunction.IfError(Worksheets("Codes"), Application.WorksheetFunction.Index(Worksheets("Codes").Range("b2:zz29"), Application.WorksheetFunction.Match(Worksheets("Codes"), "L50", ("a2:a29"), 0, Application.WorksheetFunction.CountIf(Worksheets("Codes").Range("$L$50:L50"), "L50", ""), "")))


End Sub

I have a userform that I need to set a combo-box to. This is not working. I would set a variable to it but I'm new to VBA. Can anyone help out?

Original excel formula is this:

CONCATENATE(VLOOKUP($P50,Table1[#All],2,FALSE),"-",IFERROR(INDEX(Codes!$B$2:$ZZ$29,MATCH($L50,Codes!$A$2:$A$29,0),COUNTIF($L$50:L50,L50)),""),"")

 

[kaemerso]

Private Sub TextBox3_Change()


TextBox5.value = Application.WorksheetFunction.IfError(Worksheets("Codes"), Application.WorksheetFunction.Index(Worksheets("Codes").Range("b2:zz29"), Application.WorksheetFunction.Match(Worksheets("Codes"), "L50", ("a2:a29"), 0, Application.WorksheetFunction.CountIf(Worksheets("Codes").Range("$L$50:L50"), "L50", ""), "")))


End Sub

I have a userform that I need to set a combo-box to. This is not working. I would set a variable to it but I'm new to VBA. Can anyone help out?

Original excel formula is this:

CONCATENATE(VLOOKUP($P50,Table1[#All],2,FALSE),"-",IFERROR(INDEX(Codes!$B$2:$ZZ$29,MATCH($L50,Codes!$A$2:$A$29,0),COUNTIF($L$50:L50,L50)),""),"")

Anyone??