saya lagi belajar combobox tingkat lanjut ada yang bisa bantu ?
dalam userform ada combobox1 combobox2 dan listbox berfungsi untuk
combobox1 untuk mencari nama
combobox2 untuk mencari nama barang
dan ditampilkan pada listbox

dan seterusnya list di pilih bisa masuk ke textbox atau combobox yang di tujukan.

lampirancontoh latihan combobox.xlsm

terima kasih banyak mas @Herry saya belajar lg dr konsepnya mas @Herry

mas aku gk paham di bagian ini, mohon bantuannya mas.

Sub FilterData()
.
.
.
For ShRow = 9 To Lastrow

itu kenapa ya...??

Dim ShRow As Byte Diganti menjadi Dim ShRow As long (karena cuma bisa sampai angka 255 sedangkan baris data nya ada 9 ribuan )

For ShRow = 9 To Lastrow diganti For ShRow = 5 To Lastrow (karena Baris awal data dari baris 5)

untuk Properties TABELDATABASE dibagian columnHeads dari true diganti menjadi false

Siap mas terima kasih atas ilmunya

karena datanya banyak klu pakai kode ini memperlambat prosesnya Karena tiap pindah kursor di TABELDATABASE Kode ini jalan terus, alternatif nya
bisa diganti dengan kode dibawahnya

Private Sub TABELDATABASE_Click()

Jika indeks Tabel lebih dari 0 maka isi otomatis data di textbox1 dan combobox3
If Me.TABELDATABASE.ListIndex > 0 Then
Me.CBNAMADINAS2 = Me.TABELDATABASE.List(Me.TABELDATABASE.ListIndex, 0)
Me.CBNAMAASET = Me.TABELDATABASE.List(Me.TABELDATABASE.ListIndex, 1)
End If

End Sub

diganti dengan :

Private Sub TABELDATABASE_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'tekan tombol enter untuk menjalankan kode pengisian
If KeyCode = vbKeyReturn Then
If Me.TABELDATABASE.ListIndex > 0 Then
Me.CBNAMADINAS2 = Me.TABELDATABASE.List(Me.TABELDATABASE.ListIndex, 0)
Me.CBNAMAASET = Me.TABELDATABASE.List(Me.TABELDATABASE.ListIndex, 1)
End If
End If

End Sub

jadi tinggal di klik tombol enter di baris listbox TABELDATABASE yang mau di copy baru kodenya jalan

Kelihatannya prosesnya lebih cepat untuk data di listbox pakai advanced filter
mungkin bisa sebagai alternatif kode untuk Database yang Banyak Datanya

maaf ada kesalahan
.Range("Y1") = Ws.Range("B4")
Seharusnya :
.Range("Y1") = Ws.Range("C4")

siap mas @Herry yg sangat baik, sy berterima kasih banyak nanti aku coba terapkan

mas @Herry aku ada kendala dibagian pembuatan hasil cetakan di tes RKBMD ini rencananya data hasil imputan masuk ke sheet PENGADAAN_B, aku minta saran dong mas.

ini conttoh formatnya mas

Mungkin seperti ini

terima kasih mas...

izin nanya mas @Herry Apakah mas herry pernah nyoba Memanggil Laporan Crystal Report Melalui VBA Excel ??

saya lg nyoba Excel sebagai aplikasinya, ms. access sebagai databasenya crystal report sebagai Print Preview nya

Belum pernah