TextBox lardaki verilerin toplamına göre, işlemin uyarı vermesi

[sukruyilmaz1]

İyi günler arkadaşlar,

Userformda; TextBoX1, TextBoX2, ve TextBoX3 'e veri giriyorum. Textboxlardaki verilerimin toplamı 5 olursa; başka bir textboxa " doğru giriş yaptınız", eğer 5 olmaz ise "yanlış yaptınız" uyarısını almak istiyorum.

Bunu VBA yapabilir miyiz? Yardımlarınızı bekliyorum

Saygılarımla

 

[Huseyinkis]

İyi günler arkadaşlar,

Userformda; TextBoX1, TextBoX2, ve TextBoX3 'e veri giriyorum. Textboxlardaki verilerimin toplamı 5 olursa; başka bir textboxa " doğru giriş yaptınız", eğer 5 olmaz ise "yanlış yaptınız" uyarısını almak istiyorum.

Bunu VBA yapabilir miyiz? Yardımlarınızı bekliyorum

Saygılarımla

Ekli kodları denermisiniz.

Private Sub TextBox1_Change()
If TextBox1 + TextBox2 + TextBox3 = 5 Then
Textbox4 = "Doğru Kayıt Yaptınız"
Else
Textbox4 = "Yanlış Kayıt Yaptınız"
End Sub

Private Sub TextBox2_Change()
If TextBox1 + TextBox2 + TextBox3 = 5 Then
Textbox4 = "Doğru Kayıt Yaptınız"
Else
Textbox4 = "Yanlış Kayıt Yaptınız"
End Sub


Private Sub TextBox3_Change()
If TextBox1 + TextBox2 + TextBox3 = 5 Then
Textbox4 = "Doğru Kayıt Yaptınız"
Else
Textbox4 = "Yanlış Kayıt Yaptınız"
End Sub

 

[sukruyilmaz1]

Sayın Hüseyin bey, kodları denedim, fakat istediğim sonucu alamadım. textbox1 e 5 yazdığımda "doğru kayıt yaptınız " diyor. diğerlerine ne yazarsam yazayim sonuç değişmiyor. textbox1 e 3 diğerlerine 1,1 yazınca da "yanlış kayıt yaptınız" diyor.

 

[sukruyilmaz1]

Konu ile ilgili örnek çalışmayı ekledim sayın Üstadım.

 

[sukruyilmaz1]

.value değerini de denedim bu şekilde de olmadı.



Private Sub TextBox3_Change()
If TextBox1.value + TextBox2.value + TextBox3.value = 5 Then
Textbox4 = "Doğru Kayıt Yaptınız"
Else
Textbox4 = "Yanlış Kayıt Yaptınız"
End Sub

 

[Huseyinkis]

.value değerini de denedim bu şekilde de olmadı.



Private Sub TextBox3_Change()
If TextBox1.value + TextBox2.value + TextBox3.value = 5 Then
Textbox4 = "Doğru Kayıt Yaptınız"
Else
Textbox4 = "Yanlış Kayıt Yaptınız"
End Sub

Ekli kodları denermisiniz hepsi dolu olunca işlem yapar

Private Sub TextBox1_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
If TextBox1.Value + TextBox2.Value + TextBox3.Value = 5 Then
TextBox4.Value = "Doğru Kayıt Yaptınız"
Else
TextBox4.Value = "Yanlış Kayıt Yaptınız"
End If
End If
End Sub


Private Sub TextBox2_Change()
If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
If TextBox1.Value + TextBox2.Value + TextBox3.Value = 5 Then
TextBox4.Value = "Doğru Kayıt Yaptınız"
Else
TextBox4.Value = "Yanlış Kayıt Yaptınız"
End If
End If
End Sub


Private Sub TextBox3_Change()

If TextBox1.Value <> "" And TextBox2.Value <> "" And TextBox3.Value <> "" Then
If TextBox1.Value + TextBox2.Value + TextBox3.Value = 5 Then
TextBox4.Value = "Doğru Kayıt Yaptınız"
Else
TextBox4.Value = "Yanlış Kayıt Yaptınız"
End If
End If
End Sub

 

[sukruyilmaz1]

ÜSTADIM gene "yanlış kayıt yaptınız" diyor . ben önceki mesajımda örnek bir dosya eklemiştim. onun üzerinden gitsek size zahmet.

 

[Huseyinkis]

ÜSTADIM gene "yanlış kayıt yaptınız" diyor . ben önceki mesajımda örnek bir dosya eklemiştim. onun üzerinden gitsek size zahmet.

Ekli dosyayı incelermisiniz.

 

[sukruyilmaz1]

Üstadım, bu değerlerin toplamı 1 olmalı, ben ne yazarsam yazayım hep yanlış kayıt yaptınız uyaısı alıyorum. acaba textbox a girdiğim 0,1 değerini 1 olarak mı algılıyor? fakat ilk textbox a 1 yazıp diğerlerini 0 yazınca gene yanlış uyarı veriyor. siz doğru kayıt yaptınız uyarısını aldınız mı eklediğiniz çalışmada?

 

[Huseyinkis]

Üstadım, bu değerlerin toplamı 1 olmalı, ben ne yazarsam yazayım hep yanlış kayıt yaptınız uyaısı alıyorum. acaba textbox a girdiğim 0,1 değerini 1 olarak mı algılıyor? fakat ilk textbox a 1 yazıp diğerlerini 0 yazınca gene yanlış uyarı veriyor. siz doğru kayıt yaptınız uyarısını aldınız mı eklediğiniz çalışmada?

toplamları aşağıdaki gibi değiştirip denermisiniz.


If TextBox27.Value * 1 + TextBox28.Value * 1 + TextBox29.Value * 1 + TextBox30.Value * 1 + TextBox31.Value * 1 + TextBox32.Value * 1 + TextBox33.Value * 1 = 1 Then

 

[sukruyilmaz1]

Çok teşekkür ederim sayın Hüseyin bey. bu sefer oldu. elinize sağlık.