Thank u info dan masukkannya yang sangat bermanfaat





On Friday, August 1, 2014 12:54 AM, "'Mr. Kid' [email protected] 
[belajar-excel]" <[email protected]> wrote:





 
Hai Hartono,


Untuk kasus ini, mungkin yang diharapkan adalah pada baris script berbunyi :
     Set Ws = Worksheets("jprjam44")
bagian yang di-bold menjadi dinamis.


Nilai yang di-bold didapat dari sheet bernama panggilan Menu pada alamat range 
E5, yang bunyi kode-nya adalah :
     Sheets("Menu").range("e5").value


Ketika baris script di atas sana diganti bagian yang di-bold-nya dengan bunyi 
yang baru (bawahnya), akan menjadi :
     Set Ws = Worksheets(Sheets("Menu").range("e5").value )




Sepertinya sampai disini masalah telah selesai.




Akan tetapi,


Proses inputan data yang sama strukturnya (kolom-kolomnya sama, dsb) akan lebih 
berkaidah tabel database jika disimpan sebisa mungkin dalam satu sheet saja. 
Untuk kasus ini, nama sheet yang berupa jprjam44 dsb hanyalah kode kota yang 
disimpan ke sebuah kolom bernama KDKota pada sebuah sheet misalnya bernama 
data_kota.




Keuntungan menyimpan dalam satu sheet adalah kemudahan untuk dimanfaatkan dalam 
komputasi dibagian lain atau di data lain yang membutuhkan data kota, sedangkan 
data lain tersebut berasal dari banyak kota.




Output untuk menampilkan daftar per kota per sheet sebagai laporan rutin atau 
laporan yang sering diminta, dapat dilakukan dengan bantuan Pivot Table, 
formula, maupun VBA.




Jadi, pada kasus ini, sebenarnya akan lebih baik jika hasil inputan disimpan ke 
sebuah sheet bernama data_kota (misalnya) yang salah satu kolomnya adalah kolom 
bernama KD Kota.




Wassalam,


Kid.








































2014-07-31 12:28 GMT+10:00 Hartono Sondakh [email protected] 
[belajar-excel] <[email protected]>:



> 
>Dear para Pakar Excell,
>Tolong bantuannya dong untuk kode macronya agar :
Pada saat saya memasukkan data secara otomatis
> ke sheet yang saya tuju (sheet sama dengan data KD Kota), nantinya sheet 
>tidak hanya 2 tetapi ada sekitar 20an.
>
>
>Thank u sebelumnya


Kirim email ke