Selamat malam semua,
Mohon sharingnya bagaimana membuat combobox yang tersortir alphabetically sekaligus searchable.
Terimakasih...

Mungkin Seperti ini

ada revisi kode

Bang Herry, terimakasih.
Bang kok Combobox-nya tidak bisa sy run ya??
Sebagai info sy sudah mengizinkan perihal security-nya. Mohon arahan lebih lanjut.

security untuk macro dan activeX diijinkan. lalu tinggal ketik di comboboxnya misalnya K maka muncul listcombonya yang berawalan huruf K

Atau Pakai Combobox di UserForm (Bukan ActiveX) seperti ini

Terimakasih banyak atas bantuannya bang Herry. It Works...

Oh iya bang. Tombol combobox-nya tidak bisa langsung berfungsi ya, harus diketikkan dulu sembarang karakter. Tp overall sudah sangat membantu...

Alhamdulillah makasih banyak bang Herry atas bantuannya. :-D

Bang Herry maaf nanya lagi :-),
Kenapa ya kalo kita pindah ke sheet lain, terus mau dijalankan dari VBEditor kok ada error gini:

Run-time error '1004':
The sort reference is not valid. Make sure that it's within the data you want to sort, and the first by box isn't the same or blank

untuk bisa dijalankan di sheets lain, ada berapa baris kode yang diubah untuk tetap mengacu pada sheets Data pada waktu prosesnya. seperti ini

Terimakasih bang. Sy cb punya abg berhasil.
Tp di file sy kok tidak berhasil ya?
Terlampir file yg sy maksud. Ada di UF_Form untuk combobox CB_CIDK.
Sebelumnya sy coba pakai sheet5.range("O3:O"), juga tidak bisa bang.
Mohon pencerahannya kembali.

ada kurang . di posisi kode di shortnya baik di Private Sub CB_CIDK_Change() maupun di
Private Sub UserForm_Initialize()

.Range("O2:O" & lastrow).Sort Key1:=.Range("O2"), Order1:=xlAscending, Header:=xlYes '==> kurang . didepan range key1 biar menuju sumber data sheet5

kemudian properties combobox CB_CIDK dirubah menjadi 2-FmMatchEntryNone (Biar tidak otomatis terisi full Text dari Daftar List)

Makasih banyak bang.
It works...
Sorry bang banyak tanya hehe...
Maklum masih belajar, pengin banyak taunya.
Aku cb ganti script di bagian
CB_CIDK.RowSource = "DB_ST!O3:O" & lastrow
menjadi
CB_CIDK.RowSource = .Range ("O3:O" & lastrow)
maksudnya biar lebih aman, khawatir tidak sengaja merubah nama sheet "DB_ST" menjadi nama lain. Kalo pakai sheet5 atau aliasnya (Ws) rasanya lebih aman. Tp malah error type mismatch :(
Mohon pencerahannya kembali

Coba bikin Parameter baru untuk menampilkan Nama Sheet DB_ST dari Sheet5.untuk data CB_CIDK.RowSource

Alhamdulillah makasih banyak bang Herry atas pencerahannya. Banyak dapat ilmu baru.