[ÇÖZÜLDÜ] combobox'un veri aldığı hücre rengi

[ynmcan]

Combobox4' ile combobox1,2,3'ün veri aldığı satırı değiştirdiğimde bu combobox lara o satırdaki yeşil olan hücredeki veriler gelsin.
Bu konuda çok uğraştım ama olmadı yardım ederseniz sevinirim. Şimdiden teşekkür ederim.
örnek dosya ekte

 

[Ferhat Pazarçevirdi]

Bahsettiğiniz şey sonsuz bir döngü (veya durağanlık veya paradox) gibi geliyor bana ... Yanılıyor da olabilirim.

Hem Combolardaki seçime göre sayfadaki hücreler renkleniyor, hem de sayfada renklenen hücrelere göre Combolar değer değiştiriyor. Combolar değer değiştirince, sayfadaki hücreler yine renkleniyor. Yine combolar değer değiştiriyor. Devam, devam, devam ...

Veya Combo'da seçtiğiniz şeyin, zaten yeşil hücreler olduğu kabul edilirse, hiçbir işlem yapmaya da gerek kalmıyor.

Yani, kısacası ben anlamadım.

 

[ynmcan]

syn Ferkat Pazarçevirdi,
benim istediğim combobox4' te seçim yaptığımda daha önceden yeşil olan hücrelerin bu comboboxlarda görünmesi.Şu anda örnek dosyada incelerseniz combobox4 yenibir satır seçtiğimde combobox1,2,3 siliniyor.ben silinmesini istemiyorum o anki seçilen satırdaki yeşil hücrelerin görünmesini istiyorum ( yeşil hücreler değişmeyecek.)

 

[Tasarım]

[FONT="Tahoma"]ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""[/FONT]

Bunları kaldırırsanız silinmezler.

 

[ynmcan]

tasarım,
dediğinizi yaptım ama düzelmedi.

 

[meslan]

Sn.ynmcany," renkleri_sil " makrosunu combbox1 ,2, 3den silip sadece combobox4 change olayına atayınız. İstediğiniz. olacaktır.

 

[ynmcan]

syn Meslan,
dediğinizi yaptım ama birşey değişmedi.
örnek dosyayı inceleyebilirmisiniz yanlış mı yaptım.

 

[meslan]

Sn. ynmcany
Private Sub ComboBox4_Change()
Dim hcr As Range
Dim deg(3)
sat = ComboBox4.ListIndex + 2
ComboBox1.Clear
ComboBox2.Clear
ComboBox3.Clear
For Each hcr In Sayfa2.Range("c" & sat & ":k" & sat)
ComboBox1.AddItem hcr.Value
ComboBox2.AddItem hcr.Value
ComboBox3.AddItem hcr.Value
If hcr.Interior.ColorIndex = 4 Then
c = c + 1
deg(c) = hcr
End If
Next
ComboBox1 = deg(1)
ComboBox2 = deg(2)
ComboBox3 = deg(3)
renkleri_sil
End Sub

Bu şekilde olacak.

 

[ynmcan]

syn Meslan,
combobox1,2,3'lerde istediğim olmuş fakat satırlardaki yeşi hücreler şiliniyor ben bunların silinmesini istemiyorum (combobox1,2,3'larda yeni bir seçim yapmadıkça bu renkli hücreler silinmesin) bu mümkünmü.

 

[meslan]

Merhaba. o halde renkleri_sil makrosunu combobox4 change olaydın çıkarıp, combobox1, 2 ve 3 ün DropButtonClick olayına atayabilirsiniz. Veya ekteki gibi yapılabilir.

 

[ynmcan]

Sayın Meslan,
yazdıklarınızı uyguladım şu anda çok güzel çalışıyor katkılarınızdan dolayı çok teşekkür ederim, ellerinize ve zihninize sağlık.
hayırlı geceler.

 

[meslan]

Sayın Meslan,
yazdıklarınızı uyguladım şu anda çok güzel çalışıyor katkılarınızdan dolayı çok teşekkür ederim, ellerinize ve zihninize sağlık.
hayırlı geceler.

Teşekkür ederim. Size de hayırlı geceler.