Creating Sequence numbers with same letters eitherside [closed] - vba

Question

Closed. This question needs to be more focused. It is not currently accepting answers.
Want to improve this question? Update the question so it focuses on one problem only by editing this post.
Closed 3 years ago.
Improve this question
How to create sequential numbers at end of a list with letters either side, It's always MW....A, so changing the middle number? can this be done using a button so when clicked these are created at the bottom of the list.
Thanks

Answer 1

Try this code, please:
It will add maxInc units to the existing startNo value, for the range starting from the lastRow row...
Sub testIncrementValString()
Dim sh As Worksheet, i As Long, lastRow As Long, startNo As Long, maxInc As Long
Set sh = ActiveSheet 'use here your sheet
maxInc = 10: startNo = 1670: lastRow = 155
For i = 1 To maxInc
sh.Range("A" & lastRow + i).Value = "MW" & startNo + i & "A"
Next i
End Sub
The code can be adapted to find the last number inside the string, of the last filled row of A:A column and add a unit, or how many you need for the following...
Like this:
Sub testIncrementValString_bis()
Dim sh As Worksheet, i As Long, lastRow As Long, startNo As Long, maxInc As Long
Set sh = ActiveSheet 'use here your sheet
lastRow = sh.Range("A" & sh.Rows.count).End(xlUp).Row
startNo = CLng(Mid(sh.Range("A" & lastRow).Value, 3, _
Len(sh.Range("A" & lastRow).Value) - 3))
maxInc = 10
For i = 1 To maxInc
sh.Range("A" & lastRow + i).Value = "MW" & startNo + i & "A"
Next i
End Sub