Çözüldü Dizi formülünü vba ya Türkçe yazmak

Aşağıdaki gibi yapıyorum, kod hata veriyor.

Merhaba.

Beklenen sonucu veriyor mu bakmak lazım ama şöyle bir sorun var mıdır?

Sayın Ömer Bey, formülü hücreye yazıyor 2.satırı sarıya boyuyor.
Siyahla belirttiğim yeri sarıya boyuyor.


Sub FormülYaz1()
[R2].FormulaLocal = "=EĞER(EĞERHATA(İNDİS(GSM!Q$2:Q$9666;KÜÇÜK(EĞER(EĞERSAY(R$1:R1;GSM!Q$2:Q$9666)=0;SATIR(GSM!Q$1:Q$9665));1));"""")=0;"""";EĞERHATA(İNDİS(GSM!Q$2:Q$9666;KÜÇÜK(EĞER(EĞERSAY(R$1:R1;GSM!Q$2:Q$9666)=0;SATIR(GSM!Q$1:Q$9665));1));""""))"
[R2].FormulaArray = [R2].Formula
End Sub

O şekilde sorun olmasaydı zaten ben de doğrudan sizin formülü kullanırdım.
Benim verdiğim şeklin sonuçları istenilen sonuçlar mı değil mi?

Bir kez önceki cevabımdaki gibi, bir kez de aşağıdaki gibi deneyin.

Sayın Ömer Bey, en son düzeltmiş olduğunuz formül, benim dosyamdaki formülün aynı sonucunu veriyor.

Ben hücreden kopyalayarak aldığım formülü vba için yapıştırdığımda hata veriyor (Çift tırnak olanları arttırdığım halde).
Normalde hücrede benim formül çalışıyor.

Aradaki farkı anlamadım.

Formülün kökü: İNDİS(....) kısmı.
EHATALIYSA(İNDİS(.....);"") değil EHATALIYSA(İNDİS(.....);0) yazmak daha mantıklı,
İNDİS kısmının hataya düşmemesi demek aranan koşula uygun verinin olması, dolayısıyla da sonucunun 0 olmaması demek.

Muhtemelen formülün kurgulanmasındaki mantık çelişkisiyle ilgili bir durumdur.

İhtiyaç görüldüğüne göre zaten mesele yok.

.

Sayın Ömer Bey, ellerinize sağlık çok teşekkür ediyorum.

Hayırlı günler.