Koşullu Biçimlendirme İle renklenmiş hücreleri aktarma

[mekist]

Merhaba,

Ekteki dosyadaki veriler koşullu biçimlendirme ile renkleniyor,
İki tablodaki veriler karşılık birbirlerinde yok ise bir taraf kırmızı diğer taraf sarı olarak renkleniyor.

Koşullu olarak renklenen hücreleri rapor sayfasına aktarabilir miyiz,
Sadece renkli olan hücreler aktarılacak

Şimdiden teşekkür ederim,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub AKTAR()
    Dim S1 As Worksheet
    Dim S2 As Worksheet
    Dim X As Long, Satır As Long
    
    Set S1 = Sheets("MUTABAKAT")
    Set S2 = Sheets("RAPOR")
    
    Application.ScreenUpdating = False
    
    S2.Range("A3:C65536,E3:G65536").ClearContents
    
    For X = 3 To S1.Range("A65536").End(3).Row
        If WorksheetFunction.CountIf(S1.Range("F:F"), S1.Cells(X, 2)) = 0 Then
            Satır = S2.Range("A65536").End(3).Row + 1
            S2.Range("A" & Satır & ":C" & Satır).Value = S1.Range("A" & X & ":C" & X).Value
        End If
        If WorksheetFunction.CountIf(S1.Range("B:B"), S1.Cells(X, 6)) = 0 Then
            Satır = S2.Range("E65536 ").End(3).Row + 1
            S2.Range("E" & Satır & ":G" & Satır).Value = S1.Range("E" & X & ":G" & X).Value
        End If
    Next
    
    S2.Select
    Cells.EntireColumn.AutoFit
 
    Set S1 = Nothing
    Set S2 = Nothing
 
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mekist]

Korhan Hocam,
Çok teşekkür ederim,
Elinize sağlık Allah razı olsun,

 

[zsafkan]

Korhan bey,

İlgili soruyu kod yazmadan komutlarla yapabilirmiyiz?