Private Sub UserForm_Initialize()
' siti Vi // 21 Juli 2011
' rev2: 25 jul 2011
'----------------------------
Dim Cabang As Range, UniqCab, UniqTgl, UniqPjb, n As Long
Set Tbl = Sheets("Sheet1").Cells(4, 3).CurrentRegion
Set Cabang = Tbl.Offset(2, 2).Resize(Tbl.Rows.Count - 2, 1)
UniqCab = LOUV(Cabang)
UniqTgl = LOUV(Cabang.Offset(0, -1))
UniqPjb = LOUV(Cabang.Offset(0, 1))
ComboBox1.Clear: ComboBox2.Clear: ComboBox3.Clear
For n = LBound(UniqCab) To UBound(UniqCab)
ComboBox1.AddItem UniqCab(n)
Next n
For n = LBound(UniqTgl) To UBound(UniqTgl)
ComboBox2.AddItem UniqTgl(n)
Next n
For n = LBound(UniqPjb) To UBound(UniqPjb)
ComboBox3.AddItem UniqPjb(n)
Next n
End Sub
'----part code mengisi listbox ---------
' items dlm listbox
For r = 3 To Tbl.Rows.Count
If ComboBox1.ListIndex > -1 Then
If Tbl(r, 2) = CStr(ComboBox2) Then
If Tbl(r, 3) = ComboBox1 Then
If Tbl(r, 4) = ComboBox3 Then
n = n + 1
For c = 1 To Tbl.Columns.Count
.AddItem: .List(n, c - 1) = Tbl(r, c)
Next c
End If
End If
End If
End If
Next r
'---------------------------------
2011/7/25 Ridwan Rahman <[email protected]>
>
> Kapan lalu telah dibahas oleh mbak ctv tentang listbox multi kolom dari
satu pilihan combo box.
> Mohon pencerahannya, gimana listbox multi kolom tersebut didapat dari
multi combo box,…
> Terima kasih sebelumnya.
> Salam
> RidwanRahman
ctv_ListBox Multi_Kolom (V2).7z
Description: Binary data
