serial number increment with letter

[kamranyd]

this code increment serial number by checking database sheet, how to add letter at the end of the serial number. I want specific letter with serial number. eg. 000001R, 000002R and so on. any help will be appreciated.

Sheets("QUOT").Range("B10").Value = Format$((Right$(cellqd, 6) + 1))

 

[DanteAmor]

Try this:

Sub test()
  With Sheets("QUOT").Range("B10")
    If .Value = "" Then
      .Value = "000001R"
    Else
      .Value = Format(Left(.Value, 6) + 1, "000000") & "R"
    End If
  End With
End Sub

 

[Peter_SSs]

A little unsure since we don't know what cellqd is or how it is populated but perhaps you just need this?

Sheets("QUOT").Range("B10").Value = Format$((Right$(cellqd, 6) + 1), "000000R")