1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Sub populatelstInvoiceItems()
Dim ws As Worksheet
Dim rng As Range
Dim LastRow As Long
Dim lC As Integer
Dim r As Integer
Set ws = Sheets("PurchaseRawData")
LastRow = ws.Range("C65536").End(xlUp).Row
Set rng = ws.Range("C3:Z" & ws.Range("C" & ws.Rows.Count).End(xlUp).Row)
lC = 0
With Sheets("INVOICE ITEMS").lstInvoiceItems
.Clear
.ColumnWidths = "120;100;110;120;120;110;110;100"
For r = 3 To LastRow
If ws.Cells(r, 3) = Sheets("INVOICE ITEMS").Cells(7, 5) Then
.AddItem
.List(lC, 0) = ws.Cells(r, 13)
.List(lC, 1) = ws.Range("N" & r)
.List(lC, 2) = ws.Range("D" & r)
.List(lC, 3) = ws.Range("O" & r)
.List(lC, 4) = ws.Range("D" & r)
.List(lC, 5) = ws.Range("D" & r)
.List(lC, 6) = ws.Range("D" & r)
.List(lC, 7) = ws.Range("D" & r)
.List(lC, 8) = ws.Range("D" & r)
.List(lC, 9) = ws.Range("D" & r)
lC = lC + 1
End If
Next
If .ListCount = 0 Then MsgBox "No data found"
End With
End Sub |
Partager