[]
Excel makro uzmanlık sorusu
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.
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.
Buldum cevabı kendi kendime;
"=R[" & CStr(fark) & "]C"
"=R[" & CStr(fark) & "]C"
- himmet dayi
(03.03.15 10:01:28)
1
