- Katılım
- 7 Haziran 2017
- Mesajlar
- 55
- Excel Vers. ve Dili
- Microsoft Office Professional Plus 2013
- Altın Üyelik Bitiş Tarihi
- 12-09-2020
Merhaba,
Aşağıdaki Kod'u çalıştırdığımda "bolen error = 2015" hatası veriyor.
Bu sorunu nasıl çözebilirim ?
Tşk,
Aşağıdaki Kod'u çalıştırdığımda "bolen error = 2015" hatası veriyor.
Bu sorunu nasıl çözebilirim ?
Tşk,
Kod:
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