Trima kasih Mba Haps.
Macronya sudah sesuai dengan keinginan.
2011/9/14 Haps <[email protected]>
> **
>
>
> *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
>
>
>
