süzme sonucunu bir sayfada yazdirmak

[dennisf06]

merhaba,

A ile K sütunlari arasi 10.000 satirdan fazla süzme islemi yapiyorum. Süzme sonucu örnegin 10 satirlik bir sonuc. Bu kismi makro ile nasil yazdirabilirim. tesekkürler.

 

[Necdet]

Merhaba,

En basit hali ile aşağıdaki gibi aktarabilirsiniz.

Verilerin 1. satırdan başladığı varsayılmıştır. Aktarılacak sayfada silme işlemi, süzme var mı yok mu vs gibi ayrıntılar düşünülmedi, siz ekleyiniz.

Sub Aktar()

    Dim s2  As Worksheet
    
    Set s2 = Sheets("Sayfa2")
    
    Range("A1").CurrentRegion.Copy s2.Range("A1")
    
End Sub

 

[dennisf06]

merhaba Necdet hocam,

ayni sayfa icerisinde süzme yapiyorum. A sütundan K sütununa kadar her satirda bilgiler var.süzme islemi sonucunda örnegin 2.satir, 155.satir ve 1455.satir bilgileri cikiyor. yazdir makrosunu sabit bir satir ve sütun arasinda rahatlikla kullanabilirken burada kullanamiyorum. kullandigim makro asagidaki gibi. tesekkür ederim.

Sub YAZDIR()
Sheets("Sayfa1").Range("BD1:BJ5000").PrintOut
End Sub

 

[Necdet]

Merhaba,
verdiğim kod süzülen veriye sayfa2 ye aktarıyor.
sayfa2 yi yazdırabilirsiniz.

 

[Korhan Ayhan]

Aralık verip yazdırmak için adresi değiştirmeniz gerekecektir. Filtre yaptıktan sonra aşağıdaki kodu deneyin.

Sub YAZDIR()
    Son = Sheets("Sayfa1").Range("A" & Rows.Count).End(3).Row
    Sheets("Sayfa1").Range("A1:K" & Son).PrintOut
End Sub

 

[dennisf06]

Necdet hocam , Korhan hocam her ikinizede cok tesekkür ederim.