Combobox text'lerinde istenilen hücrelerin görünmesi

[ynmcan]

Merhaba arkadaşlar.

Combobox1' de seçim yapıp değiştir butonuna tıkladığımda diğer Combobox listelerinin sayfa1' deki veri aldığı satırlar değişirken aynı zamanda bu Combobox' ların "text" lerinde veri aldığı satırardaki kırmızı hücrelerin görünmesini istiyorum.
Ben listeleri değiştiren kodları yazdım ama text lerde görünmesini istediğim renkli hücreler için yardım istiyorum.
Örnek dosya ekte.

 

[Orion1]

Dosyanız ekte.

Private Sub ComboBox1_Click()
Dim hcr As Range, k As Byte, i As Byte
sat = ((ComboBox1.ListIndex + 1) * 3)
For k = 2 To 10
    Controls("ComboBox" & k).Clear
Next k
s = 1
    For p = sat To sat + 2
        s = s + 1
        For Each hcr In Range("C" & p & ":AI" & p)
            If hcr.Interior.ColorIndex = 3 Then
                For t = s To s + 8 Step 3
                    Controls("ComboBox" & t).AddItem hcr.Value
                Next t
            End If
        Next hcr
    Next p
End Sub

 

[ynmcan]

Benim istediğim bu değil. Combobox' ların Açılır listeleri benim örnek dosyadaki gbi olacak. Sizin bu listelere getirdiğiniz veriler Combobox' ların text lerinde görünsün istiyorum.
Örnek olarak Combobox1' de300/1500 BB. seçildiğinde şu anda kırmızı olan hücrelere göre

Combobo2' nin listesinde "D3:AI3" Text' inde 11
Combobo3' nin listesinde "D3:AI3" Text' inde 15
Combobo4' nin listesinde "D3:AI3" Text' inde 24

Combobo5' nin listesinde "D4:AI4" Text' inde 9
Combobo6' nin listesinde "D4:AI4" Text' inde 10
Combobo7' nin listesinde "D4:AI4" Text' inde 18

Combobo8' nin listesinde "D5:AI5" Text' inde 4
Combobo9' nin listesinde "D5:AI5" Text' inde 20
Combobo10' nin listesinde "D5:AI5" Text' inde 23 görünsün

300/1500E ENT BB.seçildiğindede

Combobo2' nin listesinde "D6:AI6" Text' inde 1
Combobo3' nin listesinde "D6:AI6" Text' inde 2
Combobo4' nin listesinde "D6:AI6" Text' inde 12

Combobo5' nin listesinde "D7:AI7" Text' inde 5
Combobo6' nin listesinde "D7:AI7" Text' inde 10
Combobo7' nin listesinde "D7:AI7" Text' inde 18

Combobo8' nin listesinde "D8:AI8" Text' inde 7
Combobo9' nin listesinde "D8:AI8" Text' inde 13
Combobo10' nin listesinde "D8:AI8" Text' inde 22 görünsün. ( Şu anda örnek dosyada kırmızı ola hücrelere göre)

 

[ynmcan]

Mesaj 3' teki örnek dosya ve açıklamalara göre tekrar bakarbilirmisiniz?
İlk mesajımda istediğim tam anlaşılmamış olabilir.

 

[Orion1]

İstediğiniz böylemi olacaktı..

Private Sub ComboBox1_Click()
Dim hcr As Range, k As Byte, i As Byte
sat = ((ComboBox1.ListIndex + 1) * 3)
For k = 2 To 10
    Controls("ComboBox" & k).Clear
    Controls("ComboBox" & k).Value = Empty
Next k
s = -1
    For p = sat To sat + 2
        s = s + 1
        k = s
        say = 0
        For Each hcr In Range("C" & p & ":AI" & p)
            If hcr.Interior.ColorIndex = 3 Then
                t = k + 2
                say = say + 1
                Controls("ComboBox" & t).AddItem hcr.Value
                k = k + 3
                If say = 3 Then say = 0: Exit For
            End If
        Next hcr
    Next p
    For k = 2 To 10
        If Controls("ComboBox" & k).ListCount > 0 Then
            Controls("ComboBox" & k).ListIndex = 0
        End If
    Next k
End Sub

 

[ynmcan]

Comboboxlarda görünmesini istediğim hücreler doğru. Ancak bunlar combobox ların açılır listelerinde değil.Text lerinde görünmmesini istiyorum.( text derken belki yanlış ifade ediyor olabilirim.Comboboxların listelerinde değil listeler kapalıyken görünen pencerelerinden.)

 

[ynmcan]

Tamam düzelttim yolladığınız kodda kırmızı kısımları değiştirdim istediğimi elde ettim. Kattkılarınızdan dolayı teşekkür ederim. Çalışmalarınızda başarılr dilerim.

Private Sub ComboBox1_Click()
Dim hcr As Range, k As Byte, i As Byte
sat = ((ComboBox1.ListIndex + 1) * 3)
For k = 2 To 10
    Controls("ComboBox" & k)[COLOR="Red"].Text = Clear[/COLOR]
Next k
s = -1
    For p = sat To sat + 2
        s = s + 1
        k = s
        say = 0
        For Each hcr In Range("C" & p & ":AI" & p)
            If hcr.Interior.ColorIndex = 3 Then
                t = k + 2
                say = say + 1
                Controls("ComboBox" & t).[COLOR="red"]Text = hcr.Value[/COLOR]
                k = k + 3
                If say = 3 Then say = 0: Exit For
            End If
        Next hcr
    Next p
End Sub

 

[ynmcan]

Tamam düzelttim yolladığınız kodda kırmızı kısımları değiştirdim istediğimi elde ettim. Kattkılarınızdan dolayı teşekkür ederim. Çalışmalarınızda başarılr dilerim.

Private Sub ComboBox1_Click()
Dim hcr As Range, k As Byte, i As Byte
sat = ((ComboBox1.ListIndex + 1) * 3)
For k = 2 To 10
    Controls("ComboBox" & k)[COLOR="Red"].Text = Clear[/COLOR]
Next k
s = -1
    For p = sat To sat + 2
        s = s + 1
        k = s
        say = 0
        For Each hcr In Range("C" & p & ":AI" & p)
            If hcr.Interior.ColorIndex = 3 Then
                t = k + 2
                say = say + 1
                Controls("ComboBox" & t).[COLOR="red"]Text = hcr.Value[/COLOR]
                k = k + 3
                If say = 3 Then say = 0: Exit For
            End If
        Next hcr
    Next p
End Sub

 

[Orion1]

5 numaralı mesajda gerekli düzenlemeyi yaptım.Değer textte gösterilyor ama listedede tutuluyor.
O dosyayı kullanırsanız daha doğru olacaktır.