VBA: add +1 in column A

[Laurens1]

Hi Guys,

I want to add a number to each row, starting on A3 with 0, A4 1, A5 2, etc. Until the last row in column B is reached.

Can you guys help me?

 

[Joe4]

Is there already something in those cells, or are they blank?
So are you wanting to add to what is currently in those cells, or just override them with 0,1,2,...?

 

[Laurens1]

cells in column A are empty. iI want to count the filled cells in column B, starting from B3 till the last row

 

[Joe4]

Try this:

    Dim rng As Range
    Set rng = Range("A3:A" & Cells(Rows.Count, "B").End(xlUp).Row)
    rng.Formula = "=ROW()-3"
    rng.Value = rng.Value

Without VBA, simply enter this formula in cell A3:

=ROW()-3

and double-click to autofill down to the last row.

 

[Laurens1]

It must be VBA... I try to keep the macro of somebody else alive. Some inheritance from someone who knew what he did.

But it works, thanks a lot!!!

 

[Joe4]

You are welcome!