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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.