Range Sınıfının Formulaarray özelliği kurulamıyor hatası

[senator82]

Değerli Uzmanlar
aşağıdaki kodda "Range Sınıfının Formulaarray özelliği kurulamıyor hatası" alıyorum. çok uğraştım lakin halen hata veriyor.
bilgi ve yardımlarınızı rica ederim.
saygılarımlar

Sub FormulCalistirYaz()
    Dim sonucHedef As Range
    Dim tablo3 As ListObject
    Dim ustBilgiSatiri As Range
    
    ' Tablo3'ü belirleme
    Set tablo3 = ThisWorkbook.Sheets("MAIN").ListObjects("Tablo3")
    
    ' Üst bilgi satırını belirleme
    Set ustBilgiSatiri = ThisWorkbook.Sheets("MAIN").Range("M9")
    
    ' Sonuçların yazılacağı hedef sütunu belirleme
    Set sonucHedef = tablo3.ListColumns("2023").DataBodyRange ' 2023 sütunundaki tüm veri aralığını belirler
    
    ' Formülü oluşturma
    Dim formul As String
    formul = "=IFERROR(IF(INDEX('2023p'!C:C,MATCH(1,('2023p'!L:L=Tablo3[@[STOK KODU]])*('2023p'!J:J<=MAX('2023p'!J:J)),0))="""",INDEX('2023p'!C:C,MATCH(1,('2023p'!L:L=Tablo3[@[STOK KODU]])*('2023p'!J:J<MAX('2023p'!J:J)),0)),INDEX('2023p'!C:C,MATCH(1,('2023p'!L:L=Tablo3[@[STOK KODU]])*('2023p'!J:J<=MAX('2023p'!J:J)),0))),"""")"
    
    ' Formülü dizi formülü olarak uygulama
    sonucHedef.FormulaArray = formul
End Sub

 

[Muzaffer Ali]

Merhaba.

sonucHedef.FormulaArray = formul

satırını silin yerine aşağıdakini kopyalayın.

sonucHedef.Formula = formul

Eğer yine hata alırsanız dosyanızı da paylaşın.

Dosyanızı dosya.tc gibi bir sitede payhlaşabilirsiniz.