Çözüldü Çıkartma işlemindeki hata

[Cengizhantr06]

For cen = 67 To 77
If CDbl(Controls("textbox" & cen)) > 0 Then
deg = deg + CDbl(Controls("textbox" & cen))
End If
Sheets(sayfa).Range("L4").Value = deg
TextBox81.Value = deg
TextBox81.Value = FormatNumber(TextBox81.Value, 2)
Sheets(sayfa).Range("E4").Value = Sheets(sayfa).Range("E4").Value - TextBox81.Value
Next

Merhaba kod çalışınca örneğin 500,00 de 5,00 çıkarıyorum sonuç 445,00 oluyor ama 495,00 olması gerek
Nerde hata yaıyorum acaba ?

 

[Korhan Ayhan]

Döngü bitene kadar çıkarma işlemi yapıyor. Bu sebeple hatalı sonuç çıkıyor..

Çıkarma işlemini döngü dışına alırsanız doğru sonuç alırsınız.

 

[Cengizhantr06]

Döngü bitene kadar çıkarma işlemi yapıyor. Bu sebeple hatalı sonuç çıkıyor..

Çıkarma işlemini döngü dışına alırsanız doğru sonuç alırsınız.

Hemen deneyecem teşekkür ederim

 

[Cengizhantr06]

Döngü bitene kadar çıkarma işlemi yapıyor. Bu sebeple hatalı sonuç çıkıyor..

Çıkarma işlemini döngü dışına alırsanız doğru sonuç alırsınız.

Dediğiniz gibi çıkarma işlemini döngü dışına alınca düzeldi çok teşekkür ederim