Bolen Error = 2015 hatası

[Shamutr]

Merhaba,

Aşağıdaki Kod'u çalıştırdığımda "bolen error = 2015" hatası veriyor.

Bu sorunu nasıl çözebilirim ?

Tşk,

Sub Performans()
satir = Sheets("2018PerformansDetay").Cells(39999, 5).End(xlUp).Row
For A = 4 To Sheets("Performans").Cells(Rows.Count, 1).End(3).Row
    SEC1 = Sheets("Performans").Cells(A, 1)
    Sheets("Performans").Cells(A, 2) = Evaluate("SUMPRODUCT((2018PerformansDetay!D2:D" & satir & "=""" & SEC1 & """)*(2018PerformansDetay!L2:L" & satir & "=Performans!$B$2)*(2018PerformansDetay!Q2:Q" & satir & "=Performans!$C$2)*(2018PerformansDetay!I2:I" & satir & "=Performans!$D$2)*(2018PerformansDetay!O2:O" & satir & "))")
    Sheets("Performans").Cells(A, 7) = Evaluate("SUMPRODUCT((2018PerformansDetay!D2:D" & satir & "=""" & SEC1 & """)*(2018PerformansDetay!L2:L" & satir & "=Performans!$B$2)*(2018PerformansDetay!T2:T" & satir & "))")
    Sheets("Performans").Cells(A, 9) = Evaluate("SUMPRODUCT((2018PerformansDetay!D2:D" & satir & "=""" & SEC1 & """)*(2018PerformansDetay!L2:L" & satir & "=Performans!$B$2)*(2018PerformansDetay!U2:U" & satir & "))")
    Sheets("Performans").Range("$G$16") = Evaluate("SUM(Performans!G4:G14)")
    Sheets("Performans").Range("$I$16") = Evaluate("SUM(Performans!I4:I14)")
bolunen = Evaluate("SUMPRODUCT((2018PerformansDetay!D2:D" & satir & "=""" & SEC1 & """)*(2018PerformansDetay!L2:L" & satir & "=Performans!$B$2)*(2018PerformansDetay!Q2:Q" & satir & "=Performans!$C$2)*(2018PerformansDetay!I2:I" & satir & "=Performans!$D$2)*(2018PerformansDetay!T2:T" & satir & "))")
bolen = Evaluate("SUMPRODUCT((2018PerformansDetay!D2:D" & satir & "=""" & SEC1 & """)*(2018PerformansDetay!L2:L" & satir & "=Performans!$B$2)*(2018PerformansDetay!Q2:Q" & satir & "=Performans!$C$2)*(2018PerformansDetay!I2:I" & satir & "=Performans!$D$2)*(2018PerformansDetay!T2:T" & satir & ">0))")

If bolen = 0 Then
bolum = 0
Else
    bolum = bolunen / bolen
End If
Cells(A, 3) = bolum

Next
End Sub

 

[Ömer BARAN]

Merhaba.

Keşke sadece kod'u vermek yerine, kod'un içerisinde olduğu örnek belge yükleseydiniz.
.

 

[Shamutr]

Günaydın,

Haklısınız, dosya büyük olunca paylaşayımmı bilemedim.

Ek'te Performans sayfasında Paketleme görevi için SÜREÇ "Form Button" a basınca belirttiğim hatayı veriyor.

Diğer görevlerde bu hatayı almadım.

Ek'lediğim dosya'yı Detay sayfasında veri olarak 20.000 satır silerek küçülttüm.

Dosyayı küçültünce belirttiğim hatayı vermiyor.

Ana Dosyada neden bu hatayı aldığıma dair bir fikir belki yürütebilirsiniz.

Yardımınız dokunursa sevinirim.

Merhaba.

Keşke sadece kod'u vermek yerine, kod'un içerisinde olduğu örnek belge yükleseydiniz.
.

 

[Shamutr]

Merhaba,

Bu konuda Forumda kapsamlı bir arayışta bulundum, ancak yaşanılan soruna çözüm olacak tam bir karşılık bulamadım.

Sorunu giderebilecek alternatif bir çözüm öneriniz olur ve paylaşırsanız sevirinirm.

Teşekkürler

 

[Korhan Ayhan]

Merhaba,

Bence hata veren dosyanızı aşağıdaki linke yükleyip paylaşabilirsiniz. Bu şekilde yorum yapmak zor olabilir.

https://www.transfernow.net/tr/