Pak Suwaspodo,
Coba copas script berikut ke sebuah module.
Public Sub KopiTuntas()
With Sheet1.Range("an2:ar2")
If .CurrentRegion.Rows.Count > 1 Then
.Copy .Resize(.CurrentRegion.Rows.Count - 1)
End If
End With
End Sub
kemudian save as workbook dengan save as type dipilih .xlsm atau .xlsb
lalu jalankan prosedur KopiTuntas.
Wassalam,
Kid.
2013/4/17 Suwaspodo Seni mihardjo <[email protected]>
> **
>
>
> 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.
>
>
>
