SIAP laksanakan, akan mencoba dan belajar mengotak atik ilmu dari master-master
milis terimakasih atas ilmunya....
wassalam;)
________________________________
From: Jan Raisin <miss.jan.rai...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, November 13, 2012 8:07 PM
Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
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 <bagusejo...@yahoo.com> 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 <miss.jan.rai...@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Monday, November 12, 2012 1:26 PM
>Subject: Re: [belajar-excel] Pembagian ke masing masing sheet
>
>
>
