Kodda değişiklik

[byfika]

Merhabalar,

Userform listbox da süzme yapıp rapor sayfasına kaydedip print önizleme ve arkasından print yapmaktayım.

Fakat rapor sayfasına kaydedildiğinde rapor sayfasındaki başlıkları silmekte .

s1.Range(s1.Cells(1, 1), s1.Cells(sat, sut)) = ListBox1.List satırını

s1.Range(s1.Cells(2, 1), s1.Cells(sat, sut)) = ListBox1.List şeklinde değiştirdiğimde başlıklar kalıyor .

Fakat süzülen verinin son satırını rapor sayfasına kaydetmiyor.

Hem başlıklar kalsın hemde süzülen verinin tamamını rapor sayfasına kaydedip print yapabilmek için kod da nasıl değişiklik yapılabilinir?

Bilgi için şimdiden teşekkürler..

 

[Saban Sertkaya]

Cells(sat+1,sut) olarak deneyin.

 

[Korhan Ayhan]

Alternatif,

s1.Range("A2").Resize(sat, sut) = ListBox1.List

 

[byfika]

Merhabalar,
Korhan Bey, Şaban Bey öncelikle cevaplarınız için çok teşekkürler.
Kodları denedim. Korhan bey verdiğiniz kod hatasız çalışmakta.
Şaban bey sizin kodu denediğimde ise ekteki resimdeki gibi bir kayıt çıkmakta. hatalı işlem yapmakta.
Tekrar kodlar için teşekkürler, saygılarımla