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
