Not ortalaması makrosu - Overflow hatası

[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

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek ne yapmak istediğinizi açıklarsanız sonuca daha hızlı bir şekilde ulaşabilirsiniz.

 

[sr_71]

Örnek dosyayı nasıl ekliyoruz acaba?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki linki incelermisiniz.

Yeni konu açarak soru sormak