Coba ganti yang hapus data menjadi seperti ini :
Sub HAPUS_DATA()
'
' HAPUS_DATA Macro
' HAPUS DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.Activate
Sheet3.Range("A9:A2000").Clear
Sheet3.Range("P10:AR2000").Clear
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Untuk copy :
Sub COPY_DATA()
'
' COPY_DATA Macro
' COPY DATA DISTRIBUSI
'
'
On Error Resume Next
ThisWorkbook.Activate
Sheet3.Range("A7").Copy Sheet3.Range("A8:A2000")
Sheet3.Range("P9:AR9").Copy Sheet3.Range("P10:AR2000")
Err.Clear
On Error GoTo 0
MsgBox "Done"
End Sub
Wassalam,
Kid.
2013/2/21 Yan Novianto <[email protected]>
> **
>
>
> Salam Mr.Kid dan all
>
> berikut saya kirimkan ulang, kali ini saya coba untuk buat file yang baru,
>
> akan tetapi hasilnya tetap sama,
>
> saat paste nya tidak samapai ke baris 2000 kemungkinan masih aman, tapi
> jika sampai itu terjadi error seperti dulu
>
> dan saat saya debug, maka beberapa saat program excel minta di close
> seperti file terlampir
>
> mohon di bantu
>
> terimakasih
> ------------------------------
> *Dari:* Mr. Kid <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Selasa, 12 Februari 2013 21:23
>
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Jika dengan script yang ada dalam file lampiran tempo lalu tanpa ada
> tambahan apapun, maka kemungkinan besar tidak error.
> Jika ada error, mesti ada script yang lain bunyinya.
> Coba run lagi dan ketika error tekan debug. Nanti akan muncul baris yang
> di kuning. Screenshot berjejeran dengan worksheetnya dan lampirkan.
> Mungkin hal ini akan lebih memudahkan dalam mencari penyebabnya.
>
> Wassalam,
> Kid.
>
> 2013/2/12 Yan Novianto <[email protected]>
>
> **
>
> Miss Jan,
>
> keliatannya tetap saja tidak bisa jalan walaupun sudah saya coba pakai
> nama sheet seperti yang di sarankan
>
> kira kira ada saran yang lain ?
>
> saya tunggu,
>
> terimakasih
>
>
> ------------------------------
> *Dari:* Jan Raisin <[email protected]>
> *Kepada:* [email protected]
> *Dikirim:* Selasa, 12 Februari 2013 11:44
> *Judul:* Re: [belajar-excel] Mengapa Run-Time error, saat mau
> clearContents
>
>
> Semua berjalan normal di komputer Jan,
>
> tetapi coba cara berikut, mungkin berguna:
>
> sebelum range("range_sekian_sampai_dengan_range_sekian").select
> tambahkan
> sheets("nama_sheetnya")
>
> jadi hasil akhirnya adalah:
>
> sheets("nama_sheetnya").range("range_sekian_sampai_dengan_range_sekian
> ").select
>
> wassalam,
>
> -Miss Jan Raisin-
>
> Pada 12 Februari 2013 09.33, Yan Novianto <[email protected]>menulis:
>
> **
>
> Salam be-exeller,
>
> Saya mau belajar soal macro
> tapi saat ini saya belajarnya di mulai dari record macro
> kemudian saya edit edit dikit dikit :)
> tapi sayangnya saat macro yang saya edit tadi saya jalankan muncul
> peringatan seperti di gambar
> akan tetapi saat saya jalan kan pada lembar kosong "Hapus_semua" atau pun
> macro paste tersebut berjalan tidak ada masalah atau peringatan seperti
> pada lampiran
> Kira kira mengapa bisa terjadi kendala seperti ini ya ?
> mohon di bantu
>
> terimakasih
>
>
>
>
>
>
>
>
>
