Vba Döngüde Hata Alıyorum

[felischaus]

İyi günler arkadaşlar, benim sorunum şu ki VBA'da bir datagridview nesnesi üzerinde x sütunundaki elemanların karesini toplatmak istiyorum fakat ilk satırı bir türlü toplamıyor, toplamaya ikinci satırdan başlıyor; uyguladığım kod ve proje dosyası şöyle;

 

 

Public Class Form1

    Dim hata1, xkaretoplam As VariantType

    Private Sub DataGridView1_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellValueChanged

        n.Text = Val(DataGridView1.RowCount) - 1

        xkare.Text = 0

        For i = 1 To Val(DataGridView1.RowCount) - 1

            xkaretoplam = Val(DataGridView1.Rows(i).Cells("X").Value()) ^ 2

            xkare.Text = xkaretoplam + Val(xkare.Text)

        Next

    End Sub

End Class

 

proje dosyası;

http://rapidshare.com/share/DC020A44B9B3187819636FC0D489C4FC

[galetis]

        For i = 1 To Val(DataGridView1.RowCount) - 1 satırını

        For i = 0 To Val(DataGridView1.RowCount) - 1 olarak değiştir

[felischaus]

o zaman da resimdeki gibi bir hata veriyor;  http://postimg.org/image/7wtum31wf/