Saring Data Pakai ComboBox

Sudah setahun lebih gak pernah berbagi artikel Excel, kali ini saya akan berbagi artikel tentang Saring Data pakai ComboBox. Tujuan dari saring data ini untuk memudahkan para operator atau pengguna Excel untuk memilah  Nama yang lebih dari satu akan tetapi kita ambil satu aja.. Bingung ngejelasinnya hehehe.... Kayaknya gak perlu panjang lebar saya bercerita karena saya bukan seorang penulis. Ok langsung aja kita meluncur ke TKP,
Yang pertama kita buat dulu databasenya, Lihat gambar di bawah ini :

Lalu kita buat scriptnya :

Private Sub UserForm_Activate()
Saring
End Sub
Sub Saring()
Dim Ws As Worksheet
Set Ws = Sheets("sheet1")
On Error Resume Next
Dim Nom As Range
Dim Rg As Range
Dim A As Range
Dim B As Range
Dim item As Variant
Dim Unix As New Collection
  
Set Nom = Ws.Range("A2", Ws.Range("A2").End(xlDown))
ComboBox1.Clear
For Each Rg In Nom
    Unix.Add Rg.Value, CStr(Rg.Value)
Next Rg
For Each item In Unix
    ComboBox1.AddItem item
Next item
On Error GoTo 0
End Sub

Setelah itu hasilnya tampak seperti gb di bawah ini :

Untuk sementara cukup sampai disini aja dulu, semoga bermanfaat.
Salam