Soru combobox select case kullanımı hatası

[sirkülasyon]

Private Sub ComboBox1_change()
    Select Case ekdrs
        Case "(101) Gündüz"
            Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets("Katsayılar").Range("A2").Value
        Case "(102) Gece"
          Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets(Sheets("Katsayılar").Range("A3"))
        Case "(103) %25 Fazla Gündüz"
            Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets("Katsayılar").Range("A2") * 0.25
    End Select
End Sub

Makronun çalışması için ne yapmam lazım?

 

[Mahmut Bayram]

Private Sub ComboBox1_change()
    Select Case ComboBox1.ListIndex
        Case 0: ilk = "(101) Gündüz"
        Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets("Katsayılar").Range("A2").Value
        Case 1: iki = "(102) Gece"
          Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets("Katsayılar").Range("A3")
        Case 2: üç = "(103) %25 Fazla Gündüz"
            Me.TextBox1.Text = Sheets("Katsayılar").Range("A1") * Sheets("Katsayılar").Range("A2") * 0.25
    End Select
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "(101) Gündüz"
ComboBox1.AddItem "(102) Gece"
ComboBox1.AddItem "(103) %25 Fazla Gündüz"
End Sub

 

[sirkülasyon]

Sadatların duası üzerine olsun
Ellerine sağlık

 

[Mahmut Bayram]

Amin Allah razı olsun.