New invoice using macro

[KAYE04]

Hi,

I have created a form in excel with invoice number which is alpha numeric.
im having a hard time fixing the error about the leading zeros in my invoice number. My invoice number is FIN19-0001.
i want to change it from FIN19-0001 to FIN19-0002, FIN19-0003 and so on.
but every time i click the button intended for that macro it will become FIN19-2. the 3 zeros are not included.
how can i fix it. can somebody help me.
thank you so much in advance.
\here is my code
Sub NextInvoice()
Range("B7").Value = Left(Range("B7").Value, 6) & 1 + Mid(Range("B7").Value, 7, 4)

 

[dmt32]

Hi,

enter the next numeric value (excluding the prefix) in your Range eg 2

then run this code

  Sub NextInvoice()
     With Range("B7")
        .Value = .Value + 1
        .NumberFormat = """FIN19-""0000"
    End With
End Sub

and see if this does what you want

Dave

 

[KAYE04]

it doesnt change

 

[dmt32]

it doesnt change

Changes for me - is the required sheet the active sheet?

Dave

 

[KAYE04]

Sub NextInvoice()

Range("B7").Value = Left(Range("B7").Value, 6) & 1 + Mid(Range("B7").Value, 7, 4)
Range("D11:I11").ClearContents
Range("D12").ClearContents
Range("B26:I26").ClearContents
Range("B27:I27").ClearContents
Range("B28:I28").ClearContents
Range("B29:I29").ClearContents
Range("B30:I30").ClearContents
Range("B31:I31").ClearContents
Range("B32:I32").ClearContents
End Sub


Heres my code.
where exactly i will put the codes you are referring to.
im really sorry im just a newbie in macro

thank you so much

 

[dmt32]

Hi,
you replace your existing code my updated version.

Sub NextInvoice()
    With Range("B7")
        .Value = .Value + 1
        .NumberFormat = """FIN19-""0000"
    End With
    Range("D11:I11,D12,B26:I32").ClearContents
End Sub

If you have placed code in a standard module, and as the range is unqualified (you have not specified a worksheet) then your invoice sheet must be the active sheet when code is run.

Dave

 

[KAYE04]

Run time error. type mismatch
i followed your instruction but it doesnt work.
i already copied your codes

 

[dmt32]

did you first just enter a NUMERIC value only in the range without the Prefix as I stated in my first post?

Dave

 

[KAYE04]

hi may i see your codes please

 

[KAYE04]

i cant understand what are you referring to. im sorry