Key - start with 1 and add 1 each time

[VbaHell]

Hello all


I am trying to add a Primary key in column "A" starting at "A13"

If there is a value in column "C" then add a number in column "A"

IE: "A13" would be 1
"A14" would be 2
"A15" would be 3

Below is a start but it needs to look at column "C"

and so on

Sub Key()
    Dim rng As Range
    Set rng = Range("A13")
    If IsEmpty(rng) Then
        rng = 0
    Else
        If Not IsEmpty(rng.Offset(1, 0)) Then
            Set rng = rng.End(xlDown)
        End If
        rng.Offset(1, 0) = rng.Value + 1
    End If
End Sub

 

[Fluff]

How about

Sub VbaHell()
   Dim cl As Range
   Dim i As Long
   
   For Each cl In Range("A13", Range("C" & Rows.Count).End(xlUp).Offset(, -2))
      If cl.Offset(, 2) <> "" Then
         i = i + 1
         cl.Value = i
      End If
   Next cl
End Sub

 

[GR00007]

You could do this with a simple formula:
In A13:
=IF(A12="value of whatever is in A12<value of="" a12="">",1,A12 + 1)</value>

 

[VbaHell]

Thanks for your reply GR0007, this would work but I will go with Fluff as I need to incorporate the code in an existing code module

 

[Fluff]

Glad we could help & thanks for the feedback