How to put formula in every other row

[dee101]

How can I put this, FormulaR1C1 = "=IF(R[1]C<>"""",""Question"","""")" in every other row starting in A1 down to the last thing in column A
Thanks
Excel 2003

 

[Michael M]

TRy

Sub test()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r =lr to 1r Step -2
    Range("A" & r).FormulaR1C1 = "=IF(R[1]C<>"""",""Question"","""")"
Next r
End Sub

 

[Scott Huish]

For r = lr to lr ??

I don't think you have to go backwards:

Sub test()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "A").End(xlUp).Row
For r = 1 To lr Step 2
    Range("A" & r).FormulaR1C1 = "=IF(R[1]C="""","""",""Question"")"
Next r
End Sub

Note, I shortened the formula a little bit, it will return the same results.

 

[Michael M]

Hi Hotpepper
Thanks for the pickup......7 am obviously doesn't work for me !!

 

[Rick Rothstein]

How about a solution that does not use any loops?

Sub FillFormulaInEveryOtherRow()
  Dim UnusedColumn As Long
  UnusedColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Column + 1
  Application.ScreenUpdating = False
  Cells(1, UnusedColumn) = "X"
  Cells(1, UnusedColumn).Resize(2).AutoFill Cells(1, UnusedColumn).Resize(Cells(Rows.Count, "A").End(xlUp).Row)
  Columns(UnusedColumn).SpecialCells(xlConstants).Offset(, 1 - UnusedColumn).FormulaR1C1 = "=IF(R[1]C="""","""",""Question"")"
  Columns(UnusedColumn).Delete
  Application.ScreenUpdating = True
End Sub