reset counter change of year

[orsm6]

Hi all - i am trying to improve a register that is used at work. in column A a macro inserts into the next blank cell a unique ID e.g. PCR21040.

PCR = hard coded - never changes
21 = current year - taken from last 2 digits of year in cell Q1
040 = is the last entry for that year (could be any amount... just depends)

how can i get the counter easily to reset to PCR22001 when the year changes? and obviously this happens each year that passes

TIA

 

[BSALV]

you have "option explicit" on top of that module or somewhere a setting in the VBA-editor.
So, that's why you get that error.
Just add a0 and a1 in the line of "Dim ....
It's a kind of chicken/egg dilemma if you have to declare all variables.
Let's say i choose the chicken ...

Option Explicit
Sub TS_newPCRID()
     Dim SPrefix, c, a0, a1

 

[orsm6]

you have "option explicit" on top of that module or somewhere a setting in the VBA-editor.
So, that's why you get that error.
Just add a0 and a1 in the line of "Dim ....
It's a kind of chicken/egg dilemma if you have to declare all variables.
Let's say i choose the chicken ...

Option Explicit
Sub TS_newPCRID()
     Dim SPrefix, c, a0, a1

Perfect!! this works exactly as i need it to... thanks heaps