Re: ]] XL-mania [[ kopi sampai akhir

[De Premor]

Dh Mas SSM,

Gimana kalau menggunakan makro berikut :

/Sub CopyAbis()//
//    Dim lastactive  As String//
//    lastactive = ActiveCell.Address//
/

   /    Range("AN2:AR2").Copy/
   /    Range("M2").Select/
   /    Selection.End(xlDown).Select/
   /    Range("AN2:AN" & Selection.Row).PasteSpecial xlPasteAll/
   /    Application.CutCopyMode = False/

/    Range(lastactive).Select//
//End Sub/

Thanks,

Rgds
De Premor

Pada 17/04/2013 12:06, Suwaspodo Seni mihardjo menulis:

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.