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
