vba ile excel formülü yazdırma

[ozkance]

Merhaba Vba ile U2:U100 aralığındaki her bir hücreye =EĞER(T7="ARAZİ";"ARAZİ";EĞER(T7="ARSA";"ARSA";"")) formülünü yazdırmak ve bu formülü makro ile çalıştırmak istiyorum. yalnız formülü yazdığımda hata veriyor. ne yapmalıyım

 

[Ömer]

Merhaba,

Deneyiniz.

Sub test()
    Range("U2:U100").Formula = "=IF(T7=""ARAZİ"",""ARAZİ"",IF(T7=""ARSA"",""ARSA"",""""))"
End Sub