RENKLİ Hücreye Göre Satırları aktarma

[boztepelibey]

Ekte yardımınıza sunduğum dosyada N3 hücresinde başlayan hücrelerde kırmızı olan satırları sayfa2 ye aktarma için yardımınızı istirham ediyorum.

 

[leumruk]

Merhaba,

Sub Aktar()
For x = 3 To [n65536].End(3).Row
  If Cells(x, "n").Interior.ColorIndex = 3 Then
    Sat = [Sayfa2!a65536].End(3).Row + 1
      For y = 1 To 15
        Sheets("Sayfa2").Cells(Sat, y) = Cells(x, y)
        Sheets("Sayfa2").Cells(Sat, "n") = Format(Sheets("Sayfa2").Cells(Sat, "n"), "dd.mm.yyyy")
      Next
  End If
Next
End Sub

 

[boztepelibey]

Üstadım
Aktarma işi tamam yalnız sayfa 2 ye aktarırken 14. satırdan başlıyor.
2.satırdan başlatabilir miyiz?

 

[leumruk]

Kodu tekrar denedim. Bende bir sorun görünmüyor.
Ekli dosyayı deneyiniz.

 

[boztepelibey]

ÜSTAD sizin dosyada sorunsuz çalışıyor.

Hakkını helal et. Emeğine Sağlık

 

[mekist]

Kodu tekrar denedim. Bende bir sorun görünmüyor.
Ekli dosyayı deneyiniz.

Sayın leumruk Hocam,
Sİzden bi yardım isteyecem
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 açılacak yeni bir sayfaya aktarabilir miyiz,
Sadece renkli olan hücreler,
Şimdiden teşekkür ederim,