Renkli işaretlenen satırların 2. sayfaya kopyalanması hk.

[gogogokhan]

Merhaba arkadaşlar,

Excel tablomda 1. sayfada sarı renkle işaretlediğim satırların 2. sayfaya otomatik getirmesini nasıl sağlayabilirim, yardımcı olabilir misiniz? Teşekkürler

Uq3glu.jpg - Hızlı Resim

Bu görsel, Hızlı Resim'e 05 Nisan 2021 tarihinde yüklendi, 849×726 piksel çözünürlüğünde, JPG formatındadır. — ID: Uq3glu

hizliresim.com

ax1dX5.jpg - Hızlı Resim

Bu görsel, Hızlı Resim'e 05 Nisan 2021 tarihinde yüklendi, 681×725 piksel çözünürlüğünde, JPG formatındadır. — ID: ax1dX5

hizliresim.com

 

[YUSUF44]

Sorularınızda örnek dosya paylaşmanız hepimizin işini kolaylaştırır.

Aşağıdaki makro sarı renkli satırları diğer sayfaya taşır:

Sub aktar()
son = Sheets("Sayfa1").Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Sheets("Sayfa1").Cells(i, "A").Interior.Color = vbYellow Then
        yeni = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
        Sheets("Sayfa1").Rows(i).Copy Sheets("Sayfa2").Cells(yeni, "A")
    End If
Next
End Sub