Overflow hatasının düzeltilmesi

[sr_71]

Arkadaşlar aşağıdaki yazmaya çalıştığım makro, genel not ortalamasını hesaplaması amacıyla yazılmıştır.
Yalnız çalıştırdığımda overflow hatası veriyor. Neden? Ayrıca kodlarda hatalar yaptıysam da düzeltebilirseniz sevinirim. Şimdiden Teşekkürler...

Sub ort_hesapla()
Dim ders_sayisi As Integer
Dim sayiharf As Double
Dim toplamnot As Double
ders_sayisi = WorksheetFunction.CountA(Range("B2:B100"))
toplamnot = 0
For i = 1 To ders_sayisi
Select Case Range("C2").Offset(i - 1, 0).Value
Case "AA"
sayiharf = 4
Case "BA"
sayiharf = 3.5
Case "BB"
sayiharf = 3
Case "CB"
sayiharf = 2.5
Case "CC"
sayiharf = 2
Case "DC"
sayiharf = 1.5
Case "DD"
sayiharf = 1
Case "DZ"
sayiharf = 0
Case "FF"
sayiharf = 0
End Select
Range("D2").Offset(i - 1, 0).Value = Val(Range("B2").Offset(i - 1, 0).Value) * sayiharf
Range("E2").Offset(i - 1, 0).Value = Val(Range("D2").Offset(i - 1, 0).Value) * Val(Range("B2").Offset(i - 1, 0).Value)
toplamnot = toplamnot + Val(Range("E2").Offset(i - 1, 0).Value)
Next i
Range("G2").Value = toplamnot / ders_sayisi
End Sub

 

[uzmanamele]

merhaba

gecenin 11 inde not ortalaması, üstelik acil üstelik okullar kapalı.

sorularınıza soru ile ilgili konu başlığı seçiniz.
acil, çok acil cevap, yardım vs gibi başlık kullanmayınız.
sorunuzu örnek dosya üzerinde açıklayarak destekleyiniz.

 

[sr_71]

Sanırım bir forum sitesine yazmayalı baya olmuş. Konu başlığı için özür dilerim. Sabırsızlığımdan öyle yazmış olmalıyım.