coba formula berikut ditulis di cell D3
=INDIRECT("'"&$D$2&"'!"&CHAR(COLUMN()+64)&ROW())
lalu dicopy paste special sebagai formula ke area yang berwara kuning
-Miss Jan Raisin-
Pada 16 Februari 2013 07.14, MIKE <[email protected]> menulis:
> **
>
>
> **
> 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 <[email protected]>
> *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.
>
>
>
