::.. Makroda DİZİ FORMÜLÜ Nasıl Yazılır..::

[Ömer BARAN]

Merhabalar !...

Excel sayfamda I3 hücresine DİZİ FORMÜLÜ olarak uygulayıp ardından
tüm sütuna kopyalayarak kullandığım aşağıdaki formülü,
yine DİZİ FORMÜLÜ gibi işlem görecek ve tüm sütuna uygulanacak şekilde
nasıl makro kodu olarak yazabilirim acaba?

[B][COLOR="red"]{[/COLOR]=EĞER(YADA(G3=1;G3="");0;DOLAYLI("J"&KÜÇÜK(EĞER($A2:A$3=A3;SATIR($A2:A$3));EĞERSAY($A2:A$3;A3))))[COLOR="Red"]}[/COLOR][/B]

Yukarıdaki formülün "&KÜÇÜK(EĞER($A 2:A$3" kısmı şeklinde arada boşluk varmış gibi görünüyor (kopyala->yapıştır ile yazıldı) aslında yok.


Aşağıdaki kod ile denedim ama sonuç alamadım.

With Sheets("Sayfa1").Range("I3:I" & Son)
        .FormulaArray = "=IF(OR(G3=1,G3=""""),0,INDIRECT(""J""&SMALL(IF(A$2:A3=A3,ROW(A$2:A3)),COUNTIF(A$2:A3,A3))))"
        .Value = .Value
    End With

Bilgi sahibi arkadaşlardan yardım rica ediyorum.

 

[Korhan Ayhan]

Merhaba,

Makro ile dizi formül yazmanın püf noktası ".FormulaArray" ifadesidir. Aynı konular için farklı başlıklar açmamanızı rica ederim. Diğer başlığınız sonuçlanana kadar mesaj yazmaya devam edebilirsiniz.

 

[Ömer BARAN]

::.. Çözüm Bulunmuştur ..::

Merhaba,

Makro ile dizi formül yazmanın püf noktası ".FormulaArray" ifadesidir.
Aynı konular için farklı başlıklar açmamanızı rica ederim.
Diğer başlığınız sonuçlanana kadar mesaj yazmaya devam edebilirsiniz.

Teşekkürler Sayın AYHAN !...

Diğer konudaki mesajlarda verilen desteklerinizle
konu halledilmiştir.