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
>
>
>
