Userform Unique reference number question

GhostMonkey72 · Mar 17th 2016

Hi,

I current use the below piece of code to generate a sequential reference number on a userform.

Code

With ReferenceNumber
       .Value = Cells(1, 1) & Format(Cells(Rows.Count, 1).End(xlUp).Row, "000")
      .Enabled = False
    End With

This works fine but what im trying to do is not have it done by counting the row as I already have some reference numbers in there.

The sheet that it transfers to starts at row 3 but the count starts on "002".

Is it possible to have it count directly on from the last reference without it being linked to the row its on?

Thanks in advance.

**Batman** · Mar 17th 2016

Re: Userform Unique reference number question

Hi GhostMonkey72,

Try:

Code

With ReferenceNumber
    .Value = Cells(1, 1).Value & Format(Val(Replace(Cells(Rows.Count, 1).End(xlUp).Value, Cells(1, 1).Value, "")) + 1, "000")
    .Enabled = False
End With

GhostMonkey72 · Mar 18th 2016

Re: Userform Unique reference number question

Batman, you have literally saved the day.

Perfect thank you.

Userform Unique reference number question

Participate now!

Share