İyi gunler arkadaşlar, benim sorunum şu ki VBA'da bir datagridview nesnesi uzerinde x sutunundaki elemanların karesini toplatmak istiyorum fakat ilk satırı bir turlu toplamıyor, toplamaya ikinci satırdan başlıyor; uyguladığım kod ve proje dosyası;

proje dosyası;

http://rapidshare.com/share/DC020A44...636FC0D489C4FC


Alıntı:
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
Kırmızı renkli kısmı i=0 şeklinde değiştirince de resimdeki gibi bir hata mesajı veriyor;

http://postimg.org/image/7wtum31wf

Yardımcı olursanız sevinirim
__________________