Error trying to create RIC1 Formula

[JohnM3]

Hi

I am trying to put the values 1 to 20 in a range in Column A.

I do not want to use a loop.

The above value 20 is a user variable input and code defines
the creation of the range address prior to (attempting) to
create a R1C1 formula.

The cell above the value 1 (above) has the word TIME in it.

Here are my attempts at trying to create the values
using R1C1 notation. In each case what is returned is #NAME

    '---------------------
    '   Time Matrix
    '---------------------
    With WS_BD
        Set Rng_BD_Time_Column = .Range(.Cells(Rng_BD_Time_Word.Row + 1, 1), _
                                  .Cells(Rng_BD_Time_Word.Row + 1, 1).Offset(Rng_BD_Row_Gen_Rows_Value - 1, 0))
    End With
    
'''''?Rng_BD_Time_Column.Address
'''''$A$19:$A$63


    '1st Try
    'Rng_BD_Time_Column.FormulaR1C1 = "=IF(ISNUMERIC(R[-1]C), 1 + R[-1]C,1)"
    'Returns #NAME
    
    '2nd Try
    'Rng_BD_Time_Column.FormulaR1C1 = "=IF(ISNUMERIC(R[-1]C), 1 + R[-1]C," & 1 & ")"
    'Returns #NAME
    
    '3rd Try
    'Rng_BD_Time_Column.FormulaR1C1 = "=IF(ISNUMERIC(R[-1]C)," & 1 & "+ R[-1]C," & 1 & ")"
    'Returns #NAME

Thanks in advance if anyone can resolve this.

regards
JOHN

 

[Marcelo Branco]

Hi John,

Instead of ISNUMERIC try

"=IF(ISNUMBER(R[-1]C), 1 + R[-1]C,1)"

M.

 

[JohnM3]

Hi Marcelo

That DID it. Works great.

Thanks!

regards
John

 

[Marcelo Branco]

You are welcome and thanks for the feedback

M.