Hi YuDi Sri,
hope this helps you, used a
Combo box(CBox) and
List View(ListView)
Private Sub UserForm_Initialize()
Worksheets("Sheet1").Activate
If WorksheetFunction.CountA(Cells) > 0 Then
sv_Sheet1RowCount = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
If sv_Sheet1RowCount > 1 Then
CBox1.Clear
For Rowi = 1 To sv_Sheet1RowCount
CBox1.AddItem Worksheets("Sheet1").Cells(Rowi, 1).Value
Next
End If
End Sub
Private Sub CBox1_Change()
Worksheets("Sheet1").Activate
If WorksheetFunction.CountA(Cells) > 0 Then
sv_Sheet1RowCount = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End If
With ListView
.ListItems.Clear
.FullRowSelect = True
.Gridlines = True
.ColumnHeaders.Add Text:="a"
.ColumnHeaders.Add Text:="b"
.ColumnHeaders.Add Text:="c"
.ColumnHeaders.Add Text:="d"
.ColumnHeaders.Add Text:="e"
.View = lvwReport
End With
If sv_Sheet1RowCount > 1 Then
For Rowi = 1 To sv_Sheet1RowCount
If CBox1.Text = Worksheets("Sheet1").Cells(Rowi, 1).Value Then
With ListView
.ListItems.Add , , Worksheets("Sheet1").Cells(Rowi, 1).Value
.ListItems(1).SubItems(1) = Worksheets("Sheet1").Cells(Rowi, 2).Value
.ListItems(1).SubItems(2) = Worksheets("Sheet1").Cells(Rowi, 3).Value
.ListItems(1).SubItems(3) = Worksheets("Sheet1").Cells(Rowi, 4).Value
.ListItems(1).SubItems(4) = Worksheets("Sheet1").Cells(Rowi, 5).Value
End With
Exit For
End If
Next
End If
End Sub
[EDIT]Tags of "code" was added - Losmac[/EDIT]