renkli hücre bul, kes, diğer sayfaya yapıştır...

[uzmyrd]

Merhabalar,

Forumda aradım fakat bulamadım.

Bir çalışma sayfasındaki renklendirilmiş(renk kodu=36) hücreleri (mesala yanyana 5 hücre renkli, 3 satır aşağıda aynı şekilde yanyana 5 hücre renkli gibi..) bu çalışma sayfasından kesip diğer çalışma sayfasına baştan başlayarak satırlar arasında boşluk bırakmadan aynı şekilde yapıştırmak istiyorum.

Teşekkür ederim.

 

[Levent Menteşoğlu]

Bir örnek dosya eklermisiniz.

 

[osmantelci]

Renkli hücrelerin A sütununda olduğu varsayımıyla
Sub RenkliKes()
For Each i In Sayfa1.Range("A1:A" & Sayfa1.Range("A65536").Row)
If i.Interior.ColorIndex = 36 Then
i.Cut Sayfa2.Range("A65536").End(xlUp).Offset(1, 0)
End If
Next i
End Sub

 

[uzmyrd]

ekte örnek dosyayı bulabilirsiniz.
Teşekkür ederim.