Üç adet combobox la aynı listeyi kontrol etmek.

[ynmcan]

Üç adet combobox a sayfa2 deki aynı Hücre aralığından açılır liste oluşturdum (liste,liste1,liste2 adlı makrolar ile). Bu combobox larda seçtiğim verilerin bulunduğu hücrelerin üçününde arka planlarının yeşil olmasını istiyorum.

Ben forumdaki arkadaşların yardımı ile örnek bir çalışma yaptım, ama benim eksik açıklamalarımdan dolayı şorunlarla karşılaştım.(tek combobox olarak yardım istedim ve verilen kodlar çok güzel çalıştı.Ancak combobox ları 3 taneye çıkarınca bu kodları buna göre uyarlayamadım.) Yardımlarınız için şimdiden teşekkür ederim.

Örnek dosya ekte.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Class Module ile hazırlanmıştır.

 

[ynmcan]

Teşekkürler.

Tam istediğim gibi olmuş.Elerinize sağlık.
Ancak dosyayı kapatıp yeniden açtığımda:
''Run-time-error-214704809(80070057':Belirnenen kolleksiyona olan dizin sınırlar dışında'' diye hata veriyor.class modül içindede For X = 1

'' ActiveSheet.Shapes(X).OLEFormat.Object.Object.Clear
For Each Hücre In Sheets("Sayfa2").Range("C2:K2")
ActiveSheet.Shapes(X).OLEFormat.Object.Object.AddItem Hücre.Value
Next
ActiveSheet.Shapes(X).OLEFormat.Object.Object.ListIndex = X - 1
Next
End Sub''
Satırında hata belirtiyor.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyayı defalarca kapatıp açtım fakat böyle bir hata mesajı almadım.

 

[ynmcan]

Birdaha bakabilirmisiniz.

 

[ynmcan]

selam,
dosyayı yeniden denedim ,hatayı;dosyayı sayfa2 aktifken kapatıp açınca veriyor.Ayrıca combobox ların listesi siliniyor.

 

[Korhan Ayhan]

Selamlar,

6. mesajınızdaki hatayı engellemek için üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[ynmcan]

En son güncellemenizi denedim.Şu anda hata vermiyor ama dosyayı kapatıp açınca combobox larda seçtiğim en son değerler bir iki saniye içinde sıfırlanıyor.Ben bu de değerlerin sabit kalmasını istiyorum.Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

 

[ynmcan]

Ellerinize sağlık çok güzel olmuş.İlginizden ve zaman ayırdığınızdan dolayı da çok teşekkür ederim.

 

[kamilsrky]

Örnek Dosya İsteği

Sayın Korhan Hocam bu mesajdaki ek dosyayı tekrar eklemeniz mümkünmü.Malum silinmiş.Anlatılanlar benim sorunumu çözecek gibi o yüzden tekrar eklerseniz sevinirim.