combobox la hücre reklendirmek

[ynmcan]

Yolladığım örnek dosyada comboboxta seçili olan verinin bulunduğu hücre arka planını renklenmesini istiyorum.Yardım ederseniz sevinirim

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
For SUT = 3 To 11
Sheets("Sayfa2").Cells(2, SUT).Interior.ColorIndex = xlNone
If Val(ComboBox1.Value) = Sheets("Sayfa2").Cells(2, SUT).Value Then
Sheets("Sayfa2").Cells(2, SUT).Interior.ColorIndex = 4
End If
Next
End Sub

 

[ynmcan]

yoladığınız kod olmuş ancak küçük birsorun var.Sayfa1 e geri döndüğümde comboboxtaki değer sabit kalmıyor,1 değerini alıyor.

 

[ynmcan]

yoladığınız kod olmuş ancak küçük bir sorun var.Sayfa1 e geri döndüğümde comboboxtaki değer sabit kalmıyor,1 değerini alıyor.

 

[N.Ziya Hiçdurmaz]

Yanıt

İstenilen değişiklik yapılmıştır

 

[ynmcan]

N.Ziya Hiçdurmaz; sorunum çözüldü ilginizden dolayı teşekkür ederim.Ellerinize sağlık.

 

[ynmcan]

Sayın N.Ziya Hiçdurmaz; Yolladığınız kodun olduğunu söylemiştim ama benim asıl ana projede 3 ayrı combobox aynı listeden veri alıyor, üçünde de ayrı hücre seçmek zorundayım ve bu seçtiğim hücreler sayfa2 deki listede aynı anda yeşil olmasını istiyorum.
Ayrıca bu combobox larda aynı verileri şeçmeme izin vermesin uyarı versin (Bu kalıp zaten takılı ! ).
Daha önceki eksik bilgiden dolayı özür dilerim.Yardımlarınız için şimdiden
teşekkür ederim.
Örnek dosya ekte.