VBA code to add row and Task ID

[flea80]

I have created a to-do list and want a button to add a new row which has a task ID in the first column.

For now I have the following code for a new row:

Sub Add_Row()

Dim Test As Worksheet
Set Test = ThisWorkbook.Sheets("TEST")
Test.Range("A11").End(xlDown).Select
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.Offset(1, 0).Select

End Sub

What code do I have to add to create a new row that starts with (in this case) T0007?

 

[mikenelena]

Hi flea80,

You might consider something like this. I tested it, and it works. Good luck, and let me know how you make out.

Sub AddRow()

Dim TaskID As String
Dim Row As Long

TaskID = "T" & Format(Range("A" & Rows.Count).End(xlUp).Row + 1, "0000")

Row = Range("A" & Rows.Count).End(xlUp).Row + 1

Range("A" & Row).Value = TaskID

End Sub