renkli sütünları macro ile kopyalamak

[hurkanpisirici]

pembe olan sütünları 2,sayfaya kopyalayabileceğim bir makro istiyorum acil yardım rica ediyorum

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Sub kopyala()
c = 1
For x = 2 To [a65536].End(3).Row
If Cells(x, 1).Interior.ColorIndex <> xlNone Then
c = c + 1
Sayfa2.Rows(c) = Sayfa1.Rows(x).Value
End If
Next
End Sub

 

[hurkanpisirici]

kodları yerleştirdim ama nereye kopyalıyor

ilginiz için teşekkürler