Formülleri yazdığım halde toplama yapmıyor

[Mdemir63]

Arkadaşlar merhaba

elektronik tabloma Form la giriş yapıyorum yapılan girişleri alacak ve borç sütunlarının altına (Formüller olduğu halde) toplamını almıyor. sebep ne olabilir?

Saygılar

 

[Orion1]

Merhabalar.
Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
SONSAT = [a65536].End(3).Row + 1
Cells(SONSAT, 1).Value = SONSAT - 1
Cells(SONSAT, 2).Value = TextBox1.Value 'Firma adı
Cells(SONSAT, 3).Value = CDate(TextBox2.Value) 'Tarih
Cells(SONSAT, 4).Value = TextBox3.Value * 1 'Alacak
Cells(SONSAT, 5).Value = TextBox4.Value * 1 'Borç
Cells(SONSAT, 7).Value = TextBox5.Value * 1 'Alacak
Cells(SONSAT, 8).Value = TextBox6.Value * 1 'Borç
Cells(SONSAT, 10).Value = TextBox7.Value * 1 'Alacak
Cells(SONSAT, 11).Value = TextBox8.Value * 1 'Borç
Unload Me
MsgBox ("Bilgiler Kaydedildi")
End Sub

 

[Mdemir63]

Merhabalar.
Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
SONSAT = [a65536].End(3).Row + 1
Cells(SONSAT, 1).Value = SONSAT - 1
Cells(SONSAT, 2).Value = TextBox1.Value 'Firma adı
Cells(SONSAT, 3).Value = CDate(TextBox2.Value) 'Tarih
Cells(SONSAT, 4).Value = TextBox3.Value * 1 'Alacak
Cells(SONSAT, 5).Value = TextBox4.Value * 1 'Borç
Cells(SONSAT, 7).Value = TextBox5.Value * 1 'Alacak
Cells(SONSAT, 8).Value = TextBox6.Value * 1 'Borç
Cells(SONSAT, 10).Value = TextBox7.Value * 1 'Alacak
Cells(SONSAT, 11).Value = TextBox8.Value * 1 'Borç
Unload Me
MsgBox ("Bilgiler Kaydedildi")
End Sub

Hocam çok teşekkür ederim
eline sağlık
Saygılar