Ekşi Duyuru

Makroda aşağıda yer alan "R[-7]C" bölümünde -7 yerine değişken eklemeye çalışıyorum hata veriyor. İstediğim şey "R[fark]C" gibi olacak. Bunu yazınca hata veriyor. Bunun yerine ne yapabilirim?

Cells(i, 24).FormulaR1C1 = "=R[-7]C"

Daha anlaşılır olması için tüm makroyu yazıyorum:

For i = 1 To 3000

If Cells(i, 3) = "AAA" Then

j = i

Do Until Cells(j, 3).Interior.Color = 49407
j = j - 1
Loop

Cells(j, 24).FormulaR1C1 = "=VLOOKUP(RC[-21],R3C2:R124C6,5,FALSE)"

fark = j - i
Cells(i, 24).FormulaR1C1 = "=R[fark]C"

Türkçe'ye çevirirsek;

Hücre rengi 49407 (turuncu) olan satırı bulup, bu satırın X sütununa (i,24) düşey ara formülü yazıyor. hücrenin içinde "AAA" yazan satırı bulup, hücre rengi turuncu olan satırla arasında kaç satır varsa bu farkı hesaplayıp AAA satırının X sütununa yukarıya yazdığımız formülü yazıyor.