Soru comboboxa göre yıl ve dönem

[sirkülasyon]

Userform üzerinde
Combobox10
Combobox11
Textbox14
Textbox 15
nesneleri mevcut.

Combobox10' da yıl seçildi. (Örnek 2020)
Combobox11' de ay seçildi. (Örnek Ocak)
Textbox14' e 15 Aralık
Textbox15' e 14 Ocak

Combobox10' da yıl seçildi. (Örnek 2020)
Combobox11' de ay seçildi. (Örnek Şubat)
Textbox14' e 15 Ocak
Textbox15' e 14 Şubat

Combobox10' da yıl seçildi. (Örnek 2020)
Combobox11' de ay seçildi. (Örnek Mart)
Textbox14' e 15 Şubat
Textbox15' e 14 Mart

Nasıl bir kod ile bu durumu sağlayabilirim? Yardımcı olabilir misiniz?

 

[Muzaffer Ali]

Merhaba.
ComboBox11 in Change kodları aşağıdaki gibi olmalı.

Private Sub ComboBox11_Change()
    Dim Ay As Integer
    Ay = ComboBox11.ListIndex - 1
    If Ay = -1 Then Ay = 11
    TextBox14.Text = "15 " & ComboBox11.List(Ay)
    TextBox15.Text = "14 " & ComboBox11.Text
End Sub

 

[sirkülasyon]

teşekkür ederim. Sağ ol.

 

[Muzaffer Ali]

Rica ederim. İyi çalışmalar.