iki koşula göre verinin listelenmesi

[asi_kartal]

slm arkadaşlar
3 tane listboxtan oluşan bir form oluşturdum. listbox1 ile listbox2 birbiriyle bağlantılı.

listbox2 tıklanlandığında ilgili verinin "G" sutunundan başlayan tüm tarihlerin tarih listbox3 sıralanmasını istiyorum. dosya ektedir yardımlarınızı bekliyorum.

 

[dEdE]

Merhaba,
Aşağıdaki kodları UserFormunuzun kod bölümüne ekleyerek dener misiniz?

Private Sub ListBox2_Click()
  If ListBox2.ListCount < 0 Then Exit Sub
    ListBox3.Clear
    sat = 0
satır = Range("B:B").Find(ListBox2.Text, , , xlWhole).Row
SonK = Range("A" & satır).End(2).Column

For i = 7 To SonK
    ListBox3.AddItem
    ListBox3.Column(0, sat) = Format(Cells(satır, i).Value, "dd.mm.yyyy")
    sat = sat + 1
Next
End Sub

Private Sub ListBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cells.Interior.ColorIndex = xlNone
sutun = 7 + ListBox3.ListIndex
satır = Range("B:B").Find(ListBox2.Text, , , xlWhole).Row
Cells(satır, sutun).Interior.ColorIndex = 6
End Sub

 

[asi_kartal]

eline sağlık hocam teşekkür ederim tam istediğim gibi oluş bir sorum daha olcak.

Cells.Interior.ColorIndex = xlNone

kodunu kaldırdım böylece seçtiklerimin rengi sabit kalsın istedim. rengi değişmiş olan hücrelere karşılık gelen itemlerinde renginin değişik olmasını istiyorum.

 

[dEdE]

...rengi değişmiş olan hücrelere karşılık gelen itemlerinde renginin değişik olmasını istiyorum.

Bildiğim kadarıyla listbox üzerinde satır bazında renklendirme yapılamıyor.Sadece listbox zemin rengini değiştirebilirsiniz.