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
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
XML:
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