formular1c1 sorunu

[odisse]

ActiveCell.FormulaR1C1 = "=cells(34,24)-RC[-2]"
sorununu nasıl çözebilirim
cells kısmını rc ile yazamıyorum çünkü işlem döngü içerisinde ve rc nin içine i(döngü parametresi) yazmama izin vermedi.
şimdiden teşekkürler.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

For a = 1 To 20
Cells(a, "b") = "=RC[-1]"

Next

 

[odisse]

sorunum şu cells(34,24) ü excel görmüyor. bu sabitimin olduğu yer. dediğinizi denedim ama gene istediğim şey olmadı. cells(34,24) hücre olarak gösteremiyorum. bunun için işlem yapmıyor.

 

[odisse]

cells yerine range li yazdım gene olmadı. komut satırı bu sefer hiç çalışmıyor.

 

[Ömer]

Merhaba,

Sorunuzu anlamadım fakat dosyadaki amacınızın ne olduğunu açıklarsanız daha uygun çözüm önerileri sunabiliriz.

 

[odisse]

ben bir döngü içerisinde seçilen hücreye formül atamak istiyorum
şöyleki
önce satır eklemesi yapıyorum ve eklenen satırda diyelim c,24 hücresine
b24-(standart olan kısım)m30
işlemini yazmam gerekiyor.
standart kısım eklenen kesimlerle sürekli değiştiği için formül şeklinde yazmam gerekiyor.
sorun standart olan hücreyi formüle dönüştüremiyorum.

 

[Korhan Ayhan]

Merhaba,

Küçük bir örnek dosya üzerinde ne yapmak istediğinizi açıklarsanız daha çabuk cevap alabilirsiniz.

 

[odisse]

http://s2.dosya.tc/server10/fRlzxh/_rnek.xlsx.html

inşallah bi çözümü vardır.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız koduda foruma eklermisiniz.

Not: Dosyalarınızı foruma ekleyebilirsiniz.

 

[ffff7]

Merhaba;
Formül yazacağınız hücrenin sabit alacağınız hücreye göre göreli (R1C1)li yazımını bulmanız gerekiyor. Örneğinize göre c2 ve c4 arası formüllerini tekrar yazan bir makro düzenledim. Umarım işiniz görür.

Sub dene3()
For k = 2 To 4
Cells(k, 3).Activate 'formül yazılacak hücre
Set yer1 = Sheets("Sayfa1").Cells(2, 6) 'range("F2") sabit hücre
yer = yer1.Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False, _
    ColumnAbsolute:=False, _
    RelativeTo:=Sheets("Sayfa1").Range(ActiveCell.Address))  ' göreli adres bulunuyor
ActiveCell.FormulaR1C1 = "=RC[-1]-" & yer
Next
End Sub

 

[odisse]

çok teşekkürler. oldu.