Soru Combobox seçimine göre TextBox değerini belirleme

[sirkülasyon]

Combobox4 ="10 - 16", "17 - 23","24 - 29"
Eğer Combobox4 Değeri "10 - 16" ise TextBox8 değeri de 10+1,11+1,12+1,13+1,14+1,15+1,16+1 değerlerinden birisi ise girilen değer kabul edilsin.
Aksi Durumda "Girilen Değer Seçilen Değerden Büyük" uyarısı verecek ve Textbox8 silinecek

Eğer Combobox4 Değeri "17 - 23" ise TextBox8 değeri de 17+1,18+1,12+1,19+1,20+1,21+1,22+1,23+1 değerlerinden birisi ise girilen değer kabul edilsin.
Aksi Durumda "Girilen Değer Seçilen Değerden Büyük" uyarısı verecek ve Textbox8 silinecek

Eğer Combobox4 Değeri "24 - 29" ise TextBox8 değeri de 24+1,25+1,26+1,27+1,28+1,29+1 değerlerinden birisi ise girilen değer kabul edilsin.
Aksi Durumda "Girilen Değer Seçilen Değerden Büyük" uyarısı verecek ve Textbox8 silinecek
şeklinde bir makro için yardımcı olabilir misiniz?

 

[Kumpasta]

merhaba.
böyle bir yapı mı istiyorsunuz?

Sub ComboBox_Change()

Dim cb As ComboBox
Set cb = ActiveSheet.ComboBox4

Select Case cb.Value
    Case "10 - 16"
        If TextBox8.Value > 16 Then
            MsgBox "Girilen Değer Seçilen Değerden Büyük"
            TextBox8.Value = ""
        End If
    Case "17 - 23"
        If TextBox8.Value > 23 Then
            MsgBox "Girilen Değer Seçilen Değerden Büyük"
            TextBox8.Value = ""
        End If
    Case "24 - 29"
        If TextBox8.Value > 29 Then
            MsgBox "Girilen Değer Seçilen Değerden Büyük"
            TextBox8.Value = ""
        End If
End Select

End Sub

 

[sirkülasyon]

Teşekkür Ederim