Soru Combobox açılır Liste

[sirkülasyon]

For a = 3 To 9
Me.Controls("combobox" & a).ColumnCount = 1
Me.Controls("combobox" & a).RowSource = "DATA!Q1:Q" & [DATA!Q65536].End(3).Row
Next

Yukarıdaki kod ile data sayfasında verileri comboboxlara uyguluyorum. Yalnız açılır listede Backcolor rengini "Evet" ise YEŞİL "Hayır" ise Kırmızı olmasını nasıl sağlayabilirim?
Teşekkür ederim

 

[mesuttasar]

Verileri userform initialize veya herhangi bir command button ile combobox lara aldıktan sonra açılır listeden EVET veya HAYIR seçmeniz durumunda renk değişimi mümkün olabilir, bunun için de her combobox'ın change olayına aşağıdaki kodları uyarlayarak yazmanız gerekiyor.
Combobox3 için örnek kodlar aşağıdadır.

Private Sub ComboBox3_Change()
If ComboBox3.Value = "EVET" Then
ComboBox3.BackColor = RGB(0, 255, 0)
Else
ComboBox3.BackColor = RGB(255, 0, 0)
End If
End Sub

 

[sirkülasyon]

Teşekkür ederim