Re: [belajar-excel] Menggunakan 2 MemMaster dalam 1 UserForm

[Mr. Kid]

Pada bagian general declaration dari userform, tambahkan baris :
private memmaster2 as range

lalu pada setiap prosedur yang membutuhkan data dari sheet bernama DATA
TRANSAKSI harus menggunakan memmaster2 dan bukan memmaster.

Wassalam,
Kid.




2014-04-02 9:09 GMT+07:00 Harry <hariansyah...@yahoo.com>:

>
>
>
> Dear BeExceller,
>
> Mohon pencerahan akan pertanyaan saya mengenai MemMaster yang referensi
> datanya dari 2 (dua) sheet yang berbeda.
> Bersama ini saya sertakan scrip yang saya gunakan yang terdiri dari sheet
> DATABASE dan sheet DATA TRANSAKSI, tetapi hasinya tidak seperti yang saya
> inginkan karena selalu atau bahkan tetap mengambil dari sheet DATA
> TRANSAKSI sehingga sheet DATABASE sama sekali tidak berfungsi.
>
> Mohon pencerahaan dari rekan-rekan BeExceller.
>
> Terima kasih - Wassalam,
>
>
> Harry
>
>
> Private Sub UserForm_Initialize()
>    Dim I As Long, TbHeigh As Long, TbWidth
>
>    Set MemMaster = Sheets("*DATABASE*").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 ComboBox1
>       .ColumnCount = 2
>       .BoundColumn = 1
>       For I = 1 To TbHeigh
>          .AddItem
>          .List(I - 1, 0) = MemMaster(I, 135)
>       Next I
>    End With
>    Application.EnableEvents = True
>
>    Set MemMaster = Sheets("*DATA TRANSAKSI*").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
>
> Private Sub ComboBox1_Change()
>    Dim r As Integer
>    If ComboBox1.ListIndex > -1 Then
>       r = ComboBox1.ListIndex + 1
>       If r > 0 Then
> ComboBox1.Value = MemMaster(r, 135)
> txtSERVICESADVISOR1.Value = MemMaster(r, 137)
>    End If
>    End If
> End Sub
>
> Private Sub ComboBox2_Change()
>    Dim r As Integer
>    If ComboBox2.ListIndex > -1 Then
>       r = ComboBox2.ListIndex + 1
>       If r > 0 Then
> ComboBox2.Value = MemMaster(r, 135)
> txtSERVICESADVISOR2.Value = MemMaster(r, 137)
>    End If
>    End If
> End Sub
>    Pada Senin, 31 Maret 2014 6:01, Harry <hariansyah...@yahoo.com>
> menulis:
>
>   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("DATA CUSTOMER").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
>
>
>    
>