Displays selection inside a readonly textbox

[Pookiemeister]

Private Sub cmbPrdCde_Enter()
    Dim ary As Variant, nary As Variant, r As Long
    If cmbSDPFLine.Value = "Slat" Then
        cmbPrdCde.Clear
        cmbPrdCde.Value = ""
        With ThisWorkbook.Worksheets(cmbSDPFLine.Value)
            ary = .Range("B3", .Range("B" & Rows.Count).End(xlUp).Offset(, 1))
            ReDim nary(1 To UBound(ary))
                For r = 1 To UBound(ary)
                    nary(r) = ary(r, 1) & " (" & ary(r, 2) & ")"
                Next r
        Me.cmbPrdCde.List = nary
        End With
    End If
    End Sub

The above code places the values, from a worksheet called "Slat", of Column B and C and concatenates them into one combo box on a user form. Column B contains the product code for the item and column C contains the name of the item. How do I, depending on what is selected, display the value of just column C inside a read only text box.

 

[Fluff]

If you mean a locked textbox try

Private Sub cmbPrdCde_Click()
   Dim v As String
   v = Split(Me.cmbPrdCde.Value, " (")(1)
   Me.TextBox1.Value = Left(v, Len(v) - 1)
End Sub