textboxlara sayı yazınca toplamı label1 de versin

[olymposss]

iyi akşamlar üstadlarım
örnek dosya ektedir.
yapmaya çalıştığım ise;

userformu açtıktan sonra sırayla textbox1,2,3 ve 4e yazdığım rakamları toplasın ve toplamı label1 e yazsın.ayrıca toplam 100e ulaştığı zaman label1 kırmızı olsun diğer zamanlarda ise normal kalsın. kullanmaya çalıştığım birkaç kod formun click bölümünde yazılı. yardımlarınız bekliyorum.
sonsuz teşekkürler.
saygılar.:yardim:

 

[alpi]

Aşağıdaki kodlar istediğinz olayı gerçekleştiriyor

Label1.Caption = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
If Label1.Caption = 100 Then
Label1.ForeColor = vbRed
End If

 

[Levent Menteşoğlu]

Class module ile yapılan ekteki örneğide inceleyebilirsiniz.

 

[acemi23]

bunuda

Private Sub UserForm_click()
Label1 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3) + Val(TextBox4)
If Label1 = 0 Then
Label1.ForeColor = red
End If
End Sub

 

[tahsin01]

Textbox otomatik toplama hakkında

Class module ile yapılan ekteki örneğide inceleyebilirsiniz.

Sn.Levent Bey

textbox'ta otomatik toplama ile ilgili örnek dosyayı indiremedim. Acaba dosya kaldırıldı mı? benim yaptığım userformda 12 adet textbox var ve textboxlar dolunca otomatik toplasın istiyorum.

konu hakkında yardımcı olabilir misiniz.

Saygılarımla

Tahsin