You need to set the .TextColumn property of the combo box to the text that you want to appear in the combo box when it's selected. That is the .Text property of the combo box.
The .BoundColumn determines the .Value property.
Alternatly, you could directly access the (0-based) .List of the combo box, as in CommandButton2 below
Private Sub UserForm_Initialize()
With ComboBox1
.ColumnCount = 2
.TextColumn = 1
.BoundColumn = 2
End With
' ...
End Sub
Private Sub CommandButton1_Click()
With Range("C72")
.Value = ComboBox1.Text
.Offset(0, 1).Value = ComboBox1.Value
End With
End Sub
Private Sub CommandButton2_Click()
With ComboBox1
If .ListIndex <> -1 Then
Range("C7").Value = .List(.ListIndex, 0)
Range("D7").Value = .List(.ListIndex, 1)
End If
End With
End Sub‹
Bookmarks