Solved: Populate UserForm TextBox based on Worksheet Lookup

[tccmdr]

Hello gurus

I have a worksheet with Jobtitles in column A and there relevant competencies in columns B to Z for each Jobtitle.

I have a UserForm with a Job Title TextBox and a MultiPage Control with pages 1 to 25. On each MultiPage page I have a TextBox which I want to populate with the relevant competency.

i.e
MultiPage1.TextBox1.Value=lookup jobtitle and return column B content;
MultiPage2.TextBox2.Value=lookup jobtitle and return column C content;
etc...

Any suggestions

[Bob Phillips]

[vba]

Private Sub TextBox1_AfterUpdate()
Dim iRow As Long
With Me
On Error Resume Next
iRow = Application.Match(.TextBox1.Text, Worksheets("Sheet1").Columns(1), 0)
On Error GoTo 0
If iRow > 0 Then
.MultiPage1.Pages(1).TextBox2.Text = Worksheets("Sheet1").Cells(iRow, "B").Value
End If
End With
End Sub
[/vba]

[tccmdr]

Hello Mr.X

I used the following code

[VBA]
Private Sub TextBox2_AfterUpdate()
Dim iRow As Long
With Me
On Error Resume Next
iRow = Application.Match(.TextBox1.Text, Worksheets("Competencies").Columns(1), 0)
On Error GoTo 0
If iRow > 0 Then
.MultiPage1.Pages(2).TextBox2.Text = Worksheets("Competencies").Cells(iRow, "B").Value
End If
End With
End Sub
[/VBA]

The TextBox is still not populating??

[tccmdr]

Sorry Mr.X,

I meant

[VBA]
Private Sub TextBox2_AfterUpdate()
[/VBA]

Nothing is being returned ??

[tccmdr]

[VBA]
Private Sub TextBox1_AfterUpdate()
[/VBA]

[tccmdr]

Still not populating......

Additionally, if I type in other text I receive an error type 439

"Object not supported by this method or property"

Can anyone help out on this

[rory]

You should just be able to use:
[VBA]Me.TextBox2.Text = Worksheets("Competencies").Cells(iRow, "B").Value [/VBA]

Regards,
Rory

[tccmdr]

Thanks Rory,

I'll use your streamlined version...............

but.. I am a drongo

Forgot 1st page of multipage = 0


Thanks Mr.X