Creating a new risk number

[Pasty]

Hi there I was wondering if anyone could point me in the right direction for this problem.

I a list of risk numbers which I am using in a code that will filter actions and run reports off and send them automatically. Each report will have a specific ID number and I was wondering if there was an easy way to generate these.

They will all be stored in a seperate sheet which the user will never see and what I was wanting it to do was to look at the current risk numbers and then add the next one on (with a description of what it relates to next to it) for example if the last ID was Risk 6 it would add Risk 7 at the end of them (N.B. all of them will be in ascending order as I am running a vlookup on them)

Any help would be greatly appreciated.

Regards,

Matt

 

[Lewiy]

If your list of risk numbers is in column A on sheet2 then this will add the next one on:

Dim limit As Long
Dim lastnumber As String
limit = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
With WorksheetFunction
    lastnumber = Val(Right(Cells(limit, 1), Len(Cells(limit, 1)) - .Find(" ", Cells(limit, 1))))
    Cells(limit + 1, 1) = "Risk " & lastnumber + 1
End With

 

[Pasty]

Thats brilliant - thanks for your help!