serial number VBa problem

[yazan]

hello guys
i am trying to create a serial number or ID
by summing last cell value with one
the code i am using
infoform.TextBox1.Text = Worksheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value + 1
but it's giving me missmatch error
the cell value = AA-00
i want the next result be AA-01
then AA-02 etc ..
thanks.

 

[Osvaldo Palmeiro]

Hi. Try this, please.

infoform.TextBox1.Text = Left(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 3) & Format(Right(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 2) + 1, "00")

 

[yazan]

Hi. Try this, please.

infoform.TextBox1.Text = Left(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 3) & Format(Right(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 2) + 1, "00")

thanks for your answer but it is giving me syntax error

 

[yazan]

Hi. Try this, please.

infoform.TextBox1.Text = Left(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 3) & Format(Right(Sheets("Cinfo").Range("A" & Rows.Count).End(xlUp).Value, 2) + 1, "00")

oh no it is working thank you so much

 

[Rick Rothstein]

I think this much shorter code line will also work...

infoform.TextBox1.Text = Sheets("Cinfo").[LEFT(LOOKUP("zzz",A:A),3)&TEXT(RIGHT(LOOKUP("zzz",A:A),2)+1,"00")]