Dolgu rengine göre başka sayfaya kopyalamak

[unur]

Günaydın Arkadaşlar;

Ben bir sayfada bulunan bilgilerimi başka bir proğramdaki bilgilerle teyit etmek için kullanıyorum.
Teyit etmek içinde dolgu rengi kullanıyorum.Bilgilerimin bulunduğu bu sayfadaki billgilerin dolgu rengini örn: sarı yaptığımdan bu bilgi sayfa1 de silinip sayfa2 ye gitmesini istiyorum.

Umarım anlatabilmişimdir.Şimdiden teşekkürler.

 

[gkseren]

Sn. unur

Aşağıdaki kodlar, herhangi bir hücreye sarı rengi ile dolgu yaptığınızda, aktif hale geçen hücrenin kesip Sayfa2'ye kopyalanmasını sağlar, tabii Sayfa2'de nereye yapıştırılmasını istiyorsanız kodları düzenlemek gerekir.


ActiveCell.Select
If Selection.Interior.ColorIndex = 6 Then
Selection.Cut
Sheets("Sayfa2").Select
ActiveSheet.Paste
End If

 

[unur]

Teşekkürler gkseren örn: sayfa2 nin a3 hücresinden itirabren sırayla kopyamasını istiyorum.
Kodlardan hiç anlamadığım için epey proplem yaşayacağım

 

[gkseren]

Sn. Unur

Bahsettiğiniz problem site içinde başka konularda da anlatıldığı için, içinde hem fonksiyon, hem de makro bulunan, biraz basite indirgenmiş bir örnek dosya hazırladım, her hücrede bulunan formülleri ve kodları incelerseniz biraz konu hakkında bilgi edinebilirsiniz sanıyorum, dosya :

 

[unur]

Tşk ler gkseren elinize sağlık