pak Kid, sebenarnya didata aslinya ada ratusan sheet/nama...jadi aku ingin yg simple....buka sheet cetak...ketik nama langsung keluar deh data yg di panggil...hehehe
mungkin bisa ada tambahan sheet bantu lainnya dgn tampilan/format yg sama supaya saat aku panggil namanya langsung muncul beserta data2 mereka... mohon solusinya pak kid... thx Mike ----- Original Message ----- From: Mr. Kid To: [email protected] Sent: Saturday, February 16, 2013 12:03 AM Subject: Re: [belajar-excel] panggil data Hai Mike, Tampaknya sheet sheet Panggil untuk memilih sheet yang akan dicetak. Tampilan dan susunan adalah sama dengan sheet setiap nama. Bagaimana jika manual saja. Misal akan mencetak seluruh sheet, maka - klik sheet nama pertama, - tekan shift terus menerus, - klik sheet nama terakhir - lepas tombol SHIFT - atur page setup bila perlu (akan diterapkan langsung ke seluruh sheet ter-select) - lakukan print jika akan print seluruhnya (atau print preview dulu untuk lihat wujud hasil select multi sheetnya). Jika akan sheet-sheet tertentu, - klik sheet pertama yang akan di-print - tekan CTRL terus menerus - klik sheet-sheet lain yang juga akan di-print dengan tetap menekan CTRL - setelah seluruh yang dibutuhkan ter-select, lepas tombol CTRL - atur page setup bila perlu - lakukan print jika akan print seluruhnya (atau print preview dulu untuk lihat wujud hasil select multi sheetnya). Jika akan diotomasi dengan VBA, dibutuhkan daftar nama sheet disuatu area range tertentu, misal di sheet bernama Daftar mulai A1 dan bersambung terus sampai cell kolom A yang terisi Langkah buat prosedur otomasi : 1. ke VBE (tekan ALT F11) 2. menu Insert -> Module 3. copas script ke lembar module Public Sub PrintSheet() dim rng as range for each rng in sheets("Daftar").range("a1").currentregion.resize(,1) if not sheets(rng.value) is nothing then sheets(rng.value).printpreview 'ganti printpreview dengan printout jika sudah cocok dengan proses prosedur ini endif next rng End Sub 4. kembali ke worksheet (tekan ALT F11) 5. insert shape ke worksheet 6. klik kanan shape -> pilih Assign Macro -> pilih PrintSheet -> OK 7. save as workbook dengan ALT F A 8. pada save as type pilih .xlsm lalu tekan tombol save 9. klik sebuah cell 10. pencet shape untuk mencoba Wassalam, Kid. 2013/2/15 MIKE <[email protected]> hai master-master excel yg baik... mohon di bantu untuk data absensiku....(lihat lampiran) aku cuma butuh memanggil nama-nama tapi bisa muncul semua data yg ada di kolom warna kuning (data2 dari sheet2 yg ada) tq Mike PT. BANK ARTHA GRAHA INTERNASIONAL TBK. DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the system manager. This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited.
