En son kayıtlı satır aralığını copy işleminde belirlemek

[elvis]

Sheets("gelen").Range("A1:I...").CopyPicture Appearance:=xlPrinter, Format:=xlPicture

Arkadaşlar yukarıda yazdığım kodda I sütununun satır sayısı veriye göre değişiyor. Bu kodu I sütununda ki en son kayıt hangi satırda ise kodun geri kalan kısmını ona göre düzenleyebilir misiniz? Teşekkürler.

 

[Necdet]

Merhaba,

Sheets("gelen").Range("A1:I" & [A65536].end(3).row).copy ......

olarak dener misiniz.

 

[elvis]

Harikasınız Hocam! Çok teşekkür ediyorum. Güzel oldu.