koddaki run-time error 13 hatasının sebebi

[semira_]

Sub deger()

Dim sonuc As Double


For j = 4 To 37

sonuc = 0

For i = 2 To 31

If Sayfa5.Cells(i, j).Value = "" Then

Else

sonuc = sonuc + ((-CDbl(Sayfa5.Cells(i, 2).Value)) * CDbl(Sayfa5.Cells(i, j).Value))

End If

Next i


Sayfa5.Cells(32, j).Value = sonuc


Next j


End Sub

 

[semira_]

Yukarıdaki kod run-time error 13 hatası veriyor.Excel üzerinde hazırlamış olduğum bir tablom mevcut var. Bunu ekte yolluyorum

 

[Levent Menteşoğlu]

Dosyanızı eklememişsiniz.

 

[semira_]

Yolladığım matrise göre her bir ihtiyaç ve soru birbiriyle 1,3,9 olarak ilişkilendirilmiştir. İlişkisi olmayanlar boş bırakılmıştır. Buna göre 32. satırdaki önem ağırlığını bulmak istiyorum. Mesela 3. sutundaki soru 1 , ihtiyaç 2 ile " 3 " ; ihtiyaç 9 ile "9 " ; ihtiyaç 16 ile "9 " derece ilişkili o zaman soru1 için önem ağırlığı = (1.33 (önem derecesi) *3 )+ (2.29(önem.der)*9) +(1.58*9) olarak belirlenip alta yazılacak, diğer tüm sutunlara aynı işlem uygulanacak bunun için kod yazmıştım ama çalışmıyor . Yardımcı olursanız çok sevinecem .

 

[Levent Menteşoğlu]

Dosyanız ektedir.

 

[semira_]

Çok teşekkür ederim . Çok yardımcı oldunuz.