Buat Macro dengan nama KopiPait() seperti di bawah ini:

Sub KopiPait()
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.FillDown
End Sub

Arahkan ke cell "AN2"

Lalu jalankan makro di atas.

Semoga sesuai dengan yang dimaksud...


Iseng


________________________________
 From: Suwaspodo Seni mihardjo <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Wednesday, April 17, 2013 12:06 PM
Subject: ]] XL-mania [[ kopi sampai akhir
 


  
Rekan xl-mania
Saya punya soal pengkopian kebawah sampai habis baris yang dulu sangat mudah 
waktu saya kerjakan dengan makrolotus. Saya mencoba merekam pengkopian dengan 
makroexcel, tetapi hasilnya hanya untuk file itu saja, pada waktu jumlah baris 
berubah pekerjaannya menjadi tak sempurna lagi. Mohon pembelajaran dari rekan 
yang sudah lebih dahulu mengetahui.
Terima kasih.
 

Kirim email ke