Textbox içinde döngü yapamadım. Yardım İstiyorum

[sirkülasyon]

Abilerimden beceremediğim bir konu için yardım istiyorum
1. Konu
Combobox1 içinde 10-14 seçildiği zaman Textbox5 içinde 1,00
Combobox1 içinde 16-18 seçildiği zaman Textbox5 içinde 1,50
Combobox1 içinde 20-29 seçildiği zaman Textbox5 içinde 2,10
Combobox1 içinde 30 + seçildiği zaman Textbox5 içinde 2,40 yazılmasını
Eğer Combobox1 boş ise de textbox5 de 0,00 yazsın

2. Konu
Textbox1 içine girilen rakam ise Textbox2 direk 30 'a bölecek. Rakam girilmezse eğer 0,00 yazacak

Yardımlarınız için teşekkür ederim

 

[mancubus]

1)

Private Sub ComboBox1_Change()
    Select Case ComboBox1.Value
        Case 10 To 14
            TextBox1.Value = Format(1, "0.00")
        Case 16 To 18
            TextBox1.Value = Format(1.5, "0.00")
        Case 20 To 29
            TextBox1.Value = Format(2.1, "0.00")
        Case Is > 30
            TextBox1.Value = Format(2.4, "0.00")
        Case Else
            TextBox1.Value = Format(0, "0.00")
    End Select
End Sub

2)

Private Sub TextBox1_Change()
    If IsNumeric(TextBox1.Value) Then TextBox2.Value = Format(TextBox1.Value / 30, "0.00")
End Sub

veya...

        Case Else
            TextBox1.Value = Format(0, "0.00")

seçeneği ile Combo1'e girilen değerin 0-9, 15, 19 rakamları (veya başka bir şey) olması durumunda Text1'e 0 rakamını atadığımızdan, Text1'deki verinin rakam olup olmadığını test etmeye gerek yoktur. kod kısaltılabilir.
2)

Private Sub TextBox1_Change()
    TextBox2.Value = Format(TextBox1.Value / 30, "0.00")
End Sub

 

[sirkülasyon]

Sayın Mancubus
Yardımlarınız için teşekkür ederim

 

[mancubus]

rica ederim.