mas den bagus se jogja,
coba tambahkan script berikut ini di bawah deklarasi yang paling akhir,
tetapi di atas script yang berbunyi Application.ScreenUpdating = False
' =====================================================================
'
' modified by Miss Jan Raisin
'
' untuk millis Belajar Excel
'
' 13 November 2012
'
' penambahan script untuk menghapus data lama sebelum menulis data baru
'
' =====================================================================
'
' [AwalDariScriptTambahan]
' deklarasikan variabel untuk menyimpan objek berupa worksheet
Dim ws As Worksheet
' yang akan kita lakukan adalah menguji untuk setiap worksheet
' jika nama worksheet tidak sama dengan Input maka
' hapus data mulai dari cell B11 ke arah kanan dan ke bawah
' pertama-tama lakukan Loop terhadap semua worksheet
For Each ws In Worksheets
' lakukan pengujian nama worksheet menggunakan perintah .Name
If ws.Name <> "Input" Then
' hapus data dalam worksheet tersebut mulai dari cell B11
' untuk menunjuk gunakan perintah ws.Range("b11")
' sampai dengan baris paling bawah & paling kanan yang berisi
data
' untuk menunjuk gunakan perintah
ws.Range("b11").End(xlDown).End(xlToRight)
' perintah untuk menghapusnya adalah .ClearContents
Range(ws.Range("b11"),
ws.Range("b11").End(xlDown).End(xlToRight)).ClearContents
' ini adalah penutup dari pengujian nama worksheet
End If
' ini adalah blok penutup dari loop
Next ws
' [/AkhirDariScriptTambahan]
semoga yang ini sudah sesuai dengan yang diharapkan, kalo masih ada yang
kurang sesuai coba mas den bagus kutak-katik dulu, nanti kesulitannya
silakan dishare lagi ke millis
Best Regard,
Jan Raisin
Pada 13 November 2012 05:00, dhen.baguse <[email protected]> menulis:
> **
>
>
> wah walupun jan bukanlan programer tapi hasilnya sesuai yang diharapkan,
> ruar binasa dan top markotop seperti di bimbingan les private aje...:)
> mas atau mb jan mau tanya lagi, itu semisal tombol diklik yang ke 2
> kalinya kan munculnya data yang sama dan menambahkan dibawahnya, agar tidak
> membuat tambahan data dibawahnya tapi penghapus yang lama dan menggantik
> data dari perintah yang baru itu tambahan codingnya gmna jan?
>
> terimakasih jan;)
>
> ________________________________
> From: Jan Raisin <[email protected]>
> To: [email protected]
> Sent: Monday, November 12, 2012 1:26 PM
> Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
>
>
>
