Astaghfirullah ada yg lupa Mas hehehehe, jadi malu sendiri Ternyata saya belum pasang Dim Tbl2 As Range dan sebagainya, pantes error Saya lihat di vba_contoh_combobox.xlsm ada Dim, saya cocokkan dengan data saya, Dimnya saya taro dipaling atas, pantes error terus Trimakasih Mas petunjuknya Case close Wassalam,
________________________________ From: Mr. Kid <[email protected]> To: BeExcel <[email protected]> Sent: Saturday, May 11, 2013 12:37 AM Subject: Re: [belajar-excel] Initialize combobox ganda Coba deh dilihat lagi pada file vba_contoh_combobox.xlsm Apa beda tabel di kolom A dan kolom lainnya ? Dalam 1 sheet tersebut ada 3 tabel, tabel dikolom A hanya berisi unique item dari kolom pertama Di kolom lain (ada jarak kolom kosong) ada tebel berisi 2 kolom yang unique record berdasar kolom pertama dan kedua Begitu seterusnya. Kemudian bandingkan dengan data yang telah Anda susun. Wassalam, Kid. 2013/5/11 lapendosol opik <[email protected]> > >Tabel susah sesuai kebutuhan Mas, susunan script juga sudah beriringan >(menurut saya) >Tapi masih salah juga >Private Sub UserForm_Initialize() > dtpJual.Value = Now > ' mengenali tabel referensi > Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0) > > tRows = Tbl.Rows.Count - 1 > 'mengisi list pada KomboKategori > sUniq = "|" > > For i = 1 To tRows > ' mengambil UniqValues -nya, dgn cara primitif.. > If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then > sUniq = sUniq & Tbl(i, 2) & "|" > cmbKategoriJ.AddItem Tbl(i, 2) > End If > Next i > > > Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0) > tRows2 = Tbl2.Rows.Count - 1 > sUniq2 = "||" > For ii = 1 To tRows2 > If InStr(1, sUniq2, "||" & Tbl2(ii, 2) & "||") = 0 Then > sUniq2 = sUniq2 & Tbl2(ii, 2) & "||" > cmbJenisMotor.AddItem Tbl2(ii, 2) > > End If > Next ii > txtPelanggan.SetFocus >End Sub > > > >Lebih jelasnya saya lampirkan filenya >Trimakasih sebelumnya >Wassalam, > > > >________________________________ > From: Mr. Kid <[email protected]> >To: BeExcel <[email protected]> >Sent: Saturday, May 11, 2013 12:05 AM > >Subject: Re: [belajar-excel] Initialize combobox ganda > > > > >Buat seperti combo box berjenjang tapi untuk 2 jenjang berbeda. Artinya harus >ada 2 blok. Blok pertama untuk jenjang barang sampai selesai, blok kedua >jenjang motor sampai selesai. > >Tabelnya tetap mengikuti kaidah N tabel untuk N jenjang. >Blok 1 ada 5 jenjang, maka butuh 5 tabel untuk 5 combobox di blok jenjang 1 >Blok 2 ada 3 jenjang, maka butuh 3 tabel (disheet berbeda lagi) untuk 3 >combobox di blok jenjang 2. >Total ada 2 sheet berisi 8 tabel untuk 8 combobox agar terbentuk 2 blok >pengaturan jenjang. > >Dalam script tetap disusun beriringan > >'blok jenjang 1 > 'disini sampai selesai > >'blok jenjang 2 > 'disini sampai selesai > >Wassalam, >Kid. > > > > > > > > > > > > >2013/5/10 lapendosol opik <[email protected]> > > >> >>Trimakasih mas Kid tanggapannya >>Combobox berjenjang saya sudah dapat dari topik2 sebelumnya, yaitu combobox >>kategori barang >>Jika cmbKategoriJ dipilih, maka cmbNamaBarangJ akan menampilkan item si >>kategori yg terpilih >> >>Kali ini saya ingin nambahin combobox berjenjang lagi, jadi pada saat >>initialize ada 2 combobox yg akan terisi pada saat userform dibuka= combobox >>kategori barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) >> >>combobox kategori barang (cmbKategoriJ) terhubung ke cmbNamaBarangJ >>combobox jenis motor (cmbJenisMotor) nanti akan terhubung ke cmbTipeMotor dst >>gitu mas >>Mohon petunjuknya lagi >>Trimakasih sebelumnya >>Wassalam, >> >> >> >> >>________________________________ >> From: Mr. Kid <[email protected]> >>To: BeExcel <[email protected]> >>Sent: Friday, May 10, 2013 11:23 PM >>Subject: Re: [belajar-excel] Initialize combobox ganda >> >> >> >> >>Mungkin maksudnya combobox berjenjang. Jika combobox1 dipilih anu, maka >>combobox2 menampilkan item anggotanya si anu saja. >> >>Coba file terlampir pada sheet 'daftar_item_berjenjang' >>Perhatikan cara menyusun tabel itemnya. Ada N tabel untuk N jenjang. >> >>Wassalam, >>Kid. >> >> >> >> >> >>2013/5/10 lapendosol opik <[email protected]> >> >> >>> >>>Dear Master-master Excel, >>>Saya ingin meng-initialize combobox ganda, tapi script yg saya gunakan masih >>>saja salah >>>Private Sub UserForm_Initialize() >>> dtpJual.Value = Now >>> ' mengenali tabel referensi >>> Set Tbl = Sheets("database").Cells(2, 2).CurrentRegion.Offset(1, 0) >>> Set Tbl2 = Sheets("Motor").Cells(2, 1).CurrentRegion.Offset(1, 0) >>> tRows = Tbl.Rows.Count - 1 >>> trows2 = Tbl2.Rows.Count - 1 >>> ' mengisi list pada KomboKategori >>> sUniq = "|" >>> sUniq2 = "ll" >>> For i = 1 To tRows >>> ' mengambil UniqValues -nya, dgn cara primitif.. >>> If InStr(1, sUniq, "|" & Tbl(i, 2) & "|") = 0 Then >>> sUniq = sUniq & Tbl(i, 2) & "|" >>> cmbKategoriJ.AddItem Tbl(i, 2) >>> End If >>> Next i >>> For ii = 1 To trows2 >>> If InStr(1, sUniq2, "ll" & Tbl2(ii, 2) & "ll") = 0 Then >>> sUniq2 = sUniq2 & Tbl2(i, 2) & "ll" >>> cmbJenisMotor.AddItem Tbl2(i, 2) >>> End If >>> Next ii >>> txtPelanggan.SetFocus >>>End Sub >>> >>> >>>Mohon di koreksi, maksud saya setiap userform dibuka, combobox kategori >>>barang (cmbKategoriJ) dan combobox jenis motor (cmbJenisMotor) akan terisi >>>otomatis sesuai tabel referensinya >>>Trimakasih sebelumnya >>> >>> >>>Wassalam, >>> >> >> >> > > >
