Change userform textbox value based on combox value

[Mikeymike_W]

Hi All,

I have a userform and I want certain textboxes to change their value dependent on the combobox value.
The combobox can show 1st - 4th and I want two text boxes within the userfor to base their values on different cells within my spreadsheet. At the moment I have this, but it doesn't work:

Private Sub CBPrototypes_Change()

If CBPrototypes = "1st" Then
frmcaseaccepted.TBPlanner = Cells(Target.Row, 76)
frmcaseaccepted.CBEngineers = Cells(Target.Row, 81)
End If

If CBPrototypes = "2nd" Then
frmcaseaccepted.TBPlanner = Cells(Target.Row, 82)
frmcaseaccepted.CBEngineers = Cells(Target.Row, 86)
End If

If CBPrototypes = "3rd" Then
frmcaseaccepted.TBPlanner = Cells(Target.Row, 87)
frmcaseaccepted.CBEngineers = Cells(Target.Row, 91)
End If

If CBPrototypes = "4th" Then
frmcaseaccepted.TBPlanner = Cells(Target.Row, 92)
frmcaseaccepted.CBEngineers = Cells(Target.Row, 96)
End If

End Sub


The userform is opened by right clicking on the row.

Hope I've supplied enough information.

Thanks in advance,

Mike

 

[Mikeymike_W]

Nevermind I worked it out, just added:

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Data")
x = Me.LblRow 'current row
    
If CBPrototypes = "1st" Then
frmcaseaccepted.TBPlanner = Cells(x, 76)
frmcaseaccepted.CBEngineers = Cells(x, 81)
End If

Thanks anyway

 

[dmt32]

Hi try

Private Sub CBPrototypes_Change()
    Dim Index As Integer
    
    Index = Me.CBPrototypes.ListIndex + 1


    Me.TBPlanner = Cells(ActiveCell.Row, Choose(Index, 76, 82, 87, 92))
    Me.CBEngineers = Cells(ActiveCell.Row, Choose(Index, 81, 86, 91, 96))
End Sub

Dave