Form üzerinde toplama yaparken hata veriyor.

[ferhatgurbuz]

Kisisel Bordro adlı userform üzerinde persenel noya göre sorgulama yapıyorum. Sonra ekrana veriler geliyor. Örnegin ik no 3289263 sorguladığımda ekrana gelen rakamların toplamı 745,55 olması gerekirken 748 olarak görünüyor.

 

[mrttrn]

Hangi rakamların toplamı 745,55 olması gerekir.Neleri topluyorsunuz.Çünkü bir sürü textbox var.

 

[ferhatgurbuz]

Arkadaşlar ne olmuş bu dosyaya böyle eski halinden bile kötü olmuş

 

[ferhatgurbuz]

Formun en sağındaki Yani gelir vergisinden başlayan bölüm Textbox 50 ila 62 arasının toplamı öyle olması gerekiyor.

 

[mrttrn]

1.hata iki tane aşağıda textbox62 var.Birini 61 yap.

2.hata ise Dim topla1, topla2 As Long Çünkü long özelliği; otomatik yuvarlama yapar.Dim topla2 yap. Long olmasın.
Proğram kendiliğinden istenen tipe çevirir.Topla1 ide sadece dim topla1 yapabilirsin.

Sonuç: Dim topla2 as long yerine aşagıdaki gibi sadece Dim topla2 yap.
747,55 çıkar.


TextBox62.Value = ActiveCell.Offset(0, 59).Value 'Lojman Kirası
TextBox62.Value = ActiveCell.Offset(0, 70).Value 'Artış Keseneği
'Formunuz Üzerindeki Textbox'ların Veri Alacağı Satırları Bu Şekilde Ayarlayın.
'GERİSİNİ SİZE BIRAKTIM.
Dim topla1 As Long
Dim topla2
For X = 30 To 46 'Burayı Textbox sayısına göre düzeltiniz.
If IsNumeric(Controls("TextBox" & X)) Then
topla1 = topla1 + Controls("TextBox" & X) * 1
End If

 

[ferhatgurbuz]

Çok teşekkür ederim. mrttrn . Ellerine sağlık.

 

[Orion1]

Dim topla1, topla2 As Single