W O W
Makasih banyak datanya sudah jalan...
thx...thx...thx....
----- Original Message -----
From: Jan Raisin
To: [email protected]
Sent: Saturday, February 16, 2013 3:24 PM
Subject: Re: [belajar-excel] panggil data
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
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.
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.
