give the code below a try
Private Sub Loadbarang(akategori As Integer, vkategori As String)
Dim jml As Integer
Dim I As Integer, x As Integer
Dim lis As ListItem
jml = Passdown.Range("DataNo").Count - 1
If jml > 0 Then
ListView1.ListItems.Clear
For I = 1 To jml
Set lis = ListView1.ListItems.Add(, , Passdown.Range("PassdownData").Item(I, 1))
For x = 1 To 18
lis.SubItems(x) = Passdown.Range("PassdownData").Item(I, x + 1)
Next x
lis.SubItems(13) = Format(lis.SubItems(13), "hh:mm AM/PM")
lis.SubItems(14) = Format(lis.SubItems(14), "hh:mm AM/PM")
Next I
End If
End Sub
Bookmarks