How to auto generate sequence number

I have this invoice management excel sheet that automatically transfer data in another sheet after clearing using a button, I just need to automatically generate the invoice number in the main invoice sheet,so when it copied to the record sheet it is in sequence, also I wanted the format to be as 001, 002 and so on.

Please help.

Hi, thanks for the quick response.
This my code, this is already working for transferring and clearing data, only I'm working with the invoice number.


Sub ERRT()
Sheets("sheet4").Select
If Range("A:A").End(xlDown).Row = 1048576 Then
j = 1
Else
j = Range("A:A").End(xlDown).Row
End If
Sheets("sheet4").Select
Dim a(7)
a(0) = Range("sheet1!F3")
a(1) = Range("sheet1!F4")
a(2) = Range("sheet1!B4")
a(3) = Range("sheet1!B7")
a(4) = Range("Sheet1!C7")
a(5) = Range("Sheet1!F13")
a(6) = Range("Sheet1!F14")
a(7) = Range("Sheet1!F15")

For i = 0 To 7
Cells(j + 1, i + 1) = a(i)
Next
Sheets("sheet1").Select
Range("A7:A12,D7:D12").Select
Selection.ClearContents
Range("F3") = a(0) + "1"
End Sub

Please see also my excel file.
Thanks.

Please Login or Register  to view this content.

Hope you find it in order now, thank you.