Topla.carpım Formülünü Makro Yapmak

[halilibo33]

Merhaba Arkadaşlar Kolay Gellsin

Böyle Aşağıdaki gibi bir förmülü kod haline dönüstürebiliyorum yalnız ctrl+shift+enter dizi formülü kullandıgım için kod kısmında bunu yaptıramıyorum.förmüle #DEĞER Hatası Geliyor Aslında makro Çalışıyor ama Dizi Förmül Oldugu İçin Sonuç alamıyorum. bunun için nasıl bir yol izlememi tavsiye edersiniz çok teşekürler iyi çalışmalar.

With Range("H5:H26")
    .Formula "=SUMPRODUCT(IF(('[SHGB PERSONEL LİSTE MAAŞ VERİLERİ.xlsx]LOGO'!R6C1:R30000C1=RC3)*('[SHGB PERSONEL LİSTE MAAŞ VERİLERİ.xlsx]LOGO'!R6C3:R30000C3=R3C)*('[SHGB PERSONEL LİSTE MAAŞ VERİLERİ.xlsx]LOGO'!R6C7:R30000C7=RC5),('[SHGB PERSONEL LİSTE MAAŞ VERİLERİ.xlsx]LOGO'!R6C13:R30000C13)))/30"
       .Value = .Value
    End With

 

[halilibo33]

BU Konuda Yardımcı Olabilecek Birisi Yokmu

 

[Korhan Ayhan]

Merhaba,

".Formula" yerine ".FormulaArray" olarak deneyin.

 

[halilibo33]

Merhaba Korhan Bey ilginize Teşekür Ederim Dediğiniz Gibi Uyguladım ama Şöyle Bir Hata Verdi

Run-time Error '1004':
Range Sınıfının Formularray Özelligi Kullanılmıyor

Ne Gibi Birşeyler Yapabilirim yardımcı Olursanız Sevinirim.

 

[Korhan Ayhan]

Merhaba,

Formül içinde kullandığınız tüm dosyaların açık olması şartıyla aşağıdaki makroyu kullanabilirsiniz.

Sub Makro1()
    Range("H5").Formula = "=FORMÜLÜNÜZ"
    Range("H5").FormulaArray = Range("H5").Formula
    Range("H5").AutoFill Destination:=Range("H5:H26"), Type:=xlFillDefault
    Range("H5:H26").Value = Range("H5:H26").Value
End Sub

 

[halilibo33]

Yardımlarınız için çok teşekkür ederim korhan bey elinize sağlık.

kolay gelsin