Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("bd")
Set Rng = f.Range("A2:C" & f.[A65000].End(xlUp).Row)
Me.ComboBox1.ColumnCount = 3
Me.ComboBox1.ColumnWidths = "50;50;40"
Me.ComboBox1.List = Rng.Value
End Sub
Private Sub ComboBox1_Click()
Me.TextBox1 = Me.ComboBox1
Me.TextBox2 = Me.ComboBox1.Column(1)
Me.TextBox3 = Me.ComboBox1.Column(2)
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
a = Split(Me.ComboBox1.ColumnWidths, ";")
Select Case X
Case Is < CDbl(Left(a(0), 2))
Me.ComboBox1.TextColumn = 1
Case Is > CDbl(Left(a(0), 2)) + CDbl(Left(a(2), 2))
Me.ComboBox1.TextColumn = 3
Case Else
Me.ComboBox1.TextColumn = 2
End Select
End Sub