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

Uq3glu Fotoğrafı, resimleri, fotoğrafları

hizliresim.com

ax1dX5.jpg

ax1dX5 Fotoğrafı, resimleri, fotoğrafları

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