sayfa1'de yazılanı Sayfa2'ye yazdırmak?

[udentr2002]

Merhaba arkadaşlar
Ben süzme işlemi yaptıktan sonra Sayfa1'in 12. satırından başlayıp oraya bilgiyi kopyalıyorum bu kopyalama işleminden sonra aynı bilgiyi Sayfa2'nin 12 satırından başlayıp alt alta kaydedebilecek kodu nasıl yazabilirim??

Not her szüme işlemimini yaptığımda sayfa1 e kayıt olanı yazdıktan sayfa2 deki 12. satırdan sonra yazılı olan hücrenin bir altına kopyalayacak

Şimdiden ilgilenen arkadaşlarıma teşekkür ederim

 

[bedersu]

Merhaba,
Sorunuzda eksik kısımlar var.Mesela kaç tane veri süzülüyor.Her defasında süzülen veri sayısı eşit mi?Sayfa2 ' de hangi sütuna yapıştırılacak bu veriler?Yine de size countA 'yı öneririm.A sütunu olduğunu farzederek:

satır = WorksheetFunction.CountA(Sheets("Sayfa2").Range("A:A"))
Sheets("Sayfa2").Cells(satır + 1, 1).Paste

gibi bir kod kullanabilirsiniz.Paste yapmasanız da for ...next döngüsü ile süzülen veri adetince kullanacağınız bir döngüyle de halledebilirsiniz.

 

[udentr2002]

bedersu hocam

Kodunu uyguladım dosyama ilgin için çok teşekkür ederim

 

[ileriexcel]

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.Select
say = WorksheetFunction.CountA(s2.[a1:a65536]) + 12
s1.[a12].Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Selection.Copy
s2.Range("a" & say).PasteSpecial
End Sub