Assign each trade a Trade ID

[Klartigue]

Using a VBA macro code, on the attached, I am trying to assign each trade a trade ID. Meaning that for each block of trades on the attached sheet, in column Q I would like to have a "1" for the all the lines in the first trade block, 2 for all the lines in the second trade block, etcc..

The number of trade blocks will vary and the size of each trade will always vary so its need to be a general formula but I am not sure how to go about doing this..


The file is attached and in column Q I have put the desired results..

[ashleyuk1984]

Sub TradeIDNumbers()

TradeID = 0
StartHere = Cells.Find("Trade Allocation:").Row
FinishHere = Range("A" & Rows.Count).End(xlUp).Row


For x = StartHere To FinishHere
    If Range("A" & x).Value > "" Then
            If Range("A" & x).Value = "Trade Allocation:" Then
                TradeID = TradeID + 1
                Range("Q" & x).Value = TradeID
            Else
                Range("Q" & x).Value = TradeID
            End If
    End If
Next x


End Sub

Let me know how you get on.

[SamT]

@ Ashley

Nice little sub.