Pookiemeister
Well-known Member
- Joined
- Jan 6, 2012
- Messages
- 563
- Office Version
- 365
- 2010
- Platform
- Windows
Code:
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