Dear para Master excell,
Maaf sebelumnya, kebetulan sekali saya sedang membutuhkan form isian seperti
ini, namun saya menginginkan setiap data tersimpan dalam sheet masing-masing
sesuai dengan nama yang diinput.
Mohon kiranya dapat membantu, terima kasih.
------------------
hasna
2011-09-22
-------------------------------------------------------------
Haps
2011-09-14 07:37:44
belajar-excel
ยบ
Re: [belajar-excel] Combo Box multi coloumn disertai validasi
*ada dua prosedur*
*
*
*(1)*
*--- ditulis di module sheet2 (sheet yg ada comboboxnya)---*
*
*
Private Sub CboScope_Change()
' menampilkan data sesuai piihan di cbobox
' pada saat terjadi *event Change* pada Combobox
' modified by: Haps 15 sept 2011
'---------------------------------
Dim R As Long, xList As Range
Set xList = Application.Range("List_SCOPE")
R = 0
With CboScope
R = .ListIndex + 1
Range("B7") = xList(R, 1)
Range("B8") = xList(R, 2)
End With
End Sub
*(2)*
*--- ditulis di module sheet1 (sheet yg ada Tabel yag akan dijadikan
list)---*
Private Sub Worksheet_Activate()
'--- dari mba ct ----'
' mengisi combobox dgn list dari sheet1 2 kolom
' modif by: Haps 15 sept 2011
'---------------------------------
Dim PKRJN As Range
Set PKRJN = Sheets("sheet1").Range("B1").CurrentRegion.Offset(1, 0)
Set PKRJN = PKRJN.Resize(PKRJN.Rows.Count - 1, 2)
PKRJN.Name = "List_SCOPE"
With Sheets("Sheet2").CboScope
.LinkedCell = ""
.ListFillRange = PKRJN.Name
.ColumnCount = 2
.BoundColumn = 1
.LinkedCell = ""
.ListRows = 20
.ColumnWidths = "70 pt;200 pt"
End With
End Sub
2011/9/14 Yudha Saptiadi <[email protected]>
>
> Mohon bantuan macro-nya agar bisa menampilkan combo box dengan multi
coloumn disertai validasinya
> berikut lampirannya.
> sebelumnya saya ucapkan terimakasih untuk waktu yang disediakan...
> Regards,
> Yudha
