Çözüldü ComboBox değerine göre TextBoxda işlem yapma

[sirkülasyon]

Private Sub ComboBox1_Change()
If ComboBox1.Text = "Gerçek Gelir" Then
TextBox18.Text = Round(CDbl(TextBox16.Value / TextBox17.Value) / 100 * 8, 2)
ElseIf ComboBox1.Text = "Basit Gelir" Then
TextBox18.Text = Round(CDbl(TextBox16.Value / TextBox17.Value), 2)
End If
End Sub

yukarıda hatam var. Combobox ta seçim yaptığımda işlem yapmıyor.
Yardımcı olabilir misiniz

 

[askm]

Örnek dosyanız olursa hata nerde anlaşılır. Koda göre işlem yapınca çalışıyor.

 

[sirkülasyon]

sayın askm
ilk sorumu çözdüm.
Bana userform da bulunan tüm framelerin userform açıldığı visible değerlerinin false olabilmesi için yardımcı olabilir misiniz

 

[Orion1]

Buyurun.

Private Sub UserForm_Initialize()
Dim frm As Object
For Each frm In Me.Controls
    If TypeName(frm) = "Frame" Then frm.Visible = False
Next
End Sub

 

[sirkülasyon]

Evren Abi
Çok çok teşekkür ederim. Sağ olasın

 

[Orion1]

Evren Abi
Çok çok teşekkür ederim. Sağ olasın

Rica ederim.
İyi çalışmalar.