Makro ile bir sayfayı birden fazla sayfaya kontrol edere

[kenan]

Bir sayfaya girilen satırları , ilgili satırdaki bir hücre bilgisini kontrol ederek başka bir sayfaya taşımak,
böylece bir döngü kurarak
bir sayfadaki bütün satırları
yukarıdaki kontrole sokarak belirlenmiş
değişik sayfalara yazdırmak için nasıl bir kodlama gerekir?

Örnek : A1 de 'X' varsa A1:F1 satırı sayfa2' ye ;
'Y' varsa sayfa3'ye
'Z' varsa sayfa4'e taşınacak ve
bir döngü kurularak dolu olan satırlar
1'den n'e kadar kontrol edilecek.
Teşekkürler
Kenan

[ALPEN]

Application.ScreenUpdating = False
For i = 1 To Range("A65536").End(xlUp).Row
Rows(i).Copy
If Cells(i, 1).Value = "X" Then Sheets("Sayfa2").Rows(Sheets("Sayfa2").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
If Cells(i, 1).Value = "Y" Then Sheets("Sayfa3").Rows(Sheets("Sayfa3").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
If Cells(i, 1).Value = "Z" Then Sheets("Sayfa4").Rows(Sheets("Sayfa4").Range("A65536").End(xlUp).Row + 1).PasteSpecial Paste:=xlValues
Next