Makroyla topla çarpım

[ockucukay]

Merhaba

Hata koduna göre dağılım sayfasında hangi hata kodundan hangi makina kaç saat durmuş göstermeye çalıştım. Hamitcan hocamın kodunu kendime uyarlamaya çalıştım ama AD? hatası veriyor. Yardımcı olursanız sevinirim.

Sub SumProduct15()
'Dim s As Long
Dim s, sRangeA, sRangeB, sRangeC, sRangeD, sRangeE
Dim Criter1, Criter2, Criter3, Criter4, j, i
s = Sheets("Bakım Kayıtları.").[a65536].End(3).Row
sRangeA = "Bakım Kayıtları.!F3:F" & s
sRangeB = "Bakım Kayıtları.!H3:H" & s
sRangeC = "Bakım Kayıtları.!A3:A" & s
sRangeD = "Bakım Kayıtları.!C3:C" & s
sRangeE = "Bakım Kayıtları.!L3:L" & s
Criter1 = Format(Sheets("Hata Koduna Göre Dağılım").[C1], "00000")
Criter2 = Format(Sheets("Hata Koduna Göre Dağılım").[C2], "00000")
For j = 2 To 51
Criter3 = """" & Sheets("Hata Koduna Göre Dağılım").Cells(3, j) & """"
For i = 4 To Sheets("Hata Koduna Göre Dağılım").[a65536].End(3).Row
Criter4 = """" & Sheets("Hata Koduna Göre Dağılım").Cells(i, 1) & """"
Sheets("Hata Koduna Göre Dağılım").Cells(i, j) = Evaluate("=SumProduct((" & sRangeA & ">=" & Criter1 & _
")*(" & sRangeB & "<=" & Criter2 & _
")*(" & sRangeC & "=" & Criter3 & _
")*(" & sRangeD & "=" & Criter4 & _
")*(" & sRangeE & "))")
Next
Next
MsgBox "Bitti."
End Sub

 

[ockucukay]

merhaba arkadaşlar

yardımcı olabilecek olan var mı acaba?

 

[ockucukay]

sayfa adlarını değiştirerek kodların çalışmasını sağladım. ancak bu seferde sayfa boş görünüyor, değerler gelmiyor. neden olabileceği hakkında fikri olan varmı acaba?