Dear Mr. Kid, Terima kasih atas penjelasannya. Saya sudah beberapa kali bahkan beberapa jam mencoba memikirkan hal tersebut dengan membolak balik dan/atau menggonta ganti Scripnya. Tapi hasilnya masih sama yaitu merujuk pada SetMemMaster yang paling bawah / terakhir diinput.
Mohon berkanan pencerahan dan solusinya dari teman-teman BeExceller sekalian. Terima kasih, Harry Pada Rabu, 20 November 2013 21:45, Mr. Kid <[email protected]> menulis: :) Sekedar tanya saja. MemMaster yang Anda gunakan itu apa sih ? Bukannya itu sebuah variabel ya... tapi datatypenya apa ? Berapa kali Anda sudah mengubah isi MemMaster ? Terakhir kali dalam pengubahan yang Anda lakukan, apa isi MemMaster tersebut ? coba direnungkan dulu pertanyaan diatas... jawab sendiri, Insya Allah akan bertemu penyebabnya dan harus melakukan apanya. sekarang hal yang berbeda.... ComboBox bisa diberi daftar dengan cara merujuk suatu range atau nama range. Kenapa kebanyakan pengguna VBA tetap memilih melakukan loop per item untuk mengisi banyak kolom ke sebuah combo box atau listbox ? Bukankah memberi nama range dan digunakan dalam combobox dengan properti listfillrange (di worksheet) atau rowsource (di userform) sudah bisa mewakili proses loop. Kemudian, kenapa ketika membaca data dari daftar combobox berisi banyak kolom harus merujuk ke sumber data yang mengisi si daftar tersebut ? Bukankah lebih mudah langsung membaca dari isi daftar si combobox ? Coba lihat-lihat tentang properti ListIndex, Column, List pada penggunaan ComboBox atau ListBox multi kolom. kayanya kalimat diatas tidak menyelesaikan masalah apapun... hehehehe... jadi anggap saja hal itu sebagai angin lalu... maap ye.... :) Wassalam, Kid. 2013/11/20 Harry <[email protected]> > >Dear Be Exceller, > >Mohon informasi akan permasalahan saya dalam menggunakan referensi data MemMaster sebagaimana Scrip sebagai berikut : > >Private Sub UserForm_Initialize() > Dim I As Long, TbHeigh As Long, TbWidth > > Set MemMaster = Sheets("DATABASE USER").Cells(1).CurrentRegion > TbHeigh = MemMaster.Rows.Count - 1 > TbWidth = MemMaster.Columns.Count - 1 > Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth) > > Application.EnableEvents = False > With CboNAMAUSER > .ColumnCount = 2 > .BoundColumn = 1 > For I = 1 To TbHeigh > .AddItem > .List(I - 1, 0) = MemMaster(I, 2) > Next I > End With > Application.EnableEvents = True > > Set MemMaster = Sheets("DATABASE BUKU").Cells(1).CurrentRegion > TbHeigh = MemMaster.Rows.Count - 1 > TbWidth = MemMaster.Columns.Count - 1 > Set MemMaster = MemMaster.Offset(2, 0).Resize(TbHeigh, TbWidth) > > Application.EnableEvents = False > With CboJUDULBUKU > .ColumnCount = 2 > .BoundColumn = 1 > For I = 1 To TbHeigh > .AddItem > .List(I - 1, 0) = MemMaster(I, 2) > Next I > End With > Application.EnableEvents = True > >End Sub > > >Private Sub CboNAMAUSER _Change() > Dim r As Integer > If CboNAMAUSER.ListIndex > -1 Then > r = CboNAMAUSER.ListIndex + 1 > If r > 0 Then > txtKELAS.Value = MemMaster(r, 3) > txtJURUSAN.Value = MemMaster(r, 4) > End If > End If >End Sub > >Private Sub CboJUDULBUKU _Change() > Dim r As Integer > If CboJUDULBUKU.ListIndex > -1 Then > r = CboJUDULBUKU.ListIndex + 1 > If r > 0 Then > txtPENERBIT.Value = MemMaster(r, 3) > txtPENGARANG.Value = MemMaster(r, 4) > End If > End If >End Sub > > > txtKELAS.Value = MemMaster(r, 3) > txtJURUSAN.Value = MemMaster(r, 4) > >Pada saat saya meng-klik CboJUDULBUKU, maka hasilnya txtKELASdan txtJURUSAN adalah benar yaitu menggunakan Sheet DATABASE BUKU. Tetapi mengapa pada waktu saya meng-klik CboNAMAUSER, justruyang keluar dari txtKELAS dan txtJURUSAN adalah juga mengambil referensi Sheet DATABASEBUKU yang seharusnya mengambil dari DATABASE USER...??? > >Yang saya inginkan adalah saya dapat menggunakan MemMaster dengan menggunakan 2 (dua) atau lebih dari 1 (satu) Sheet. > >Mohon informasi deri teman-teman BeExceller sekalian. > >Terima kasih, > > >Harry
