BoŞ Textboxta Toplama Hatasi

[bayir81]

Aşağıdaki yazmış olduğum kodda textbox boş olursa hata veriyor eğer textboxta 0 değeri olursa çalışıyor. Ben bu textboxslara(Bu şekilde 100 tane) 0 yazmak istemiyorum veya 0 görünmesini istemiyorum. 2 gündür forumda arama yapıyorum ama bir türlü bulamadım. Ya arayacağım kelimeyi bilmiyorum yada böyle bir promlemle karşılaşan olmamış herhalde. Bu arada sayılarım ondalık olduğu için CCur kullanıyorum. Val kullansam bu sorun olmuyor ama oda tamsayılar için.

Şimdiden yardımlarınız için teşekkürler.

Kod:
Private Sub TextBox1_Change()
TextBox3 = Ccur(TextBox1) + Ccur(TextBox2)
End Sub

 

[Recep İpek]

Bende birçok deneme yaptım ama dediğiniz gibi çalışmadı.

Benim önerim userformunuzun açılışına aşağıdaki kodları kopyalamanızdır.

Böylelikle userform açılırken boş olan textboxlar 0 değerini alır..

Private Sub UserForm_Initialize()
    For X = 1 To 2  '<Toplam Textbox Sayısı
    If Controls("TextBox" & X).Value = "" Then
    Controls("TextBox" & X).Value = 0
    End If
    Next
End Sub

 

[bayir81]

Sayın ripek yardımın için teşekkürler.
Boşken hücrede sıfır varmış gibi algılayacak bir kod olsa daha iyi görünüm olacaktı. Ama bu kodda benim için yeterli.
Sağolasın

 

[Levent Menteşoğlu]

Sayın ripek yardımın için teşekkürler.
Boşken hücrede sıfır varmış gibi algılayacak bir kod olsa daha iyi görünüm olacaktı. Ama bu kodda benim için yeterli.
Sağolasın

Bu durumda aşağıdaki gibi yapabilirsiniz.

 For X = 1 To 2  '<Toplam Textbox Say&#305;s&#305;
    If Controls("TextBox" & X).Value <> "" Then  toplam=Controls("TextBox" & X)*1+toplam
    Next

 

[eyüppsen]

Merhaba
Class modüleli çözüm ayrıca otomatik toplam alıyor.Dosyayı ekliyorum