Renkli kutucuğu başka bir sheet'e atmak

[khandor21]

İyi geceler,

Exceldeki sarı olan satırları sheet2'ye nasıl atabiliriz.Bunula ilgili bir fonksiyon varmıdır acaba. Yardımlarınız için teşekkür ederim.

 

[rekkezum]

aslında otomaıtık atabılıyor olması nekadar guzel olurdu banada boyle bır formul lazım ....

 

[hamitcan]

Sub nn()
Sayfa2.Columns(1).Clear
    For i = 1 To [a65536].End(3).Row
        If Cells(i, 1).Interior.Color = vbYellow Then
            c = c + 1
            Sayfa2.Cells(c, 1) = Cells(i, 1)
            Sayfa2.Cells(c, 2) = Cells(i, 2)
        End If
    Next
End Sub