15 Messages
Digest #2829
3b
Re: Cara Print Data Paling Bawah Agar muncul di setiap Page. [1 Atta by "Heri Pamungkas ( Gmail )" dchoosen88
10b
Re: Nama Yang tidak disebut tidak dapat Gaji [1 Attachment] by "Heri Pamungkas ( Gmail )" dchoosen88
Messages
Thu Mar 13, 2014 7:20 pm (PDT) . Posted by:
"Fendik Anton Wijaya"
Waaahh...Terima kasih banyak Miss Jan Raisin...Nti saya coba dlu...
Saya bingung jg...nti saya praktekin...puyeng...hehehe...
Sangat membantu...
Terima kasih banyak atas supportnya...
From: Jan Raisin
Sent: Friday, March 14, 2014 9:58 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] WARNING JATUH TEMPO
Hai Fendik,
coba lihat formula di cel H13, bunyinya adalah:
=Date(Year(G13) , Month(G13) + F13 , Day(G13))
yang warna biru menunjukkan tahun dari Next Due
yang warna merah menunjukkan bulan dari Next Due
yang warna hijau menunjukkan tanggal dari Next Due
G13 adalah cel yang berisi tanggal GLV
F13 adalah cel yang berisi pembayaran Installment ke sekian
jika misalnya bahwa pada saat pembelian kendaraan pihak Dealer memberlakukan bahwa angsuran sebanyak n bulan harus dibayar pada saat DP, maka nilai n ini akan mengurangi nilai formula di atas yang dimerahin.
Nah ternyata yang harus diubah dari formula di atas adalah yang dimerahin.. jadi kira2 formula akhirnya gimana hayo? ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2014 07.25, Fendik Anton Wijaya <fendik.anton@tafinance.com> menulis:
Mohon dibantu...
Bagaimana caranya saat saya isi kolom F13 INST KE- maka kolom NEXT DUE menjadi NEXT DUE DATE berikutnya...
misal saat saya isi kolom F13 INST KE- menjadi 11 maka NEXT DUE-nya dari 7/04/2014 menjadi 7/05/2014...
sedangkan F14 saat saya isi 12 maka NEXT DUE DATE-nya menjadi 8/05/2014
Jadi gimana yha fungsinya?...
File terlampir...
Trima kasih para master...diharapkan bantuannya...
--- Mods ---
mbok yao usulan solusi dari miss Jan ditanggapi dulu, baru dilanjutkan dengan permasalahan yang timbul berikutnya dari kasus yang sama.
Setidaknya hal ini bisa menyenangkan hati pemberi urun solusi... Kebaikan yang sering dipandang kecil dan diabaikan, tetapi yang sebenarnya suatu urusan yang besar karena menjadi bagian dari akhlak seseorang.
Yuk BeExceller, kita tumbuhkan akhlak yang mulia dan tidak hanya fokus pada masalah Excel.
Niat yang baik dan cara yang baik dan santun Insya Allah akan memberi hasil yang optimum.
--------------
From: Jan Raisin
Sent: Thursday, March 13, 2014 10:29 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] WARNING JATUH TEMPO [1 Attachment]
Hai fendik,
mungkin seperti file terlampir..
Wassalam,
-Miss Jan Raisin-
-------------------
The information transmitted is intended only for the person or the entity to which it is addressed and may contain confidential and/or privileged material. If you have received it by mistake please notify the sender by return e-mail and delete this message including any of its attachments from your system. Any use, review, reliance or dissemination of this message/information in whole or in part is strictly prohibited. Please note that e-mails are susceptible to change. The views expressed/presented in this email are solely those of the author and do not necessarily represent those of PT Toyota Astra Financial Services and should not be construed as the views, offers or acceptances of PT Toyota Astra Financial Services. The recipient should check this email/message and any attachments for the presence of viruses. PT Toyota Astra Financial Services accepts no liability for any damage caused by any viruses transmitted by this email/message.
Please consider the environment before printing this email.
Saya bingung jg...nti saya praktekin...puyeng...hehehe...
Sangat membantu...
Terima kasih banyak atas supportnya...
From: Jan Raisin
Sent: Friday, March 14, 2014 9:58 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] WARNING JATUH TEMPO
Hai Fendik,
coba lihat formula di cel H13, bunyinya adalah:
=Date(Year(G13) , Month(G13) + F13 , Day(G13))
yang warna biru menunjukkan tahun dari Next Due
yang warna merah menunjukkan bulan dari Next Due
yang warna hijau menunjukkan tanggal dari Next Due
G13 adalah cel yang berisi tanggal GLV
F13 adalah cel yang berisi pembayaran Installment ke sekian
jika misalnya bahwa pada saat pembelian kendaraan pihak Dealer memberlakukan bahwa angsuran sebanyak n bulan harus dibayar pada saat DP, maka nilai n ini akan mengurangi nilai formula di atas yang dimerahin.
Nah ternyata yang harus diubah dari formula di atas adalah yang dimerahin.. jadi kira2 formula akhirnya gimana hayo? ^_^
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2014 07.25, Fendik Anton Wijaya <fendik.anton@tafinance.com> menulis:
Mohon dibantu...
Bagaimana caranya saat saya isi kolom F13 INST KE- maka kolom NEXT DUE menjadi NEXT DUE DATE berikutnya...
misal saat saya isi kolom F13 INST KE- menjadi 11 maka NEXT DUE-nya dari 7/04/2014 menjadi 7/05/2014...
sedangkan F14 saat saya isi 12 maka NEXT DUE DATE-nya menjadi 8/05/2014
Jadi gimana yha fungsinya?...
File terlampir...
Trima kasih para master...diharapkan bantuannya...
--- Mods ---
mbok yao usulan solusi dari miss Jan ditanggapi dulu, baru dilanjutkan dengan permasalahan yang timbul berikutnya dari kasus yang sama.
Setidaknya hal ini bisa menyenangkan hati pemberi urun solusi... Kebaikan yang sering dipandang kecil dan diabaikan, tetapi yang sebenarnya suatu urusan yang besar karena menjadi bagian dari akhlak seseorang.
Yuk BeExceller, kita tumbuhkan akhlak yang mulia dan tidak hanya fokus pada masalah Excel.
Niat yang baik dan cara yang baik dan santun Insya Allah akan memberi hasil yang optimum.
--------------
From: Jan Raisin
Sent: Thursday, March 13, 2014 10:29 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] WARNING JATUH TEMPO [1 Attachment]
Hai fendik,
mungkin seperti file terlampir..
Wassalam,
-Miss Jan Raisin-
------------
The information transmitted is intended only for the person or the entity to which it is addressed and may contain confidential and/or privileged material. If you have received it by mistake please notify the sender by return e-mail and delete this message including any of its attachments from your system. Any use, review, reliance or dissemination of this message/information in whole or in part is strictly prohibited. Please note that e-mails are susceptible to change. The views expressed/presented in this email are solely those of the author and do not necessarily represent those of PT Toyota Astra Financial Services and should not be construed as the views, offers or acceptances of PT Toyota Astra Financial Services. The recipient should check this email/message and any attachments for the presence of viruses. PT Toyota Astra Financial Services accepts no liability for any damage caused by any viruses transmitted by this email/message.
Please consider the environment before printing this email.
Thu Mar 13, 2014 7:21 pm (PDT) . Posted by:
"KESI VIZZIANTI"
Thanks buat Mr.kid
Saran yg bagus dan sangat mendidik
Pada 13 Maret 2014 11.26, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
>
> Hai Kezi,
>
> Sebaiknya data yang ada di sheet '1' diubah menjadi tabel sederhana lebih
> dulu (VBA bisa bermanfaat dalam hal ini). Malah kalo bisa, datanya di-input
> pada 3 kolom saja, model partno dan nilai (kalau ada nilainya saja, kalau
> ndak ada gak usah di-input supaya recordnya ndak banyak).
>
> Jika data di-input seperti di sheet '1', ternyata sudah mengalami sendiri
> bahwa membuat output sesederhana seperti sheet '2' malah menjadi susah.
>
> File terlampir berisi membuat tabel sederhana dari sheet '1' dengan
> formula (hal ini membuat kerja Excel jadi seakan-akan gak efisien)
> Dari tabel sederhana yang didapat, maka bisa disusun output di sheet '2'
> dengan pivot table.
> Bahkan dataset seperti di sheet '1' pun juga bisa dibuat kembali dengan
> pivot table.
>
> File terlampir dalam format .7z. Silakan di-unduh dan di-extract.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2014-03-12 13:08 GMT+07:00 KESI VIZZIANTI <kesi.vizzianti@gmail.com>:
>
>
>>
>> Selamat siang Semua
>> Saya mempunyai data seperti di sheet 1,Dimana terdapat Model dan part
>> yang ada di dalam model yang di tandai angka 1.Berarti bahwa part tersebut
>> ada di dalam model di atasnya, jika Blank berarti tidak terdapat di
>> dalamnya.
>> Pertanyaan
>> Saya ingin membuat sebuah data seperti di sheet 2 dengan memperhatikan
>> kriteria tersebut
>> Adakah yang bisa membantu?
>> Terima Kasih
>> --
>> *Kesi Vizzianti*
>>
>>
>>
>
>
--
*Kesi Vizzianti*
Email kesi.vizzianti@gmail.com
Phone 0812-77176028
Blog http://kesivizzianti.blogspot.com/
Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>
Saran yg bagus dan sangat mendidik
Pada 13 Maret 2014 11.26, Mr. Kid <mr.nmkid@gmail.com> menulis:
>
>
> Hai Kezi,
>
> Sebaiknya data yang ada di sheet '1' diubah menjadi tabel sederhana lebih
> dulu (VBA bisa bermanfaat dalam hal ini). Malah kalo bisa, datanya di-input
> pada 3 kolom saja, model partno dan nilai (kalau ada nilainya saja, kalau
> ndak ada gak usah di-input supaya recordnya ndak banyak).
>
> Jika data di-input seperti di sheet '1', ternyata sudah mengalami sendiri
> bahwa membuat output sesederhana seperti sheet '2' malah menjadi susah.
>
> File terlampir berisi membuat tabel sederhana dari sheet '1' dengan
> formula (hal ini membuat kerja Excel jadi seakan-akan gak efisien)
> Dari tabel sederhana yang didapat, maka bisa disusun output di sheet '2'
> dengan pivot table.
> Bahkan dataset seperti di sheet '1' pun juga bisa dibuat kembali dengan
> pivot table.
>
> File terlampir dalam format .7z. Silakan di-unduh dan di-extract.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
> 2014-03-12 13:08 GMT+07:00 KESI VIZZIANTI <kesi.vizzianti@gmail.com>:
>
>
>>
>> Selamat siang Semua
>> Saya mempunyai data seperti di sheet 1,Dimana terdapat Model dan part
>> yang ada di dalam model yang di tandai angka 1.Berarti bahwa part tersebut
>> ada di dalam model di atasnya, jika Blank berarti tidak terdapat di
>> dalamnya.
>> Pertanyaan
>> Saya ingin membuat sebuah data seperti di sheet 2 dengan memperhatikan
>> kriteria tersebut
>> Adakah yang bisa membantu?
>> Terima Kasih
>> --
>> *Kesi Vizzianti*
>>
>>
>>
>
>
--
*Kesi Vizzianti*
Email kesi.vizzianti@gmail.com
Phone 0812-77176028
Blog http://kesivizzianti.blogspot.com/
Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>
Thu Mar 13, 2014 7:21 pm (PDT) . Posted by:
"Liem Suliem" liemsuliem
dh.
dear temen2
salam be exceler.
bagaimana cara print data paling bawah pada excel agar muncul di setiap page.
file terlampir
salam
liem
dear temen2
salam be exceler.
bagaimana cara print data paling bawah pada excel agar muncul di setiap page.
file terlampir
salam
liem
Thu Mar 13, 2014 7:25 pm (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
Hehehe,
Dulu saya pernah kejadan begini juga mungkin :
1. Dibuatkan Footer dalam bentuk Picture ( Printscreen atau Copy to
Picture )
2. Think out of the box, Tandatangan ga selamanya dibawah. Kolom
dipindahkan diatas di bawah judul.
Mungkin pengalaman ini bisa membantu.
Salam Excell-ent
On 14/03/2014 9:17, Liem Suliem wrote:
> dh.
>
> dear temen2
> salam be exceler.
>
> bagaimana cara print data paling bawah pada excel agar muncul di
> setiap page.
>
> file terlampir
>
> salam
>
> liem
>
>
>
>
Dulu saya pernah kejadan begini juga mungkin :
1. Dibuatkan Footer dalam bentuk Picture ( Printscreen atau Copy to
Picture )
2. Think out of the box, Tandatangan ga selamanya dibawah. Kolom
dipindahkan diatas di bawah judul.
Mungkin pengalaman ini bisa membantu.
Salam Excell-ent
On 14/03/2014 9:17, Liem Suliem wrote:
> dh.
>
> dear temen2
> salam be exceler.
>
> bagaimana cara print data paling bawah pada excel agar muncul di
> setiap page.
>
> file terlampir
>
> salam
>
> liem
>
>
>
>
Thu Mar 13, 2014 8:21 pm (PDT) . Posted by:
"Liem Suliem" liemsuliem
pak heri
makasih pak.. gak kepikir segitu pak.. hehehe
oke saya praktekan dan langsung sesuai dengan keinginan..
heheehe
salam
liem
Pada Jumat, 14 Maret 2014 9:25, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:
Hehehe,
Dulu saya pernah kejadan begini juga mungkin :
1. Dibuatkan Footer dalam bentuk Picture ( Printscreen atau Copy
to Picture )
2. Think out of the box, Tandatangan ga selamanya dibawah. Kolom
dipindahkan diatas di bawah judul.
Mungkin pengalaman ini bisa membantu.
Salam Excell-ent
On 14/03/2014 9:17, Liem Suliem wrote:
>dh.
>
>
>dear temen2
>
>salam be exceler.
>
>
>bagaimana cara print data paling bawah pada excel agar muncul di setiap page.
>
>
>file terlampir
>
>
>salam
>
>
>liem
>
>
>
>
>
>
>
makasih pak.. gak kepikir segitu pak.. hehehe
oke saya praktekan dan langsung sesuai dengan keinginan..
heheehe
salam
liem
Pada Jumat, 14 Maret 2014 9:25, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com> menulis:
Hehehe,
Dulu saya pernah kejadan begini juga mungkin :
1. Dibuatkan Footer dalam bentuk Picture ( Printscreen atau Copy
to Picture )
2. Think out of the box, Tandatangan ga selamanya dibawah. Kolom
dipindahkan diatas di bawah judul.
Mungkin pengalaman ini bisa membantu.
Salam Excell-ent
On 14/03/2014 9:17, Liem Suliem wrote:
>dh.
>
>
>dear temen2
>
>salam be exceler.
>
>
>bagaimana cara print data paling bawah pada excel agar muncul di setiap page.
>
>
>file terlampir
>
>
>salam
>
>
>liem
>
>
>
>
>
>
>
Thu Mar 13, 2014 8:09 pm (PDT) . Posted by:
"Nora Ismanti" noraismanti
Terima kasih, Solusinya sangat bermanfaat.
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 13 Maret 2014 18:40
Judul: Re: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Hai Nora,
Mencoba memanfaatkan fitur Excel Table mau gak ?
Kalau mau, ikuti langkah berikut : [ berdasar formula =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0))) ]
1. ke sheet PEMBELIAN2. Blok seluruh data $A$1:$H$10
3. klik ribbon Home -> lihat group Styles -> klik Format As Table -> klik salah satu styles yang ditawarkan -> centang My table has headers -> OK
4. klik cell A1 -> lihat menu TableTools (dekat nama file di layar sisi atas) -> klik TableTools -> klik ribbon Design -> lihat group Properties -> ada bagian Table Name : disana -> ganti isinya dengan bunyi TabelBeli
5. ke sheet kerja (lokasi si formula vlookup berada)
6. klik sebuah cell berformula vlookup yang bunyi formulanya =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
7. edit formulanya dengan mengganti bagian formula berbunyi PEMBELIAN!$A$2:$H$10 menjadi TabelBeli
8. tekan Enter untuk mengakhiri pengeditan formula
9. copy formula ke baris lain yang membutuhkan formula serupa
10. Save workbook
11. coba tambah data baru di baris kosong pertama di bawah tabel bernama TabelBeli yang ada di sheet PEMBELIAN.
Wassalam,
Kid.
2014-03-13 17:44 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:
>
>Kepada para master dan anggota milis yg saya hormati dan cintai.
>
>
>
>Mohon saya dibantu terkait dengan INVOICE sederhana yg saya miliki:
>
>
>Bisakah
rumus pada sheet NOTA cell D8 (sampai D27) dibuat dinamis mengikuti perubahan
pada sheet PEMBELIAN?
>
>Saat
ini rumus pada cell tersebut adalah:
>
>=IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
>
>Menurut rumus di atas, hanya sampai baris ke 10. Saya memang bisa mengubah
(secara manual) menjadi
>
>=IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$1000,2,0)))
>
>Sehingga rumus bisa membaca sampai baris ke 1000 pada sheet PEMBELIAN.
>
>Pertanyaan saya adalah: adakah cara lain yang mengotomatiskan proses pembacaantabel ini sehingga saya gak perlu
mengubah-ubah pada bagian $H$10...?
>
>
>====================
>
>
>Selengkapnya mohon dilihat pada lampiran
>
>
>
>
>
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 13 Maret 2014 18:40
Judul: Re: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Hai Nora,
Mencoba memanfaatkan fitur Excel Table mau gak ?
Kalau mau, ikuti langkah berikut : [ berdasar formula =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0))) ]
1. ke sheet PEMBELIAN2. Blok seluruh data $A$1:$H$10
3. klik ribbon Home -> lihat group Styles -> klik Format As Table -> klik salah satu styles yang ditawarkan -> centang My table has headers -> OK
4. klik cell A1 -> lihat menu TableTools (dekat nama file di layar sisi atas) -> klik TableTools -> klik ribbon Design -> lihat group Properties -> ada bagian Table Name : disana -> ganti isinya dengan bunyi TabelBeli
5. ke sheet kerja (lokasi si formula vlookup berada)
6. klik sebuah cell berformula vlookup yang bunyi formulanya =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
7. edit formulanya dengan mengganti bagian formula berbunyi PEMBELIAN!$A$2:$H$10 menjadi TabelBeli
8. tekan Enter untuk mengakhiri pengeditan formula
9. copy formula ke baris lain yang membutuhkan formula serupa
10. Save workbook
11. coba tambah data baru di baris kosong pertama di bawah tabel bernama TabelBeli yang ada di sheet PEMBELIAN.
Wassalam,
Kid.
2014-03-13 17:44 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:
>
>Kepada para master dan anggota milis yg saya hormati dan cintai.
>
>
>
>Mohon saya dibantu terkait dengan INVOICE sederhana yg saya miliki:
>
>
>Bisakah
rumus pada sheet NOTA cell D8 (sampai D27) dibuat dinamis mengikuti perubahan
pada sheet PEMBELIAN?
>
>Saat
ini rumus pada cell tersebut adalah:
>
>=IF($B8=
>
>Menurut rumus di atas, hanya sampai baris ke 10. Saya memang bisa mengubah
(secara manual) menjadi
>
>=IF($B8=
>
>Sehingga rumus bisa membaca sampai baris ke 1000 pada sheet PEMBELIAN.
>
>Pertanyaan saya adalah: adakah cara lain yang mengotomatiskan proses pembacaantabel ini sehingga saya gak perlu
mengubah-ubah pada bagian $H$10...?
>
>
>========
>
>
>Selengkapnya mohon dilihat pada lampiran
>
>
>
>
>
Fri Mar 14, 2014 12:56 am (PDT) . Posted by:
"irianto"
DEAR nora,
Betul juga saran mr .kid
Atau klo mo simple lagi di sheet pembelian dibikin namerange table dinamis
Contoh terlampir
irianto
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Nora Ismanti
Sent: Friday, March 14, 2014 10:09 AM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Terima kasih, Solusinya sangat bermanfaat.
_____
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 13 Maret 2014 18:40
Judul: Re: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Hai Nora,
Mencoba memanfaatkan fitur Excel Table mau gak ?
Kalau mau, ikuti langkah berikut : [ berdasar formula =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0))) ]
1. ke sheet PEMBELIAN
2. Blok seluruh data $A$1:$H$10
3. klik ribbon Home -> lihat group Styles -> klik Format As Table -> klik salah satu styles yang ditawarkan -> centang My table has headers -> OK
4. klik cell A1 -> lihat menu TableTools (dekat nama file di layar sisi atas) -> klik TableTools -> klik ribbon Design -> lihat group Properties -> ada bagian Table Name : disana -> ganti isinya dengan bunyi TabelBeli
5. ke sheet kerja (lokasi si formula vlookup berada)
6. klik sebuah cell berformula vlookup yang bunyi formulanya =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
7. edit formulanya dengan mengganti bagian formula berbunyi PEMBELIAN!$A$2:$H$10 menjadi TabelBeli
8. tekan Enter untuk mengakhiri pengeditan formula
9. copy formula ke baris lain yang membutuhkan formula serupa
10. Save workbook
11. coba tambah data baru di baris kosong pertama di bawah tabel bernama TabelBeli yang ada di sheet PEMBELIAN.
Wassalam,
Kid.
2014-03-13 17:44 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:
Kepada para master dan anggota milis yg saya hormati dan cintai.
Mohon saya dibantu terkait dengan INVOICE sederhana yg saya miliki:
Bisakah rumus pada sheet NOTA cell D8 (sampai D27) dibuat dinamis mengikuti perubahan pada sheet PEMBELIAN?
Saat ini rumus pada cell tersebut adalah:
=IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
Menurut rumus di atas, hanya sampai baris ke 10. Saya memang bisa mengubah (secara manual) menjadi
=IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$1000,2,0)))
Sehingga rumus bisa membaca sampai baris ke 1000 pada sheet PEMBELIAN.
Pertanyaan saya adalah: adakah cara lain yang mengotomatiskan proses pembacaan tabel ini sehingga saya gak perlu mengubah-ubah pada bagian $H$10...?
====================
Selengkapnya mohon dilihat pada lampiran
Betul juga saran mr .kid
Atau klo mo simple lagi di sheet pembelian dibikin namerange table dinamis
Contoh terlampir
irianto
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Nora Ismanti
Sent: Friday, March 14, 2014 10:09 AM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Terima kasih, Solusinya sangat bermanfaat.
_____
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Kamis, 13 Maret 2014 18:40
Judul: Re: [belajar-excel] Bagaimana membuat tabel referensi dinamis?
Hai Nora,
Mencoba memanfaatkan fitur Excel Table mau gak ?
Kalau mau, ikuti langkah berikut : [ berdasar formula =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0))) ]
1. ke sheet PEMBELIAN
2. Blok seluruh data $A$1:$H$10
3. klik ribbon Home -> lihat group Styles -> klik Format As Table -> klik salah satu styles yang ditawarkan -> centang My table has headers -> OK
4. klik cell A1 -> lihat menu TableTools (dekat nama file di layar sisi atas) -> klik TableTools -> klik ribbon Design -> lihat group Properties -> ada bagian Table Name : disana -> ganti isinya dengan bunyi TabelBeli
5. ke sheet kerja (lokasi si formula vlookup berada)
6. klik sebuah cell berformula vlookup yang bunyi formulanya =IF($B8="","",(VLOOKUP($B8,PEMBELIAN!$A$2:$H$10,2,0)))
7. edit formulanya dengan mengganti bagian formula berbunyi PEMBELIAN!$A$2:$H$10 menjadi TabelBeli
8. tekan Enter untuk mengakhiri pengeditan formula
9. copy formula ke baris lain yang membutuhkan formula serupa
10. Save workbook
11. coba tambah data baru di baris kosong pertama di bawah tabel bernama TabelBeli yang ada di sheet PEMBELIAN.
Wassalam,
Kid.
2014-03-13 17:44 GMT+07:00 Nora Ismanti <noraismanti@yahoo.com>:
Kepada para master dan anggota milis yg saya hormati dan cintai.
Mohon saya dibantu terkait dengan INVOICE sederhana yg saya miliki:
Bisakah rumus pada sheet NOTA cell D8 (sampai D27) dibuat dinamis mengikuti perubahan pada sheet PEMBELIAN?
Saat ini rumus pada cell tersebut adalah:
=IF($B8="
Menurut rumus di atas, hanya sampai baris ke 10. Saya memang bisa mengubah (secara manual) menjadi
=IF($B8="
Sehingga rumus bisa membaca sampai baris ke 1000 pada sheet PEMBELIAN.
Pertanyaan saya adalah: adakah cara lain yang mengotomatiskan proses pembacaan tabel ini sehingga saya gak perlu mengubah-ubah pada bagian $H$10...?
============
Selengkapnya mohon dilihat pada lampiran
Thu Mar 13, 2014 8:19 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Agus,
1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^ (10-2*row(1:5))
>> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu berupa
array 1 baris x 5 kolom
>> {8,6,4,2,0} adalah array 1 baris x 5 kolom
>> row(1:5) adalah array 5 baris x 5 kolom
>> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom seperti { 2
, 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5 ; 6 } akan
terjadi perkalian array (kartesian) sebagai berikut :
2 3 4 <- array A ( 1 x 3 )
5 10 15 20
6 12 18 24 <- array hasil ( 2 x 3 )
^
|
array B ( 2 x 1 )
>> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
diganti dengan formulasi yang juga menghasilkan array 1 baris x 5 kolom
seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ). Sepertinya
malah jauh lebih panjang dibanding {8,6,4,2,0} dan membutuhkan komputasi
lebih banyak (setidaknya harus mengkomputasi fungsi Column).
2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
yang dapat ditangani excel?
>> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit. Agar
mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter berisi 5
digit soal berformat 00 (ada leading zero disetiap nomor soal).
>> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai numerik
atau komputasi numerik sebanyak 15 digit (coba lihat specifications and
limits yang ada di Excel Help).
>> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5 nomor
yang membentuk 10 digit dengan leading zero, bisa juga disusun secara bebas
seperti :
a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero karena
memang nomor tersebut cukup menempati 1 digit angka saja. Maka C1 akan
berisi teks berbunyi 123456789
b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan menggunakan
14 digit. D1 akan berbunyi 10111213141516
c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
atas, yaitu per 7 nomor
d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah menghasilkan
15 digit (maksimal tepat komputasi Excel).
Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah nilai
yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil komputasinya
akan tidak tepat secara mutlak. Bagi yang tetap memanfaatkan ruang yang
ada, maka berpotensi untuk mendapatkan metode berkreasi yang terus
berkembang hingga tercapai yang dibutuhkannya secara tepat. (cuman katanya
Kid loh ya... jadi kalo kliru jangan dipakai)
;)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>
> Yth Mr. Kid
>
> Asalamualaikum warahmatullah.
> Terima kasih atas pencerahan rumus yang diberikan.
>
> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti
> dengan 10 ^ (10-2*row(1:5))
> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
> 909090909 bagaimana cara penghitungan yang menggunakan row.
>
> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
> yang dapat ditangani excel?
> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel yang masih
> minim.
>
> Wasalamualaikum warahmatullah.
>
> Kenang Agus
>
>
>
> On 13/03/2014 17:35, Mr. Kid wrote:
>
>
> Hai Agus,
>
> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
> maka untuk data di baris 25 bisa diperoleh dengan *array formula *:
> (misal formula diletakkan di AC25)
> =SUBSTITUTE(TRIM(SUBSTITUTE("
> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
> ",5)),"00 "," ")," 0"," "))," ","; ")
>
> wakakaka.... panjang kaya kereta... wis ben...
>
> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general module
> diberi blok prosedur bernama JoinText seperti ini :
> Public Function JoinText(vData As Variant, Optional sDelimiter As String =
> ",") As String
> Dim vTmp As Variant
> vTmp = vData
> JoinText = Join(vTmp, sDelimiter)
> End Function
>
> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh data
> di baris 25) :
> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
> "))," ","; ")
>
> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>>
>>
>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
>> untuk anda sekalian.
>>
>> Mohon bantuannya:
>> Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
>> seorang yang mengikuti tes.
>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>> rumusnya menjadi:
>> {=SUBSTITUTE(SUM(($B25=$B$4:$B$23)*(C25<>C$4:C$23)*C$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(D25<>D$4:D$23)*D$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(E25<>E$4:E$23)*E$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(F25<>F$4:F$23)*F$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(G25<>G$4:G$23)*G$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(H25<>H$4:H$23)*H$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(I25<>I$4:I$23)*I$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(J25<>J$4:J$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(K25<>K$4:K$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(L25<>L$4:L$23)*L$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(M25<>M$4:M$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(N25<>N$4:N$23)*J$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(O25<>O$4:O$23)*O$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(P25<>P$4:P$23)*P$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Q25<>Q$4:Q$23)*Q$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(R25<>R$4:R$23)*R$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(S25<>S$4:S$23)*S$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(T25<>T$4:T$23)*T$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(U25<>U$4:U$23)*U$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(V25<>V$4:V$23)*V$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(W25<>W$4:W$23)*W$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(X25<>X$4:X$23)*X$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Y25<>Y$4:Y$23)*Y$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(Z25<>Z$4:Z$23)*Z$3)&";
>> "&SUM(($B25=$B$4:$B$23)*(AA25<>AA$4:AA$23)*AA$3);" 0;";"")} rumus ini
>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>
>> Adakah rumus yang lebih pendek?
>> saya mencoba menggunakan index tidak berhasil.
>> (=INDEX(C3:AA3;;IF((C25:AA25=C4:AA23)*($B$4:$B$23=B25);1;0))
>>
>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>
>> Terima kasih
>>
>> wasalamualaikum warahmatullah
>>
>>
>
>
>
Hai Agus,
1. 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti dengan 10 ^ (10-2*row(1:5))
>> yang perlu diperhatikan adalah data yang akan dikalikan, yaitu berupa
array 1 baris x 5 kolom
>> {8,6,4,2,0} adalah array 1 baris x 5 kolom
>> row(1:5) adalah array 5 baris x 5 kolom
>> andaikan ada 2 array, yaitu array A berupa 1 baris x 3 kolom seperti { 2
, 3 , 4 } dan array B berupa 2 baris x 1 kolom seperti { 5 ; 6 } akan
terjadi perkalian array (kartesian) sebagai berikut :
2 3 4 <- array A ( 1 x 3 )
5 10 15 20
6 12 18 24 <- array hasil ( 2 x 3 )
^
|
array B ( 2 x 1 )
>> andai tidak ingin definisi langsung seperti {8,6,4,2,0} maka bisa
diganti dengan formulasi yang juga menghasilkan array 1 baris x 5 kolom
seperti berbunyi Column($a:$e) atau Transpose( Row( $1:$5 ) ). Sepertinya
malah jauh lebih panjang dibanding {8,6,4,2,0} dan membutuhkan komputasi
lebih banyak (setidaknya harus mengkomputasi fungsi Column).
2. Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
yang dapat ditangani excel?
>> Pada kasus ini, text di C1:G1 menitikberatkan pada jumlah digit. Agar
mudah, dibuatlah per 5 nomor soal yang akan menyusun 10 karakter berisi 5
digit soal berformat 00 (ada leading zero disetiap nomor soal).
>> Excel membatasi jumlah digit agar tetap tepat pada sebuah nilai numerik
atau komputasi numerik sebanyak 15 digit (coba lihat specifications and
limits yang ada di Excel Help).
>> Dengan batasan Excel 15 digit tersebut, maka selain dengan per 5 nomor
yang membentuk 10 digit dengan leading zero, bisa juga disusun secara bebas
seperti :
a. Nomor 1 sampai 9 menjadi sebuah text di C1 tanpa leading zero karena
memang nomor tersebut cukup menempati 1 digit angka saja. Maka C1 akan
berisi teks berbunyi 123456789
b. Nomor 10 sampai 16 (7 nomor) yang membutuhkan 2 digit akan menggunakan
14 digit. D1 akan berbunyi 10111213141516
c. nomor 17 sampai 99 juga butuh 2 digit, jadi menggunakan bentuk b di
atas, yaitu per 7 nomor
d. ketika masuk nomor 100 yang butuh 3 digit, maka hanya akan cukup
maksimal 5 nomor karena 5 nomor dengan 3 digit per nomor sudah menghasilkan
15 digit (maksimal tepat komputasi Excel).
Jadi, bukan masalah bisa 10^50 atau tidak, tetapi tepat atau tidakkah nilai
yang diberikan Excel ketika mengkomputasi nilai lebih dari 15 digit.
So, silakan berkreasi di dalam ruang yang disediakan oleh Excel.
Sudah biasa kan ya, untuk berkreasi di dalam suatu ruang yang terbatasi ?
Karena hidup dan kehidupan adalah sebuah ruang berkreasi yang dibatasi
hukum Tuhan. Siapa yang melanggar batas yang ada, maka hasil komputasinya
akan tidak tepat secara mutlak. Bagi yang tetap memanfaatkan ruang yang
ada, maka berpotensi untuk mendapatkan metode berkreasi yang terus
berkembang hingga tercapai yang dibutuhkannya secara tepat. (cuman katanya
Kid loh ya... jadi kalo kliru jangan dipakai)
;)
Wassalamu'alaikum Wr. Wb.
Kid.
2014-03-14 8:30 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>
> Yth Mr. Kid
>
> Asalamualaikum warahmatullah.
> Terima kasih atas pencerahan rumus yang diberikan.
>
> Saya mau tanya rumus bagian: 10^{8,6,4,2,0}, kenapa tidak dapat saya ganti
> dengan 10 ^ (10-2*row(1:5))
> rumus aslinya menghasilkan 100030005 jika menggunakan row hasilnya
> 909090909 bagaimana cara penghitungan yang menggunakan row.
>
> Untuk rumus tersebut terdapat 5 text, bagaimana jika digabung menjadi
> satu? apakah excel masih dapat menghitung 10^50? berapa bilangan terbesar
> yang dapat ditangani excel?
> Terima kasih, mohon maaaf karena pengetahuan saya tentang excel yang masih
> minim.
>
> Wasalamualaikum warahmatullah.
>
> Kenang Agus
>
>
>
> On 13/03/2014 17:35, Mr. Kid wrote:
>
>
> Hai Agus,
>
> Andaikan di C1 ada teks (tipe data : text) berupa 0102030405
> Kemudian di D1, E1, dst juga ada lanjutannya 0607080910, 1112 dst
> maka untuk data di baris 25 bisa diperoleh dengan *array formula *:
> (misal formula diletakkan di AC25)
> =SUBSTITUTE(TRIM(SUBSTITUTE("
> "&SUBSTITUTE(TEXT($C$1-SUM($C$3:$G$3*(INDEX($C$4:$G$23,MATCH(B25,$B$4:$B$23,0),0)=C25:G25)*(10^{8,6,4,2,0})),REPT("00\
> ",5))&TEXT($D$1-SUM($H$3:$L$3*(INDEX($H$4:$L$23,MATCH(B25,$B$4:$B$23,0),0)=H25:L25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($E$1-SUM($M$3:$Q$3*(INDEX($M$4:$Q$23,MATCH(B25,$B$4:$B$23,0),0)=M25:Q25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($F$1-SUM($R$3:$V$3*(INDEX($R$4:$V$23,MATCH(B25,$B$4:$B$23,0),0)=R25:V25)*10^{8,6,4,2,0}),REPT("00\
> ",5))&TEXT($G$1-SUM($W$3:$AA$3*(INDEX($W$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)=W25:AA25)*10^{8,6,4,2,0}),REPT("00\
> ",5)),"00 "," ")," 0"," "))," ","; ")
>
> wakakaka.... panjang kaya kereta... wis ben...
>
> Atau dengan UDF bernama JoinText yang di VBE pada sebuah general module
> diberi blok prosedur bernama JoinText seperti ini :
> Public Function JoinText(vData As Variant, Optional sDelimiter As String =
> ",") As String
> Dim vTmp As Variant
> vTmp = vData
> JoinText = Join(vTmp, sDelimiter)
> End Function
>
> tapi pakainya di worksheet (misal dipakai di cell AD25 untuk oleh data
> di baris 25) :
> =SUBSTITUTE(TRIM(jointext(INDEX(REPT($C$3:$AA$3,C25:AA25<>INDEX($C$4:$AA$23,MATCH(B25,$B$4:$B$23,0),0)),1,0),"
> "))," ","; ")
>
> Jadi, UDF nya cuma alat bantu untuk concatenate array sebaris sajah.
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2014-03-13 9:54 GMT+07:00 nangAgus <nangagoez@yahoo.co.id>:
>
>>
>>
>> Salam sejahtera untuk Kita semua, Semoga Rahmat Tuhan selalu tercurah
>> untuk anda sekalian.
>>
>> Mohon bantuannya:
>> Saya akan membuat rumus untuk menentukan nomor-nomor yang salah dari
>> seorang yang mengikuti tes.
>> Tes tersebut memiliki 20 jenis soal yang berbeda,
>> Sementara ini saya menggunakan comcatenate dengan jumlah 50 buah
>> (sementara untuk file yang saya kirimkan hanya 25 buah) sehingga
>> rumusnya menjadi:
>> {=SUBSTITUTE(
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> "&SUM((
>> hanya untuk 25 soal, jika 50 soal berarti lebih panjang lagi.
>>
>> Adakah rumus yang lebih pendek?
>> saya mencoba menggunakan index tidak berhasil.
>> (=INDEX(C3:AA3;
>>
>> Bagaimana cara memperpendek rumus ini? atau menggunakan UDF?
>>
>> Terima kasih
>>
>> wasalamualaikum warahmatullah
>>
>>
>
>
>
Thu Mar 13, 2014 8:41 pm (PDT) . Posted by:
hera_skeptis
Terima kasih bangeet untuk teamnya... the best deh pokoknya ^_^
Thu Mar 13, 2014 11:20 pm (PDT) . Posted by:
"Ahmad Syaifullah Lubis" syaifullah
Mr Kid, sudah diganti dengan "="
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,
saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,
2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheet
application.displayalerts=false
sheets.add sheets(1)
for each sht in thisworkbook.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete
endif
next sht
if sheets.count>1 then
sheets(1).delete
endif
application.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
wbkapp.sheets.add wbkapp.sheets(1)
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
if wbkapp.sheets.count>1 then
wbkapp.sheets(1).delete
endif
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
gitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...
Wassalam,
Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,
saya punya file excel dalam workbook ada 10 sheet :
1. Man-Wkr
2. Man-Tpg
3. Dnm-Wkr
4. Dnm-Wkr-US
5. Ks-Wkr
6. Dnm-J-Wkr
7. Man-Trk
8. Man-Fiy
9. Dnm-Trk
10. Dnm-Fiy
Bagaimana macro :
1. bagaimana menghapus beberapa sheet pilihan
misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
2. bagaimana mencopy beberapa sheet pilihan.
misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-Wkr, dan sheet Dnm-J-Wk
semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
Salam.
ASL.
padahal ada sheet kunci yang seharusnya tidak dihapus jadi ikut terhapus, bagaimana ya cara pengecualiannya. misal sheet menu dan menu1 tidak ikut terhapus?
sementara untuk macro pindah dan macro copy tidak dapat jalan macronya,
debug yang keluar "wbkTarget = Workbooks.Add
mohon bantuannya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 13 Mar 2014 17:26:19 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Oh iya,
kalau gitu ganti <> menjadi = bagaimana ? Kalau masih gak cocok, ganti saja dengan yang lainnya yang Anda kira-kira pas... hehehe...
Wassalam,
Kid.
2014-03-13 17:10 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Mr Kid,
saya sudah taruh skrip tsb ke macro. macro untuk hapus beberapa sheet sudah jalan. namun bukan "wkr"nya yang harus dihapus, tetapi selain "wkr" agar dihapus.
macro copy dan pindah beberapa sheet tidak jalan, ada debug dan mengarah ke wbkApp = ThisWorkbook
terlampir file yang dimaksud. mudah2n dapat solusinya.
terima kasih,
ASL
To: belajar-excel@yahoogroups.com
From: mr.nmkid@gmail.com
Date: Thu, 6 Mar 2014 23:43:28 +0700
Subject: Re: [belajar-excel] Menggabungkan data beberapa file berdasarkan tanggal
Hai ASL,
2. copy sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
1. delete sheet yang namanya punya teks berbunyi 'wkr'
dim sht as worksheet
application.displayalerts=false
sheets.add sheets(1)
for each sht in thisworkbook.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.delete
endif
next sht
if sheets.count>1 then
sheets(1).delete
endif
application.displayalerts=true
0. move sheet yang namanya punya teks berbunyi 'wkr' ke workbook baru
>> seperti nomor 2 tetapi ditambahkan beberapa baris yang ada dalam nomor 1 disertai rujukan workbooknya (lihat yang biru)
dim wbkApp as workbook,wbkTarget as workbook
dim sht as worksheet, lShtNew as long
lshtnew=application.sheetsinnewworkbook
application.sheetsinnewworkbook=1
application.displayalerts=false
wbkapp=thisworkbook
wbktarget=workbooks.add
wbkapp.sheets.add wbkapp.sheets(1)
for each sht in wbkapp.worksheets
if instr(lcase$(sht.name),"wkr")<>0 then
sht.copy after:=wbktarget.sheets(wbktarget.sheets.count)
endif
next sht
if wbkapp.sheets.count>1 then
wbkapp.sheets(1).delete
endif
wbktarget.sheets(1).delete
application.sheetsinnewworkbook=lshtnew
application.displayalerts=true
gitu kali ya...
silakan dikembangkan sendiri sesuai kebutuhan ya...
Wassalam,
Kid.
2014-03-06 11:46 GMT+07:00 Ahmad Syaifullah Lubis <syaifullah@hotmail.com>:
Dear BeExceller,
saya punya file excel dalam workbook ada 10 sheet :
1. Man-Wkr
2. Man-Tpg
3. Dnm-Wkr
4. Dnm-Wkr-US
5. Ks-Wkr
6. Dnm-J-Wkr
7. Man-Trk
8. Man-Fiy
9. Dnm-Trk
10. Dnm-Fiy
Bagaimana macro :
1. bagaimana menghapus beberapa sheet pilihan
misalnya saya ingin menghapus sheet pilihan selain yang punya karakter "Wkr"
arti lain akan dihapus sheetnya kecuali sheet yang mempunyai karakter "Wkr"
sehingga nantinya sheet terdiri dari 5 sheet saja yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
2. bagaimana mencopy beberapa sheet pilihan.
misalnya hanya sheet yang berkarakter "Wkr" saja yang akan dicopy sheetnya ke file baru.
sehingga file baru tsb akan mempunya 5 sheet yaitu Man-Wkr, Dnm-Wkr, Dnm_Wkr-US,Ks-
semoga para pakar BeExceller mau menuangkan macronya sehingga akan menjadi panduan bagi saya dan rekan2 lainnya dalam aktivitasnya sehari2 di pekerjaan.
terima kasih, semoga Allah mencatatkan para rekan2 yang berilmu sebagai amal ibadah.
Salam.
ASL.
Fri Mar 14, 2014 2:32 am (PDT) . Posted by:
"Triyoso Rustamaji" trustamaji
assalamualaikum ..
selamat sore master...
slogan "malu bertanya kerja manual" selalu saya pegang.
permasalahan terlampir, yang tentu banyak menggunakan trik VBA
yang saya masih belum bisa, semoga menjadikan kerja saya lebih ringan.
berikut saya lampirkan masalahnya.
semoga amal baik panjenengan semua mendapatkan nilai lebih dari_NYA.
wassalamualaikum
triyoso rustamaji
selamat sore master...
slogan "malu bertanya kerja manual" selalu saya pegang.
permasalahan terlampir, yang tentu banyak menggunakan trik VBA
yang saya masih belum bisa, semoga menjadikan kerja saya lebih ringan.
berikut saya lampirkan masalahnya.
semoga amal baik panjenengan semua mendapatkan nilai lebih dari_NYA.
wassalamualaikum
triyoso rustamaji
Fri Mar 14, 2014 2:34 am (PDT) . Posted by:
"Soengging respati naba" respati007
Selamat Sore Para Master,
Langsung pada Pertanyaan Simpel aja sech..
Saya membuat UserForm untuk inputan...
Bagaimana Coding nya bila setelah saya input dan Add
TextBox yang saya kunci tetap ada isi nya setelah saya exit.
bila saya masuk kembali textbox ada isi nya untuk yang saya kunci saja.
Mohon Pencerahan Terima kasih.
Langsung pada Pertanyaan Simpel aja sech..
Saya membuat UserForm untuk inputan...
Bagaimana Coding nya bila setelah saya input dan Add
TextBox yang saya kunci tetap ada isi nya setelah saya exit.
bila saya masuk kembali textbox ada isi nya untuk yang saya kunci saja.
Mohon Pencerahan Terima kasih.
Fri Mar 14, 2014 2:41 am (PDT) . Posted by:
"Lazuardi Biru" lazuardi_biru84
dh
salam be excelent
asalamualaikum wr. wb
begini master sy punya data terlampir.
nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
wes judeg coba, tidak berhasil
file terlampir
wasalam
lb
salam be excelent
asalamualaikum wr. wb
begini master sy punya data terlampir.
nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
wes judeg coba, tidak berhasil
file terlampir
wasalam
lb
Fri Mar 14, 2014 2:48 am (PDT) . Posted by:
"Heri Pamungkas ( Gmail )" dchoosen88
Semangat pagi,
Mungkin If If an berikut bisa membantu...
Salam Excell-ent
On 14/03/2014 16:40, Lazuardi Biru wrote:
> dh
> salam be excelent
> asalamualaikum wr. wb
>
> begini master sy punya data terlampir.
> nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
>
> wes judeg coba, tidak berhasil
>
> file terlampir
>
> wasalam
>
> lb
>
Mungkin If If an berikut bisa membantu...
Salam Excell-ent
On 14/03/2014 16:40, Lazuardi Biru wrote:
> dh
> salam be excelent
> asalamualaikum wr. wb
>
> begini master sy punya data terlampir.
> nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
>
> wes judeg coba, tidak berhasil
>
> file terlampir
>
> wasalam
>
> lb
>
Fri Mar 14, 2014 2:54 am (PDT) . Posted by:
"Jan Raisin"
Wa'alaikumsalam wr. wb.,
coba di cel AN10 diisi dengan formula
=IsNumber(Search(AN8;$D10))*$AL10
>> Search berfungsi untuk mencari nama di dalam cel yang berisi nama
karyawan yang masuk, jika ditemukan maka akan menampilkan posisi huruf di
dalam cel tersebut (hasil adalah angka), tetapi jika tidak ditemukan maka
akan memunculkan error value
>> Hasil pencarian dengan fungsi Search dilakukan proses pengujian apakah
hasilnya berupa angka atau bukan menggunakan fungsi IsNumber, jika hasilnya
adalah angka maka akan menghasilkan nilai TRUE yang setara dengan 1, dan
jika bukan angka akan menghasilkan nilai FALSE yang setara dengan 0
>> nilai 1 atau 0 ini dikalikan dengan nilai Total
Semoga bermanfaat
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2014 16.40, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:
>
>
> dh
> salam be excelent
> asalamualaikum wr. wb
>
> begini master sy punya data terlampir.
> nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
>
> wes judeg coba, tidak berhasil
>
> file terlampir
>
> wasalam
>
> lb
>
>
>
coba di cel AN10 diisi dengan formula
=IsNumber(Search(AN8;$D10))*$AL10
>> Search berfungsi untuk mencari nama di dalam cel yang berisi nama
karyawan yang masuk, jika ditemukan maka akan menampilkan posisi huruf di
dalam cel tersebut (hasil adalah angka), tetapi jika tidak ditemukan maka
akan memunculkan error value
>> Hasil pencarian dengan fungsi Search dilakukan proses pengujian apakah
hasilnya berupa angka atau bukan menggunakan fungsi IsNumber, jika hasilnya
adalah angka maka akan menghasilkan nilai TRUE yang setara dengan 1, dan
jika bukan angka akan menghasilkan nilai FALSE yang setara dengan 0
>> nilai 1 atau 0 ini dikalikan dengan nilai Total
Semoga bermanfaat
Wassalam,
-Miss Jan Raisin-
Pada 14 Maret 2014 16.40, Lazuardi Biru <lazuardi_biru84@yahoo.com> menulis:
>
>
> dh
> salam be excelent
> asalamualaikum wr. wb
>
> begini master sy punya data terlampir.
> nama yang tidak di sebut dalam satu kolom tidak dapat gaji.
>
> wes judeg coba, tidak berhasil
>
> file terlampir
>
> wasalam
>
> lb
>
>
>
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar