formdaki bir butonun tıklanma olayına;

formdaki txtsay metin kutusunun içeriğine göre;
0 ile 17 arasındaysa 1
17 ye eşit ve 24 den küçükse 2
24 eşit ve 34 den büyükse 3 değerini
formdaki txtsonuç metin kutusuna
nasıl kodlarım

Private Sub Komut69_Click()

Select Case Me.txtogrsay



Case Me.txtogrsay > 0 Or Me.txtogrsay < 17

Me.txtgrpsay = 1



Case Me.txtogrsay > 16 Or Me.txtogrsay < 24

Me.txtgrpsay = 2

Case Me.txtogrsay > 23 Or Me.txtogrsay < 31

Me.txtgrpsay = 3

End Select

End Sub

Bu kod neden çalışmıyor acaba?

Select Case Me.txtogrsay

    Case Is < 17

    Me.txtgrpsay = 1

    Case Is < 24

    Me.txtgrpsay = 2

    Case Is < 31

    Me.txtgrpsay = 3

End Select

0 ile 17 arası için 1
18 ile 24 arası için 2

24 den büyük için 3 yapmak istiyorum.

or ifadesini nasıl kullanabilirim

Case yerine if kullanmayı deneyebilirsiniz
Ama yazdığım kod hatalı sonuç mu verdi?
23-31 arası koşulu siz koymuştunuz o nedenle o koşulu ekledim

Tamamdır. Konu çözülmüştür. Teşekkür ederim.