2nd loop doesn't work

[ping0775]

Dim counta, r As Long
counta = Sheets("InvoiceDatabase").Cells(Rows.count, "B").End(xlUp).Row
countb = Sheets("SalesReceiptDocList").Cells(Rows.count, "C").End(xlUp).Row
t = 3
u = 3
Do While t <= counta
Sheet4.Range("ai" & t).Value = Sheet4.Range("w" & t).Value
invno = Sheet4.Range("b" & t).Value

Do While u <= countb
If Left(Sheet19.Cells(u, 3), 12) = invno Then
paid = Format(Sheet19.Cells(u, "F"), "####0.00") 'Paid
sum = sum + Val(paid)
sum = Format(sum, "#,##0.00")
Sheet4.Range("ai" & t).Value = Val(Sheet4.Range("w" & t).Value) - sum
End If
u = u + 1
Loop

t = t + 1
Loop
End If



End Sub

invno = Sheet4.Range("b" & t).Value
this code carry INV01,02,03,04,05

but when it loop in second sheet19, why it only run the INV01?
how to make it continue loop INV01,02,03,04,05 in second loop?

 

[dave3009]

Try stepping through your code and seeing what each of the variables are set to. The second loop executes while t is less than or equal to countb, if it only runs once then it'll be down to the loop conditions.

Little pro tip: use meaningful variable names and don't duplicate names that are already in use. Sum and CountA are both available functions to use in VBA.