VBA code for adding text prefix to an integer

**g-unit84** · 03-11-2013, 07:56 AM

Hi Everyone

I would like to add a text prefix to a number I have created as an integer, as follows:

Dim POnumber As Integer
'
POnumber = Sheets("Register2").Cells(Rows.Count, "A").End(xlUp) + 1

The "POnumber" is to increase by 1 on the search in a table, I then want to add the letters "PO" to the beginning of this new number.

Thank you.

**patel45** · 03-11-2013, 09:35 AM

If you want POnumber = the last used row you have to change so

POnumber = Sheets("Register2").Cells(Rows.Count, "A").End(xlUp).row + 1

If you want add the letters "PO" to the beginning of POnumber

newstring="PO" & POnumber

**g-unit84** · 03-11-2013, 09:53 AM

Hi Patel45

Thanks for the help, it worked perfectly.

**Jakobshavn** · 03-11-2013, 09:41 AM

Try:

Sub sjkdfhsdf()
Dim POnumber As Integer, NextRow As Long, St As String
'
St = Sheets("Register2").Cells(Rows.Count, "A").End(xlUp)
NextRow = Sheets("Register2").Cells(Rows.Count, "A").End(xlUp).Row + 1
POnumber = Replace(St, "PO", "") + 1
Sheets("Register2").Cells(NextRow, "A").Value = "PO" & POnumber

End Sub