Koşullu biçimlendirme ile renklendirilen satırları diğer sayfaya listeleme

[sdegirmenci]

Merhaba;
Ekteki dosyam üzerinde Örnek olarak hazırladığım mini tabloda Koşullu biçimlendirme ile kırmızı olan hücreleri "Kaynak" sayfasına listelemek istiyorum. Kendi renklendirdiğim bölümü Listeleyebiliyorum, Ancak koşullu biçimlendirme olan kısmı yapamadım. Renk kodu olarak -4142 kullansım yine olmadı. Bu konuda yardımcı olabilirseniz sevinirim. Saygılarımla

 

[sdegirmenci]

Merhaba;
Değerli Hocalarım, 1. mesajımda ekli dosyamı anlatmak istediğimi sadeleştirerek anlatmak için yeniledim. Eğer bakabilrseniz çok memnun olurum. Saygılarımla.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.
Aslında burada Koşullu Biçimlendirme mantığından değil koşuldan gitmek gerekir.
Aşağıdaki kodlar koşullu biçimlendirme uygulanan hücreleri buldurup işlem yapmaktadır.

Private Sub CommandButton1_Click()
    Dim Hucre   As Range
    Dim i       As Long
    Dim ShK     As Worksheet
    Dim ShU     As Worksheet
 
    Set ShU = Sheets("Ürün Fiyat")
    Set ShK = Sheets("Kaynak")
 
    ShU.Select
 
    i = ShK.Cells(Rows.Count, "B").End(3).Row
 
    For Each Hucre In ActiveCell.SpecialCells(xlCellTypeAllFormatConditions)
        If Hucre.Offset(0, 1) = 0 Or Hucre.Offset(0, 1) = 0 Then
            i = i + 1
            ShK.Cells(i, "B") = Hucre.Value
            ShK.Cells(i, "C") = Hucre.Offset(0, 1)
        End If
    Next Hucre
 
 
    Set ShU = Nothing
    Set ShK = Nothing
End Sub

 

[sdegirmenci]

Sayın Necdet YEŞERTENER Hocam ;
İlginize çok teşekkür ederim, İstediğim oldu, hemen programıma uygulayacağım.Tekrar teşekkür ediyorum.İşleriniz kolay gelsin.

 

[Necdet]

Sayın Necdet YEŞERTENER Hocam ;
İlginize çok teşekkür ederim, İstediğim oldu, hemen programıma uygulayacağım.Tekrar teşekkür ediyorum.İşleriniz kolay gelsin.

Teşekkürler, size de kolay gelsin.