24 VBA Advanced Using ComboBox UserForm

Описание

24 VBA Advanced

Follow-up of VBA Beyond Basics and VBA for EveryOne Series

Topics in this Video:
Using ComboBox (Drop Down Menu)
Adding - Deleting Values from ComboBox

My Blog: https://letsxcel.blogspot.com/

Code:
Private Sub ComboBox1_Change()
Range("B1").Value = ComboBox1
End Sub

Private Sub CommandButton1_Click()

Do While ComboBox1.ListCount (USE GREATER THAN SIGN) 0
ComboBox1.RemoveItem (0)
Loop

End Sub

Private Sub UserForm_Activate()

With Me.ComboBox1 'Me = UserForm1
For Each vCell In Range("A1:A5")
.AddItem vCell.Value
Next vCell
End With

End Sub