Makro'da formül sorunu

[bthn35]

Merhaba,
Makro'da kullandığım aşağıdaki gibi bir formül var ancak hata verdiği için Makro'yu kaydet yaparak formülü yapıştırdım ancak bu seferde yanlış formül geliyor. Bunu nasıl düzeltebilirim?

Çalışmayan formül: ActiveCell.Formula = "=EĞER(Q3="GİDEN";R3;"")"
Makro kaydet dedikten sonra gelen: ActiveCell.FormulaR1C1 = "=IF(RC[3]=""GİDEN"",""RC[4],"""")"

 

[veyselemre]

ActiveCell.FormulaR1C1 = "=IF(RC[3]=""GİDEN"",RC[4],"""")"

 

[Korhan Ayhan]

.Formula komutunu kullandığınızda formülü İngilizce yazmalısınız.

Türkçe yazmak istiyorsanız aşağıdaki gibi kullanmalısınız.

ActiveCell.FormulaLocal = "=EĞER(Q3=""GİDEN"",R3,"""")"

Vba tarafında noktalı virgüller virgül olarak yazılmalıdır. Ayrıca tekli olarak yazdığınız çift tırnakları ise ikili olarak yazmalısınız.

Ben olsam İngilizce olarak kullanırdım.

ActiveCell.Formula = "=IF(Q3=""GİDEN"",R3,"""")"

 

[Orion1]

Alternatif.

ActiveCell.Value = IIf(Range("Q3").Value = "GİDEN", Range("R3").Value, "")

 

[bthn35]

.Formula komutunu kullandığınızda formülü İngilizce yazmalısınız.

Türkçe yazmak istiyorsanız aşağıdaki gibi kullanmalısınız.

ActiveCell.FormulaLocal = "=EĞER(Q3=""GİDEN"",R3,"""")"

Vba tarafında noktalı virgüller virgül olarak yazılmalıdır. Ayrıca tekli olarak yazdığınız çift tırnakları ise ikili olarak yazmalısınız.

Ben olsam İngilizce olarak kullanırdım.

ActiveCell.Formula = "=IF(Q3=""GİDEN"",R3,"""")"

Çok teşekkür ederim detaylı anlatım için, çok işime yaradı