Combobox List Pilihan

           Combobox Pilihan List

Membuat list pilihan pada combobox cukup mudah caranya
Buatlah userform dan table disheet1 seperti gambar diatas
Kemudian pastekan  kode vba berikut ini :

pada CommandButton1

Private Sub ComboBox1_Change()
CommandButton1_Click
End Sub

pada CommandButton1

Private Sub CommandButton1_Click()
If ComboBox1.Text = "Sultra" Then
ComboBox2.Text = ""
ComboBox2.List = Sheet1.Range("B5:B20").Value
ElseIf ComboBox1.Text = "Bali" Then
ComboBox2.Text = ""
ComboBox2.List = Sheet1.Range("C5:C20").Value
End If
End Sub

pada userform

Private Sub UserForm_Initialize()
ComboBox1.AddItem "Sultra"
ComboBox1.AddItem "Bali"
End Sub


Selesai
Semoga bermanfaat
Dapatkan sampel file pada link dibawah ini