girilen sayı hangi aralıktaysa ona göre yorum..?

[xagox]

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

 

[veyselemre]

aralıkları tekrar inceleyiniz

[vb:1:e94d67d394]Private Sub deneme1_Change()
Select Case deneme1.Value
Case Is < 10.5
deneme2.Value = " Zayıf ! "
Case 10.5 To 20.4
deneme2.Value = " geçer"
Case 20.5 To 30.4
deneme2.Value = " orta "
Case 30.5 To 40.4
deneme2.Value = " iyi "
Case Is >= 40.5
deneme2.Value = " çok iyi"
Case Else
deneme2.Value = ""
End Select
End Sub
[/vb:1:e94d67d394]

 

[cout(h)ane]

.
.
.
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

Aslında sizin kodlarınızla da yapılıyor sanırım, sadece "OR" operatörleri yerine "AND" operatörü koymanız gerekiyor, ben denedim oldu.
Bir de siz deneyin isterseniz.

 

[xagox]

Yardımlarınız için çok teşekkürler sorunum çözüldü