Soru TextBoxlarda işlem

[sirkülasyon]

Selamün Aleyküm
Birincisi :
Textbox4 İçin
Textbox4' e girilen rakam dışında birşey ise silecek ve uyarı verecek
Eğer Textbox4 Dolu ve Textbox5 Boş ise ve Textbox4 50 sayısından küçük ise
Textbox6= TextBox4
Eğer Textbox4 Dolu ve Textbox5 Boş ise ve Textbox4 50 sayısından büyük ise
Textbox4 = ""
Msgbox "Lütfen Kapasite Sınırı En Fazla 50' dir. Lütfen Tekrar Deneyiniz"
Textbox4' e tekrar bir rakam girişi yapılmadan TextBox4' ten çıkılmayacak.
İkincisi :
Textbox5 İçin
Textbox5' e girilen rakam dışında birşey ise silecek ve uyarı verecek
Eğer Textbox4 Dolu ve Textbox4 50 sayısından küçük ve TextBox5' e girilen rakam 50 sayısından büyük ise
Textbox5 = ""
Msgbox "Lütfen Kapasite Sınırı En Fazla 50-Textbox4 kadardır. Lütfen Tekrar Deneyiniz"
Textbox5' e tekrar bir rakam girişi yapılmadan TextBox4' ten çıkılmayacak.
Eğer Textbox5 Dolu ve Textbox5 50 sayısından küçük ve TextBox4' e girilen rakam 50 sayısından büyük ise
Textbox4 = ""
Msgbox "Lütfen Kapasite Sınırı En Fazla 50-Textbox5 kadardır. Lütfen Tekrar Deneyiniz"
Textbox4' e tekrar bir rakam girişi yapılmadan TextBox4' ten çıkılmayacak.

Eğer Textbox4 Dolu ve Textbox4 50 sayısından küçük ve TextBox5' e girilen rakam 50 sayısından küçük ise
Textbox6= TextBox4 + TextBox5
Yardımınızı bekliyorum Teşekkür ederim.

 

[tarık34]

sirkülasyon,

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox4.Value) Then
        TextBox4.Value = ""
        MsgBox "Lütfen bir rakam giriniz!", vbExclamation
        Cancel = True
    ElseIf TextBox4.Value < 0 Or TextBox4.Value > 50 Then
        TextBox4.Value = ""
        MsgBox "Lütfen kapasite sınırı en fazla 50'dir. Lütfen tekrar deneyiniz.", vbExclamation
        Cancel = True
    End If
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsNumeric(TextBox5.Value) Then
        TextBox5.Value = ""
        MsgBox "Lütfen bir rakam giriniz!", vbExclamation
        Cancel = True
    ElseIf TextBox5.Value < 0 Or TextBox5.Value > 50 Then
        TextBox5.Value = ""
        MsgBox "Lütfen kapasite sınırı en fazla 50'dir. Lütfen tekrar deneyiniz.", vbExclamation
        Cancel = True
    End If
End Sub

Private Sub TextBox4_Change()
    If TextBox4.Value <> "" And TextBox5.Value = "" Then
        If TextBox4.Value < 50 Then
            TextBox6.Value = TextBox4.Value
        Else
            TextBox4.Value = ""
            MsgBox "Lütfen kapasite sınırı en fazla 50'dir. Lütfen tekrar deneyiniz.", vbExclamation
        End If
    End If
End Sub

Private Sub TextBox5_Change()
    If TextBox5.Value <> "" And TextBox4.Value = "" Then
        If TextBox5.Value < 50 Then
            TextBox6.Value = TextBox5.Value
        Else
            TextBox5.Value = ""
            MsgBox "Lütfen kapasite sınırı en fazla 50'dir. Lütfen tekrar deneyiniz.", vbExclamation
        End If
    End If
End Sub

Private Sub TextBox6_Change()
    If TextBox4.Value <> "" And TextBox5.Value <> "" Then
        If TextBox4.Value < 50 And TextBox5.Value < 50 Then
            TextBox6.Value = TextBox4.Value + TextBox5.Value
        End If
    End If
End Sub

 

[sirkülasyon]

Teşekkür ederim. Ellerinize sağlık