Speeding up For loop

Hi everyone, does anyone know a way to speed this up?

Please Login or Register  to view this content.

I thought about this:

Please Login or Register  to view this content.

But I have a huge spreadsheet that is already in A1 formula formatting that would take days to swap over. I'm not aware of a way to use both types at the same time?


Thanks,

Ryan

Ryan

You wouldn't need to change your spreadsheet to use R1C1 to use the second set of code.

The formulas will be appear in whatever notation the sheet is set up to use.

Mind you this should work too.

Please Login or Register  to view this content.

PS Can you add code tags when posting code?

Oops, forgot to double up on the quotes.

Sub ryanarbabi()
With Range("P10:P209")
.Formula = "=IF(RC[-13]=0,"""",RC[-13])"
.Offset(, 1).Formula = "=IF(RC[-15]=0,"""",RC[-15])"
End With
End Sub

@ Norie. It's a weekend Norie.

@ Norie again.
Now that we've got you on the line, when I use the Formulae you suggested, with the double quotes, it'll come out like this:

Please Login or Register  to view this content.

It has an apostroph in front and at the end of the cell references.
However, when I leave the R1C1 out, it's OK
That must be because of the R1C1. I have never seen this before but then I never use the R1C1 in a formula.
Is there a logical explanation for this Norie?

[.... deleted; redundant ....]

Don't mix your A1 and R1C1 notation, it's a recipe for disaster.