Make Combobox Level on Userforms

[@UmmatanTV]

Hanya mengucapkan terimakasih untuk ilmunya..

[@ExcelID]

sama-sama

[@hendriktaro9729]

KREN BANG. MAKASIH👍👍

[@farisfaris7376]

Terima kasih ilmunya mas, enak penjelasannya, nanti sy coba....mohon dukunannya nanti ya mas terima kasih

[@muri679]

Makasih bang.. semoga suksez selalu...

[@ExcelID]

sama-sama, semoga abang juga sukses

[@budikwkw3910]

Bagaiaman cara nya jika label provinsi menggunakan textbox dan combobox Label kabupaten jusa demikian

[@aditiahermiranto8877]

Assalammualaikum, terima kasih atas ilmu nya gan, ijin kalau boleh dibuatkan tutorial menu vba untuk aplikasi penambahan stok barang. Terima kasih

[@ExcelID]

Walaikumsalam, tunggu di video terbarunya ya

[@Guswin308]

Wa'alaikum salaam... Selalu hadir untuk menambah ilmu, Oh ya Gan apa kelebihan dan kelemahan jika dibandingkan dg menggunakan data list

[@imamkhurbalad1114]

Minta tlg bikin tutorial pencarian data menggunakan vba tp kombinasi beberapa kriteria dong mas. Jadi pencarian bisa berdasarkan banyak kriteria

[@ExcelID]

Boleh, tunggu video nya ya

[@imamkhurbalad1114]

@@ExcelID wahh joss 😀

[@hanudevelopingsystem7954]

​@@ExcelID : apakah sudah rilis videonya ..? Mohon info

[@OdeYun]

Bikin video untuk combobox bertingkat lebih dari 2 dong bang

[@pospaudpermatahati7326]

Kalau pesan VCD Toturialnya yang lengkap kira-kira melalui siapa?

[@Anda-ii8wr]

kalau boleh gang bikin combobox bertingkat yang 4 comboboxnya

[@sabarudinnurse9242]

izin bertanya bang, bagiamana cara menampilkan isian box bagian kabupatennya itu dalam bentuk list kabupaten yang ada didaerah provinsi yg telah kita pilih di combo box atas, jadi yang di bagian kabupaten itu bukan bentuk combo box , bisa ngak ya bang ? terima kasih

[@frederikusrubawogo6613]

Mas Kali kita buat CBO beeringkat langsung dari UserFom gimana caranya?

[@djuchlimawardi7703]

Mohon bantuan untuk combobox bertingkat. Saya sudah ikuti semua petunjuk dan scriptnya, tapi ketika di clik nama provinsi muncul sesaat lalu hilang. Di combobox2 juga tidak muncul nama kabupatennya. Mohon dibantu untuk memperbaikinya. Terima kasih.

[@abdulkhariscuzr]

Ini kan kalau userform nya isi nya combo box semua, nah kalau userform nya berisi teksbox dan combo box itu kombinasi atau urutan pembuatan coding nya gimana ?

[@sahrulballu8126]

Kalau misalkan combobox bertingkatnya mengunci pengisian di combobox selanjutnya (tidak bisa diisi sama sekali), gimana caranya gan?

[@kangvideo3256]

sy sudah coba persis seperti yg divideo tapi tetap saja gk bisa mas. tidak ada pesan error. setelah dirun dicombobox1 bisa menampilkan data yg ada dicell B tetapi ketika mau diklick data yg muncul tersebut malah hilang

[@GULOONAU]

Assalamualaikum, mau nanya kenapa bila click combobox1 datanya terus hilang? Private Sub UserForm_Initialize() Dim WS As Worksheet, rcell As Range, key Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary") Set WS = Worksheets("sheet1") UserForm1.ComboBox1.Clear For Each rcell In WS.Range("B2", WS.Cells(Rows.Count, "B").End(xlUp)) If Not Dic.exists(UCase(rcell.Value)) Then Dic.Add UCase(rcell.Value), Nothing End If Next rcell For Each key In Dic UserForm1.ComboBox1.AddItem key Next End Sub Private Sub ComboBox1_Click() Dim WS As Worksheet, rcell As Range, key Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary") Set WS = Worksheets("sheet1") UserForm1.ComboBox1.Clear For Each rcell In WS.Range("B2", WS.Cells(Rows.Count, "B").End(xlUp)) If rcell.Value = ComboBox1.Value Then If Not Dic.exist(UCase(rcell.Offset(, 1).Value)) Then Dic.Add UCase(rcell.Offset(, 1).Value), Nothing End If End If Next rcell For Each key In Dic UserForm1.ComboBox2.AddItem key Next End Sub tolong ya gan.

[@adefikry5178]

sama bang, error nya kayak gitu, padahal udh sesuai script nya T_T

[@user-ex3jt8ll4p]

Fixed the code also had typo and incorrect combobox usage error. Private Sub ComboBox1_Click() Dim WS As Worksheet, rcell As Range, key Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary") Set WS = Worksheets("Sheet1") UserForm1.ComboBox2.Clear For Each rcell In WS.Range("B2", WS.Cells(Rows.Count, "B").End(xlUp)) If rcell.Value = ComboBox1.Value Then If Not Dic.Exists(UCase(rcell.Offset(, 1).Value)) Then Dic.Add UCase(rcell.Offset(, 1).Value), Nothing End If End If Next rcell For Each key In Dic UserForm1.ComboBox2.AddItem key Next End Sub

[@yogaadiyatma5183]

Mas kenapa visual basic saya tidak ada initializenya mas

[@user-ex3jt8ll4p]

Fixed the code also had typo and incorrect combobox usage error. Private Sub ComboBox1_Click() Dim WS As Worksheet, rcell As Range, key Dim Dic As Object: Set Dic = CreateObject("Scripting.Dictionary") Set WS = Worksheets("Sheet1") UserForm1.ComboBox2.Clear For Each rcell In WS.Range("B2", WS.Cells(Rows.Count, "B").End(xlUp)) If rcell.Value = ComboBox1.Value Then If Not Dic.Exists(UCase(rcell.Offset(, 1).Value)) Then Dic.Add UCase(rcell.Offset(, 1).Value), Nothing End If End If Next rcell For Each key In Dic UserForm1.ComboBox2.AddItem key Next End Sub

[@idit_paray2876]

bg Setelah muncul datanya di combobox gimana cara bisa input datanya di sheet lain

[@oetjoxnasaktion5173]

bang saya ko ga nampil yahhh data di combo 2 nya mohon arahan nya padahal udha sama kayanya deh

[@pisarta]

Bang boleh minat codingnya? Saya coba koq gak jalan?

[@RQMitak]

Run time error '13' Type mismatch Itu knapa mas?

[@akiwarja6152]

Om, kl isi cell diabaikan untuk penulisan besar kecilnya huruf gimana itu ya? berarti tidak menggunakan ucase ya? dan juga jika isi cell nya angka perintah apa yang dipake? mohon pencerahannya...Hanupis Suhu

[@akiwarja6152]

untuk isi cell dengan penulisan huruf kecil masih bisa jalan tapi ketika ada penulisan campuran nama dan gelar...tidak bisa jalan

[@akiwarja6152]

OKEH HANUPIS SUHU...DAH KAPENDAK

[@hanudevelopingsystem7954]

@@akiwarja6152 : Mohon info, utk isi cell angka, apkah ada perbedaan dari kodingnya ..?

[@yudarifai3193]

Kalau untuk membalik misal kita pilih kabupaten, otomatis combobox muncul provinsinya. Gimana om?

[@ExcelID]

rubah coding nya

[@kangvideo3256]

bang. punya sy berhasil tapi ada sedikit masalah. datanya tidak tampil dicombobox setelah dirunning bang

[@OdeYun]

Bang stelah saya masukan koding di combobox1 malah run time error 438 "object doesn't support this property or method". Mohon solusinya bang...

[@hanudevelopingsystem7954]

apakah sudah solved ..? mohon info

[@sumhexaputra1354]

Bang klo mau dilanjutin kelist box bisa ga ? Terima kasih

[@ExcelID]

bisa

[@zikimedia9172]

Assalamu'alaikum.. mau tanya gan, kalau buat subtotal secara otomatis menggunakan vba bisa gak ya?

[@ExcelID]

Walaikumsalam.. Mungkin bisa begini : Sub Substotal() Dim Data As Long Data = Range("D" & Rows.Count).End(xlUp).Row Range("D" & LR + 3).Formula = "=SUBTOTAL(9,D3:D" & Data & ")" End Sub

[@Shes_K]

Terlalu cepat ... susah diikuti bagi yang baru belajar atau yg ingin belajar

[@morezzgaming6411]

kok aku malah gak bsa ya, malah error

[@GULOONAU]

sudah banyak kali di coba tapi masih sama, harap bantuannya gan.

[@ExcelID]

tetap berusaha

[@allammihay]

Gan saya coba ko ga bisa ya malah gagal? boleh minta nomor WA nya?

[@imronrozaqi3103]

boleh minta alamat emailnya bos. mau minta bantuan

[@ExcelID]

Sudah ada di deskripsi silakan pak