Merhabalar
bir userform da deneme1 ve deneme 2 olarak iki textbox açıyorum deneme1're bir sayı girdiğimde o sayı hangi aralıktaysa ona göre yorumu deneme2 de görmek istiyorum fakat bi türlü olmuyor acaba nerde yanlışlık var
Yardımlarınız için şimdiden teşekkürler
Private Sub deneme1_Change()
sabit = deneme1.Value
If sabit < 10.5 Then
deneme2.Value = " Zayıf ! "
End If
If sabit > 10.6 Or sabit < 20.5Then
deneme2.Value = " geçer"
End If
If sabit > 20.6 Or sabit < 30.5 Then
deneme2.Value = " orta "
End If
If sabit > 30.6 Or sabit < 40.9 Then
deneme2.Value = " iyi "
End If
If sabit > 40 Then
deneme2.Value = " çok iyi"
End If
End Sub
bir userform da deneme1 ve deneme 2 olarak iki textbox açıyorum deneme1're bir sayı girdiğimde o sayı hangi aralıktaysa ona göre yorumu deneme2 de görmek istiyorum fakat bi türlü olmuyor acaba nerde yanlışlık var
Yardımlarınız için şimdiden teşekkürler
Private Sub deneme1_Change()
sabit = deneme1.Value
If sabit < 10.5 Then
deneme2.Value = " Zayıf ! "
End If
If sabit > 10.6 Or sabit < 20.5Then
deneme2.Value = " geçer"
End If
If sabit > 20.6 Or sabit < 30.5 Then
deneme2.Value = " orta "
End If
If sabit > 30.6 Or sabit < 40.9 Then
deneme2.Value = " iyi "
End If
If sabit > 40 Then
deneme2.Value = " çok iyi"
End If
End Sub