Makrodan hücreye formül atama

[juniourfalcon]

slm benim sorunum bir hücreye makro dan istediğim bir hücreye daha önce tanıtılmış bir formülü geçirmek istiyorum range komutu ile ekliyorum yalnız ikinci = ve " işaretlerini koyduğum zaman hata veriyor formül aşağıdaki gibi yardım edebilrimisiniz.

=EĞER('sayfa2!A3="";"";EĞER(TÜR(sayfa2!A3)=2;sayfa2!A3;TAVANAYUVARLA(sayfa2!A3;0.25)+1))

bunu normal olarak hücreye yazdığım zmaan çalışıyor ama benim sorunum makrodan hücreye aktarmak veya sonucu o hücryee ekleme

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Bu tarz işlemlerinizde makro kaydet yöntemini kullanarak sonuca gidebilirsiniz.

Aşağıdaki kodu denermisiniz.

Sub Makro1()
    Range("A1").FormulaR1C1 = "=IF(Sayfa2!R[2]C="""","""",IF(TYPE(Sayfa2!R[2]C)=2,Sayfa2!R[2]C,CEILING(Sayfa2!R[2]C,0.25)+1))"
End Sub