Textbox4_Change olayını silip Textbox5_Cahnge olayında aşağıdaki kodu dener misiniz istediğiniz bu mu?

Private Sub TextBox5_Change()

 Me.TextBox6.Value = gosterge(TextBox4.Value, TextBox5.Value)

 Me.TextBox7.Value = EKGOSTERGEBUL(ComboBox3.Value, ComboBox4.Value, TextBox4.Value, TextBox5.Value)

  

If ComboBox3.Value = "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text = "Öğretmen" Then GoTo 1

If ComboBox3.Value <> "Eğitim Öğretim Hizmetleri Sınıfı" And ComboBox2.Text <> "Öğretmen" Then GoTo 2



1

    Dim i As Integer

    i = CInt(TextBox7.Value)

    

    If i >= 8000 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C3").Value

    ElseIf i < 8000 And i >= 5800 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C4").Value

    ElseIf i < 5800 And i >= 3000 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C5").Value

    End If

    Exit Sub

    

    



2

    Dim j As Integer

    j = CInt(TextBox4.Value)



    If j <= 4 And j >= 1 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C6").Value

    ElseIf j <= 15 And j >= 5 Then

    Me.TextBox8.Value = Sheets("Sayfa1").Range("C7").Value

    Else

    MsgBox "Geçerli bir derece girmediniz"

    End If



End Sub