Makro ile bir sayfayı birden fazla sayfaya kontrol edere

Katılım
11 Ekim 2004
Mesajlar
1
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
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Kod:
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
 
Üst