1 Message

Digest #2855

Menggunakan 2 MemMaster dalam 1 UserForm by "Harry" hariansyahptk

Message

1 Menggunakan 2 MemMaster dalam 1 UserForm

Sun Mar 30, 2014 4:01 pm (PDT) . Posted by:

"Harry" hariansyahptk

Dear BeExceller,

Assalamu'alakum Wr. Wb.

Rekan-rekan BeExceller, saya ingin menggunakan
MemMaster yang mengambil data dari 2 (dua) sheet yang berbeda dalam 1 (satu) UserForm. Jika hanya
menggunakan 1 (satu) MemMaster, saya menggunakan Script sebagai berikut :

Private Sub UserForm_Initialize()
   Dim I As Long, TbHeigh As Long,
TbWidth
   Set MemMaster = Sheets("DATACUSTOMER").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 CboNOPOLKENDARAAN
      .ColumnCount = 2
      .BoundColumn = 1
      For I = 1 To TbHeigh
         .AddItem
         .List(I - 1, 0) =
MemMaster(I, 2)
      Next I
   End With
   Application.EnableEvents = True
   txtJAM = Format(Time,
"h:mm")
End Sub

Private Sub CboNOPOLKENDARAAN_Change()
   Dim r As Integer
   If CboNOPOLKENDARAAN.ListIndex
> -1 Then
      r = CboNOPOLKENDARAAN.ListIndex
+ 1
      If r > 0 Then
   CboNOPOLKENDARAAN.Value =
MemMaster(r, 2)
   txtMODEL.Value = MemMaster(r, 3)
   txtNORANGKA.Value = MemMaster(r,
4)
   txtNOMESIN.Value = MemMaster(r, 5)
   txtWARNA.Value = MemMaster(r, 6)
   txtTAHUN.Value = MemMaster(r, 7)
   txtNAMACUSTOMER.Value =
MemMaster(r, 8)
   txtMERKKENDARAAN.Value =
MemMaster(r, 9)
   txtALAMAT.Value = MemMaster(r, 10)
   txtHP.Value = MemMaster(r, 11)
   txtREF.Value = MemMaster(r, 12)
   End If
   End If
End Sub

Dan hasilnya sesuai dengan yang diinginkan. Tapi
bagaimana cara dan Scipt-nya jika saya ingin menggunakan 2 (dua) MamMaster (dalam
1 UserForm) jika referensi yang ingin diambil dari sheet yang berbeda…???

Mohon bantuan dari rekan-rekan Master sekalian.

Terima kasih atas berkenan informasinya.

Wassalamu'alaikum Wr. Wb.

Harry

N/B:
Sheet 1 = DATABASE CUSTOMER
Sheet 2 = DATABASE BARANG

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Visit Your Group