Rabu, 06 Juli 2011

[belajar-excel] Digest Number 1231

Messages In This Digest (25 Messages)

Messages

1a.

Re: TANYA RUMUS

Posted by: "Gober" gober.mirc@gmail.com   gober_mirc

Wed Jul 6, 2011 12:55 am (PDT)



Hi,

Maksudnya apa yah bro??? sy ga ngerti.

Saya jg itu dapat dr forum laen. mk dari itu saya ksh tau aja disini..

Mau dijelasin gimana? Sy jg kaga ngerti om

thanks

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of HerrSoe
Sent: Tuesday, July 05, 2011 5:51 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] TANYA RUMUS

>> Rumusnya =IF(C4+D4+E4<0,0.03,0)

'Kami' kagum, canggih banget "Teknik" memperdayainya.

Ketika bertanya : tidak dijelaskan maksud dan tujuan secara utuh (contoh pun
dlm bentuk gambar)
Ketika telah dijawab, tidak ada satu pun jawaban yg betul dan si penanya
membuka sendiri jawabannya yang ternyata CLUES, SYARAT DAN TUJUANNYA tidak
ada di dalam pertanyaan !!
Tanggapan 'kami' sampai di titik ini saja.

Berikut ini bukan lagi tanggapan tetapi sekedar "grenengan" / berdialog
dengan diri sendiri.

Kita perhatikan di milis ini (maupun "milis tanya-jawab excel" lain),
Jika ada pertanyaan tidak jelas, members (termasuk moderators) selalu
menghadapi dilemma:
(***)
Berusaha sebisa mungkin (walaupun dengan bahan yg minim dan 'rawan salah
duga') segera membantu / memberikan jawaban.

Setelah dijawab :
- bisa kena komplain: solusi yg diajukan sering dikatakan sebagai ANEH,
JANGGAL, SALAH dsb.
(istilah ini benar: untuk ukuran orang (penanya) yg sudah punya syarat
jawaban tetapi syaratnya hanya disimpan dlm hati)
Harusnya diingat bahwa Rumus / Solusi yg didasari bahan yg kurang lengkap,
SANGAT bisa salah,
kalau ternyata benar : "untung" - lah namanya.!

- bisa kena "tipu" (tipu dalam tanda kutip) seperti kasus sekarang ini.

(***)
Jika tidak segera dijawab, tetapi menunggu penjelasan tambahan lebih dulu
- kelamaan
- permintaan tambahan penjelasan kepada penanya pun sering tidak mendapat
tangapan yg layak
- Tidak segera mencarikan jawaban = memberi kesan, milis / member milis
tidak reponsif.
(padahal di sinilah titik kekuatan milis ini, "problem cepat terjawab" yg
sangat saya kagumi dan terima-kasih-i )

Terakhir kita hanya bisa 'berdoa' semoga para pengguna milis semakin
meningkatkan cara bermilisnya agar tercipta suasana yg lebih wajar, termasuk
kami yg masih harus belajar banyak dari para seniors..

Terima kasih & Wassalam,

Herr Soe-cakil
herrSoe ....cakil.GIF

2011/7/4 Gober <gober_mirc@yahoo.com>

> Thanks bro sudah dpt nih.
> Rumusnya =IF(C4+D4+E4 <0,0.03,0) ini diisi di kolom diskonnya
> Thanks yah all replynya
>
>
> From: belajar-excel@yahoogroups.com On Behalf Of Mr. Kid
> Sent: Monday, July 04, 2011 4:54 PM
>
> Coba :
> =(c4+d4)*(1-(c4+d4<0)*e4)
>
> Kid.
>
> 2011/7/4 gober_mirc <gober_mirc@yahoo.com>
>
> Hi... Mau tanya rumus nih.... tolong di lihat yah gambarnya
> http://oi55.tinypic.com/bitc8g.jpg <http://oi55.tinypic.com/bitc8g.jpg>
> Hasil total itu sudah benar -194 (hasil dari -1000 dikurang 800 kemudian
> dipoton diskok 3%)
> tapi jika hasil A dan B itu tidak minus maka dari itu tidak ada
> potongan.... nah rumusnya apa yah kl tidak ada potongan itu angka 3%
> tidak masuk ke kolom total...
>
> TOlong yah dibantu..
> thanks
>
> ==============================================
> mode note:
> sayang sekali bahan yg diajukan berupa gambar
> ==============================================

2a.

angsuran pinjaman

Posted by: "Rey" personalia_manado@ag.co.id

Wed Jul 6, 2011 1:30 am (PDT)



Mohon bantuannya..
Semoga bisa di pahami...lihat lampiran..
terima kasih.
Rey

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.
2b.

Re: angsuran pinjaman

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Wed Jul 6, 2011 2:37 am (PDT)



Dear pak personalia,

'Request' anda yg terakhir, Tgl 5 Jul 2011 Subject SELISIH JIKA DIJUMLAHKAN.
mendapat 2 tanggapan, sepertinya berstatus *masih menggantung*, tidak ada
kata penutup dari anda.

Berkenankan anda menutupnya ? Misal kata-kata "Oke sayah tidak jadi tanyah,
sudah tidak sayah perlukan lagih !" kata-kata lain yg lebih baik...?

Terima kasih,..

On Wed, Jul 6, 2011 at 3:32 PM, Rey <personalia_manado@ag.co.id> wrote:

> **
> Mohon bantuannya..
> Semoga bisa di pahami...lihat lampiran..
> terima kasih.
> Rey
>
>
2c.

Bls: [belajar-excel] angsuran pinjaman

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id   dwint.ruswanto

Wed Jul 6, 2011 3:45 am (PDT)



sambil menunggu para suhu dan master BeExcel menjawab dengan jurus-jurus yang canggih, saya coba bantu dengan formula yang sederhana, saya menggunakan tambahan 2 kolom bantu yaitu "Saldo Awal" dan "Sisa Pokok Pinjaman".
 
terdapat sedikit perbedaan angka karena pembulatan angka di belakang koma.
 
untuk jelasnya bisa agan lihat di attachment sheet "ABDUL"
 
cekidot :D

Dari: Rey <personalia_manado@ag.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 6 Juli 2011 15:32
Judul: [belajar-excel] angsuran pinjaman

 


Mohon
bantuannya..
Semoga bisa di
pahami...lihat lampiran..
terima kasih.
Rey
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
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.
2d.

Re: angsuran pinjaman

Posted by: "andi setiyawan" setiyawan.andi@gmail.com   andi.setiyawan@ymail.com

Wed Jul 6, 2011 7:16 am (PDT)



selamat malam bu siti...saya punya macam-2 model perhitungan angsuran, (dan
saya yakin bu siti juga punya 1001 trik buat ngitung angsuran) tapi entah
kenapa saya kok males mau berbagi disini kalo kita kesannya seperti "punya
bos besar" yg tinggal pencet tombol "KERJAKAN".apa nggak ada kata-2 yg lebih
luwes yg membuat kita tambah bersemangat buat berbagi pengetahuan kita...

On Wed, Jul 6, 2011 at 5:38 PM, dwint ruswanto
<dwint.ruswanto@yahoo.co.id>wrote:

> **
>
>
> sambil menunggu para suhu dan master BeExcel menjawab dengan jurus-jurus
> yang canggih, saya coba bantu dengan formula yang sederhana, saya
> menggunakan tambahan 2 kolom bantu yaitu "Saldo Awal" dan "Sisa Pokok
> Pinjaman".
>
> terdapat sedikit perbedaan angka karena pembulatan angka di belakang koma.
>
> untuk jelasnya bisa agan lihat di attachment sheet "ABDUL"
>
> cekidot :D
>
> *Dari:* Rey <personalia_manado@ag.co.id>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 6 Juli 2011 15:32
> *Judul:* [belajar-excel] angsuran pinjaman
> **
>
> Mohon bantuannya..
> Semoga bisa di pahami...lihat lampiran..
> terima kasih.
> Rey
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> 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.
>
> ****
>
>
>
2e.

Re: angsuran pinjaman

Posted by: "Rey" personalia_manado@ag.co.id

Wed Jul 6, 2011 5:55 pm (PDT)



terima kasih rumusnya2...
jujur..angsuran ini aku sadur dari cetakan sistem anuitas/loan...kalo dihitung pake excel selisihnya terlihat jelas karena pembulatan angka di belakang koma.
bisa ngga disetting atau apa yang harus di contreng supaya hasil perhitungan excel sama persis perhitungan di sistem anuitas/loan.
masalahnya aku sering buat laporan pake excel dan harus sesuai cetakan angsuran loan jadi pasti ada selisih lebih atau kurang karena pembulatan itu...

di sheet rekapan juga belum diutak atik tuh...
makasih semuanya..

----- Original Message -----
From: dwint ruswanto
To: belajar-excel@yahoogroups.com
Sent: Wednesday, July 06, 2011 6:38 PM
Subject: Bls: [belajar-excel] angsuran pinjaman

sambil menunggu para suhu dan master BeExcel menjawab dengan jurus-jurus yang canggih, saya coba bantu dengan formula yang sederhana, saya menggunakan tambahan 2 kolom bantu yaitu "Saldo Awal" dan "Sisa Pokok Pinjaman".

terdapat sedikit perbedaan angka karena pembulatan angka di belakang koma.

untuk jelasnya bisa agan lihat di attachment sheet "ABDUL"

cekidot :D

Dari: Rey <personalia_manado@ag.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 6 Juli 2011 15:32
Judul: [belajar-excel] angsuran pinjaman

Mohon bantuannya..
Semoga bisa di pahami...lihat lampiran..
terima kasih.
Rey

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.
3a.

Re: Hapus duplikat tetapi berdasarkan syarat prioritas

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Jul 6, 2011 1:37 am (PDT)



Dear Jenny,

File terlampir menggunakan satu tabel penentu sort, yaitu urutan status open
dsb berdasar prioritas yang diinginkan. Keynya masih berupa karakter
pertamanya.

Dari tabel referensi penentu sort, maka bisa disusun *array formula* status
dipakai (-1) atau tidak dipakai (0) dengan array formula :
=-(MATCH(LEFT(B21),$A$2:$A$4,0)=MIN(IF($A$21:$A$36=A21,MATCH(LEFT($B$21:$B$36),$A$2:$A$4,0))))
Array formula di atas, diletakkan pada sebuah kolom disamping tabel data.
Kalau tabel data ada ribuan, maka ada ribuan formula juga. Jika tabel asal
ada 100rb record, maka formula juga ada 100rb.

Usai kalkulasi, lakukan filter terhadap kolom itu, pilih yang 0 saja.
Blok data, ke Home -> FInd Select -> Goto Special -> Visible cells only ->
OK ->klik kanan satu cell yang diblok -> pilih delete row
Jika ingin lebih agak cepat, lakukan sort ascending sebelum lakukan delete
row

*Cara kedua, *tanpa ada kolom apapun di tabel data asal (tabel asal apa
adanya), dibuat sebuah tabel summary di sheet lain, yang berisi unique list
dari data yang dipakai saja.
Misalkan di data tabel ada 100rb record yang berisi 750 email account, maka
pada sheet summary hanya akan ada 750 record * 2 kolom yang berformula.
Total hanya ada 1500 cell berformula.

Jadi, silakan pilih cara 1 saja atau 2 saja atau tidak keduanya...

Regards,
Kid.

2011/7/6 Jen_Se7en <j3n_5z@yahoo.com>

> **
>
>
>
> Dear all,
>
> Maaf, saya berikan data lain karena yg diberikan tugas sekarang data
> ber-sort lain...
> Dan jika tetap memakai prioritas yang sama dengan data sekarang seperti di
> bawah ini:
>
> A****
>
> B****
>
> 1. ****
>
> *t@a.com*
>
> *Open, Not click*
>
> 2. ****
>
> *jitramana@t.com*
>
> *Open, Not click*
>
> 3. ****
>
> jithendri@gmail.com****
>
> Open, Not click****
>
> 4. ****
>
> jirawat@l.com****
>
> Open, Not click****
>
> 5. ****
>
> l_adrian@msb****
>
> Open, Not click****
>
> 6. ****
>
> yinyi@mc.com****
>
> Not Opened, Not click****
>
> 7. ****
>
> demo@c.com****
>
> Not Opened, Not click****
>
> 8. ****
>
> jitramana@t.com****
>
> Not Opened, Not click****
>
> 9. ****
>
> t@a.com****
>
> Not Opened, Not click****
>
> 10. ****
>
> moy_ge@c.go****
>
> Not Opened, Not click****
>
> 11. ****
>
> ngsiew@st.com****
>
> Not Opened, Not click****
>
> 12. ****
>
> *l_adrian@msb*
>
> *Just Open ?*
>
> 13. ****
>
> *yinyi@mc.com*
>
> *Just Open ?*
>
> 14. ****
>
> splim@mine.com****
>
> Just Open ?****
>
> 15. ****
>
> *moy_ge@c.go*
>
> *Just Open ?*
>
> 16. ****
>
> *jirawat@l.com*
>
> *Just Open ?*
>
> diinginkan menghapus duplikat dikutsertakan menghapus semua row dan column
> data si duplikat tersebut, menjadi seperti di bawah :
>
> A****
>
> B****
>
> 1****
>
> . jithendri@gmail.com****
>
> Open, Not click****
>
> 2. ****
>
> jirawat@l.com****
>
> Open, Not click****
>
> 3****
>
> . l_adrian@msb****
>
> Open, Not click****
>
> 4. ****
>
> yinyi@mc.com****
>
> Not Opened, Not click****
>
> 5. ****
>
> demo@c.com****
>
> Not Opened, Not click****
>
> 6. ****
>
> jitramana@t.com****
>
> Not Opened, Not click****
>
> 7. ****
>
> t@a.com****
>
> Not Opened, Not click****
>
> 8. ****
>
> moy_ge@c.go****
>
> Not Opened, Not click****
>
> 9. ****
>
> ngsiew@st.com****
>
> Not Opened, Not click****
>
> 10. ****
>
> splim@mine.com****
>
> Just Open ?****
>
>
> Cara sebelumnya saya mencampurkan unique advance filter, di filter setiap
> info lalu vlookup dan copy satu persatu...
> Adakah cara lebih gampang dan cepat? karena berhubung data sebenarnya puluh
> ribuan yang dimasukan dan entah terdapat berapa ribuan duplikat. #_#
>
> Thanks a lot b4... >.<
>
> btw bingung memasukan contoh soal ke grup ini bgmn ya? attach excel bisa
> kah, copas image bagaimana, ketik manual tidak rapih ? *.*
>
>
> --- In belajar-excel@yahoogroups.com, "JennyS" <j3n_5z@...> wrote:
> >
> > Dear all :
> >
> > need help dunk, contoh kasus seperti di bawah ini :
> >
> >
> >
> > Pada "Email address" (kolom A) terdapat duplikat dengan nama email yang
> > sama,
> > dan dalam data terdapat "information" (kolom B) :
> > * just open? --> dimisalkan X
> > * open, not click --> dimisalkan Y
> > * not opened, not click --> dimisalkan Z
> >
> > Saya ingin menghilangkan "email" (kolom A) yg sama alias ber-duplikat,
> > tetapi mempunyai syarat prioritas
> > menurut "information"-nya (kolom b) sbb:
> > - Jika information X ketemu Y atau Y ketemu X, akan menjadi Y
> > - Jika information X ketemu Z atau Z ketemu X, akan menjadi Z
> > - Jika information Y ketemu Z atau Z ketemu Y, akan menjadi Z juga
> >
> > Jadi prioritas nya :
> > 1. Z
> > 2. Y
> > 3. X
> >
> > Nah, harus ke delete yang mempunyai 2 email yang sama alias duplikat-nya
> > (twin) tetapi sesuai dengan keterangan prioritas berdasarkan
> > "information" itu
> > { data masih tetap dalam 2 kolom berupa "email" (kolom a) dan
> > "information" (kolom b) }
> >
> > Bagaimana cara-nya ya?
> >
> > Thanks, yo0...
> >
>
>
>
>
4.

Fw: [belajar-excel] Fw: Lookup data dari kolom berbeda

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Wed Jul 6, 2011 1:45 am (PDT)



Contoh ini berbeda dengan contoh sebelumnya dimana dalam contoh ini :
- Ada sel kosong sehingga kolom yang mengacu kepada fungsi COUNTA (hanya menghitung sel yang ada isinya) menjadi tidak tepat
- Ada kolom terakhir yang terisi bukan merupakan kolom "Jatuh Tempo", contohnya Warsidi.
 
Dalam contoh sebelumnya tidak ada sel kosong dan kolom terakhir yang terisi adalah kolom Jatuh Tempo Cuti.
 
Untuk contoh yang terakhir ini saya belum dapat solusinya, barangkali ada teman lain yang bisa membantu.
 
Salam,
Hendrik Karnadi

--- On Wed, 6/7/11, hartini_80@yahoo.co.id <hartini_80@yahoo.co.id> wrote:

From: hartini_80@yahoo.co.id <hartini_80@yahoo.co.id>
Subject: [belajar-excel] Fw: Lookup data dari kolom berbeda
To: belajar-excel@yahoogroups.com
Date: Wednesday, 6 July, 2011, 2:30 PM

 

Pak hendrik, setelah saya aplikasikan kok hasilnya tidak sama ya dengan yang bapak contohkan, berikut saya kirimkan hasil kerjanya, mohon koreksinya mungkin ada yg salah..
Salam
Tiny
Powered by Telkomsel BlackBerry®

From: dwa_spv_fin@bukitmakmur.com
Date: Wed, 6 Jul 2011 14:27:26 +0700
To: <hartini_80@yahoo.co.id>
Subject: Lookup data dari kolom berbeda

5a.

Bls: [belajar-excel] Macro untuk Meringkas Database

Posted by: "Dhanu Trisna Hamijaya" dh_hamijaya@yahoo.co.id   dh_hamijaya

Wed Jul 6, 2011 2:06 am (PDT)



kebetulan saya juga bekerja di bagian keuangan instansi pemerintah.

sebelumnya sy juga menggunakan banyak formula/rumus untuk membuat laporan. tapi setelah menemukan Tunas Gadget dan JMT Utilities, pekerjaan jadi lebih ringan tanpa harus membuat rumus yang terkadang

ini saya lampirkan file yang sudah sy download, semua petunjuk dan informasi penggunaan bisa didapat di http://formula-excel.blogspot.com/

===============================================================
catatan mod:
mohon maaf pak Dhanu,
File terpaksa kena cekal karena volumnya terlalu besar
(3117 KB dan 315 KB), melanggra peraturan milis.
Untuk yg 315KB akan segera kami susulkan dlm post terpisah
setelah kami compress ( zip) menjadi sekitar 109KB
Untuk file yg 3117KB sudah dlm bentuk zip, sedang kami carikan
caranya, mungkin di-unggah ke suatu OnlineSharedStorage)
Atau-kah akaan bapak upload ke blog bapak ?
===============================================================

5b.

Re: Macro untuk Meringkas Database

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Wed Jul 6, 2011 2:22 am (PDT)



** salah satu lampiran disusulkan: (tunas_gadget.xla)

** lampiran lain (JMT Excel Utilities /3 MB) dapat anda unduh sendiri di
http://formula-excel.blogspot.com/2010/03/download-page.html
atau di: http://www.box.net/shared/3sreu7qn4kx5cmd8aklg

2011/7/6 Dhanu Trisna Hamijaya <dh_hamijaya@yahoo.co.id>

> **
>
>
> kebetulan saya juga bekerja di bagian keuangan instansi pemerintah.
>
> sebelumnya sy juga menggunakan banyak formula/rumus untuk membuat laporan.
> tapi setelah menemukan Tunas Gadget dan JMT Utilities, pekerjaan jadi lebih
> ringan tanpa harus membuat rumus yang terkadang
>
> ini saya lampirkan file yang sudah sy download, semua petunjuk dan
> informasi penggunaan bisa didapat di http://formula-excel.blogspot.com/
>
> ===============================================================
> catatan mod:
> mohon maaf pak Dhanu,
> File terpaksa kena cekal karena volumnya terlalu besar
> (3117 KB dan 315 KB), melanggra peraturan milis.
> Untuk yg 315KB akan segera kami susulkan dlm post terpisah
> setelah kami compress ( zip) menjadi sekitar 109KB
> Untuk file yg 3117KB sudah dlm bentuk zip, sedang kami carikan
> caranya, mungkin di-unggah ke suatu OnlineSharedStorage)
> Atau-kah akan bapak upload ke blog bapak ?
> ===============================================================
>
5c.

Re: Macro untuk Meringkas Database

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Jul 6, 2011 2:27 am (PDT)



Link berikut adalah attachment dari Pak Dhanu, tetapi umurnya tergantung Pak
Dhanu. Jika pak Dhanu memutuskan untuk menyediakan file storage sendiri,
maka link akan diarahkan ke link pak Dhanu.

http://www.4shared.com/file/7YLlFEZD/thread_11524_macro_meringkas_d.html

Kid.

2011/7/6 Dhanu Trisna Hamijaya <dh_hamijaya@yahoo.co.id>

> **
>
>
> kebetulan saya juga bekerja di bagian keuangan instansi pemerintah.
>
> sebelumnya sy juga menggunakan banyak formula/rumus untuk membuat laporan.
> tapi setelah menemukan Tunas Gadget dan JMT Utilities, pekerjaan jadi lebih
> ringan tanpa harus membuat rumus yang terkadang
>
> ini saya lampirkan file yang sudah sy download, semua petunjuk dan
> informasi penggunaan bisa didapat di http://formula-excel.blogspot.com/
>
> ===============================================================
> catatan mod:
> mohon maaf pak Dhanu,
> File terpaksa kena cekal karena volumnya terlalu besar
> (3117 KB dan 315 KB), melanggra peraturan milis.
> Untuk yg 315KB akan segera kami susulkan dlm post terpisah
> setelah kami compress ( zip) menjadi sekitar 109KB
> Untuk file yg 3117KB sudah dlm bentuk zip, sedang kami carikan
> caranya, mungkin di-unggah ke suatu OnlineSharedStorage)
> Atau-kah akaan bapak upload ke blog bapak ?
> ===============================================================
>
>
6.

bagaimana rumus untuk menarik data difile yg terlampir

Posted by: "Tarigan Mergana" anwartarigan@gmail.com

Wed Jul 6, 2011 2:08 am (PDT)



dear excel mania, disini saya lampirkan masalah saya, walaupun mungkin
masalah biasa tapi saya belum bisa menyelesaikannya, semoga ada yang
berkenan untuk menjawabnya.

Salam,
Anwar Tarigan
7a.

Fw: Re: [belajar-excel] Duplikat data di sheet lain

Posted by: "Bachelor Ard" bachelor_ard@yahoo.com   bachelor_ard

Wed Jul 6, 2011 5:19 am (PDT)



maksih mas saya sudah lihat filex, namun masih bingung, sebenarnya yang
tanggapan terkahir dari mba citi dan mas ghozi udah ok! tinggal sedikit lagi
nilai belanjaan & jml sub totalnya yang dimasukkan kedalam range cattan belanja
yang belum masuk otomatis ke sheet grand total

mohon dicerahkan lebih lanjut
makasih sebelumnya

----- Forwarded Message ----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wed, July 6, 2011 10:11:24 AM
Subject: Fw: Re: [belajar-excel] Duplikat data di sheet lain

Jika anda mau, bisa dibuat dua kolom tambahan, yaitu : Program Sekolah dan No.
Kode, sehinggaSub Totalnya bisa per Program Sekolah atau per No. Kode (sayangnya
belum bisa tertulis dua2nya).

Lihat sheet Catatan Pengeluaran (2) dan Catatan Pengeluaran (3) pada contoh
terlampir.

Salam,
Hendrik Karnadi

Catatan : Jika menggunakan Macro maka No. Kode dapat dipilih dari Daftar yang
ada pada Post Pengeluaran dan Program Sekolah dapat diisi secara otomatis dengan
fungsi Vlookup pada sheet "Data Entry". Kemudian ditranspose ke sheet Catatan
Pengeluaran.


--- On Wed, 6/7/11, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:
>From: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Subject: Re: [belajar-excel] Duplikat data di sheet lain
>To: belajar-excel@yahoogroups.com
>Date: Wednesday, 6 July, 2011, 8:09 AM
>
>Sebenarnya yang anda maksud "duplikat" adalah "summary"
>
>Kalau boleh saya sarankan dibuat satu database dengan satu kolom tambahan No.
>Kode pada sheet "Catatan Pengeluaran"; No Kode harus ditentukan lebih dahulu.
>Setelah semua data diinput maka dapat dibuat Sub Total per No. Kode.pada sheet
>"Catatan Pengeluaran". Sub Total dan Grand Total akan muncul secara otomatis.
>
>Untuk mempermudah pengisian bisa dibuatkan satu tambahan sheet "Data Entry" yang
>akan ditranspose (dengan macro) ke sheet "Catatan Pengeluaran".
>
>Semoga dapat membantu.
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>--- On Wed, 6/7/11, Bachelor Ard <bachelor_ard@yahoo.com> wrote:
>
>>From: Bachelor Ard <bachelor_ard@yahoo.com>
>>Subject: Re: [belajar-excel] Duplikat data di sheet lain
>>To: belajar-excel@yahoogroups.com
>>Date: Wednesday, 6 July, 2011, 2:01 AM
>>
>>
>>Mohon bantuan pada mester2..
>>ini contoh filenya probelmnya
>>mohon maaf bila cara penyampaian dalam attac masih belum jelas
>>
>>semoga masih bersedia membantu
>>
>>________________________________
>>From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>
>>Sent: Mon, July 4, 2011 6:17:29 AM
>>Subject: Re: [belajar-excel] Duplikat data di sheet lain
>>
>>untuk lebih memudahkan memahami maksud dari yang diharapkan coba dikirimkan
>>attachment riil yang bisa menggambarkan keinginan yang dimaksud.
>>
>>jadi tanggapan yang diberikan akan berusaha mendekati yang diharapkan.
>>
>>wassalam
>>Ghozi Alkatiri

8a.

Re: Bls: [belajar-excel] Rumus kelipatan

Posted by: "Luna" sweet_luna21@yahoo.com   sweet_luna21

Wed Jul 6, 2011 5:45 am (PDT)



Terima kasih, Pak Ghozi.

Sudah saya coba, dan berhasil :)..

Ini sebabnya saya suka excel...dengan rumus yang tepat, kerjaan jadi jauh lebih cepat (meski harus tanya2 rumus tepatnya, tapi hasil dari bertanya itu tidak sia2)

Thanks again.

--- In belajar-excel@yahoogroups.com, ghozi alkatiri <ghozialkatiri@...> wrote:
>
> terima kasih koreksinya
>
> untuk hasil yang pas agar masa kerja kurang dari 12 bulan tidak mendapat hak cuti maka formula pada kolom hak cuti diganti menjadi
>
> =IF(ROUND((A2-B2)/365;1)<1;0;IF(MOD(ROUND((A2-B2)/365;1);5)=0;25;12))
>
> silahkan dicoba kembali
>
> wassalam
> Ghozi Alkatiri
>
> --- Pada Rab, 6/7/11, STDEV(i) <setiyowati.devi@...> menulis:
> 2011/7/6 Yahoo! Groups Notification <belajar-excel-accept------->
>
>
> From: "Luna" <sweet_luna21@...>
> To: belajar-excel@yahoogroups.com
> Date: Tue, 05 Jul 2011 12:26:35 -0000
> Subject: Re: Bls: [belajar-excel] Rumus kelipatan
> Terima kasih, Pak Ghozi.
>
> Konsepnya benar, Pak, dan angka 25 atau 12 yang saya maksud adalah utk jumlah hari cuti yang menjadi haknya. Hanya sewaktu saya mencoba mengubah tanggal join date (kolom B) pada file yang Bapak berikan, formulanya langsung tidak ngikut.
>
> Contoh bbrp tgl Join Date dan hasil yang muncul pada file tsb:
>
> Join Date        Masa Kerja     Hak Cuti
> 1 Mei 1985       26.2           12
> 29 Oct 1986      24.7           12
> 11 Apr 2011      0.2            12
>
> Sementara, peraturan perusahaan adalah:
> - Kalau masa kerja seseorang mencapai 12 bulan (dan kelipatannya - sehingga mereka yg dibawah 12 bulan belum menerima hak cuti), maka ybs berhak atas 12 hari kerja, terkecuali
>
> - ybs memasuki masa kerja tahun ke 5 (dan kelipatannya), maka ybs berhak atas hak cuti 25 hari kerja
>
> Demikian, Pak, kondisinya.
>
> Salam

9a.

Re: Merubah kata Series pd grafik

Posted by: "stefen" stefen@kofi.co.id

Wed Jul 6, 2011 6:54 am (PDT)



Nyumbang saran aja pak

Kalau saya biasanya mouse klick kanan di daerah grafik choice source data
and klick series nah di bagian bawah tinggal pilih series 1 ganti apa pak
dst

Thanks

Belajar Excell bisa bikin Excell-ent

_____

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of hendrik karnadi
Sent: 06 July 2011 13:12
To: belajar-excel@yahoogroups.com
Subject: Fw: Re: [belajar-excel] Merubah kata Series pd grafik

Ikutan jawab.

Baris judul memang harus dipilih dengan memilih Select Data, kemudian Edit
Rangenya (seperti kata pak HerrSoe, Range B9 musti ikutan).

Salam,

Hendrik Karnadi

--- On Wed, 6/7/11, HerrSoe <herrsoe@gmail.com> wrote:

From: HerrSoe <herrsoe@gmail.com>
Subject: Re: [belajar-excel] Merubah kata Series pd grafik
To: belajar-excel@yahoogroups.com
Date: Wednesday, 6 July, 2011, 1:06 PM

Mohon dicoba diulangi prosesnya, tetapi pada saat memilih range data,
baris JUDUL KOLOMnya diikutkan / ikut di pilih (B9:E19)
BUKAN B10:E20

Nantinya nama series akan otomatis sesuai judul kolom

2011/7/6 Liwu Florez <liwu_handoko@yahoo.com
<http://aa.mc1105.mail.yahoo.com/mc/compose?to=liwu_handoko@yahoo.com> >

Mohon pencerahan para pakar excell untuk merubah kata Series1, Series2,
Series3 menjadi 2007, 2008, 2009, caranya bagaimana? Thx atas bantuannya

Handoko

10a.

Re: Rumus Mencari Nilai 'MAKA' bersyarat.

Posted by: "adam" adam_01rd@yahoo.co.id   adam_01rd

Wed Jul 6, 2011 1:24 pm (PDT)



Terima kasih be Excellers...
Smoga dpt bermanfaat utk semua

From: belajar-excel@yahoogroups.com On Behalf Of Haps
Sent: Tuesday, July 05, 2011 3:39 PM

halo pak adam,
rumusnya :
=MIN((F5>0)*1+(INT(F5/3)),6)

atau kalau ingin yg pakai "IF-IF-an" (pinjam istilah siti)
=IF(F5<3,0,IF(F5<6,2,IF(F5<9,3,IF(F5<12,4,IF(F5<15,5,6)))))

---------- Forwarded message ----------
From: "adam" <adam_01rd@yahoo.co.id>
Date: Tue, 5 Jul 2011 10:59:08 +0700
Subject:

Para suhu .tolong donk.buatkan rumus utk attcm ini
Ud Pusing engga ktemu2 rumusnya.
Terima kasih sebelumnya

======================================
---catatan moderator ---
kutipan pertanyaan yg ada di sheet lampiran:
SOAL:
masakerja kurang dari 3 th maka 0
masakerja 3 th lebih tapi kurang dari 6 th maka 2
masakerja 6 th lebih tapi kurang dari 9 th maka 3
masakerja 9 th lebih tapi kurang dari 12 th maka 4
masakerja 12 th lebih tapi kurang dari 15 th maka 5
masakerja lebih 15 th maka 6

posting dari "adam" ini sudah di approved sejak jam 10:59 tadi,
< Jul 5, 2011 10:59 am // adam_01rd <adam_01rd@yahoo.co.id> // Moderated
message: "(no subject)" >
tetapi belum masuk list sampai saat ini

kami post ulang dengan meng-quote notification dari sistem yahoo!Gorups sptdi atas.mudah-mudahan segera terjawab

@ pak adam,
* untuk posting y.a.d. kolom SUBJECT HARUS DIISI,
* maksud email / pertanyaan harus dituils di badan email
* baca peraturan milis
* terima kasih....
==============================================

10b.

Re: Rumus Mencari Nilai 'MAKA' bersyarat.

Posted by: "Haps" hapsari.stlizbeth@gmail.com   liz_hap

Wed Jul 6, 2011 2:35 pm (PDT)



*rumus dari saya 'kan masih salah, kok gak complain ya* ??
(berarti belum dibaca , he he..)

salah tulis
=MIN((F5>*0*)*1+(INT(F5/3)),6)

seharusnya
=MIN((F5>*3*)*1+(INT(F5/3)),6)

tambahan rumus pak anton itu Oke juga lho Oom..
=(F5>=3)*MIN(INT(F5/3)+1,6)

rgds,
haps.~

================================
*2011/7/6 adam <adam_01rd@yahoo.co.id>
>
> Terima kasih be Excellers...
> Smoga dpt bermanfaat utk semua

*>-------------------------------------
> From: belajar-excel@yahoogroups.com On Behalf Of Haps
> Sent: Tuesday, July 05, 2011 3:39 PM
>
> halo pak adam,
> rumusnya :
> =MIN((F5>*0*)*1+(INT(F5/3)),6)
>
> atau kalau ingin yg pakai "IF-IF-an" (pinjam istilah siti)
> =IF(F5<3,0,IF(F5<6,2,IF(F5<9,3,IF(F5<12,4,IF(F5<15,5,6)))))
11a.

Re: Bls: [belajar-excel] Hapus duplikat tetapi berdasarkan syarat pr

Posted by: "Jen_Se7en" j3n_5z@yahoo.com   j3n_5z

Wed Jul 6, 2011 4:53 pm (PDT)



hi ghozi, untuk rumus :

* =IF(B2="just open ?";"x";IF(B2="open,not click";"y";"z")) --> berjalan
dan mengerti
*
=IF(AND(C2<>"z";COUNTIFS(A$1:$A$21;A2;C$1:$C$21;"Z")=1);"";IF(AND(C2="X"\
;COUNTIFS(A$1:$A$21;A2;C$1:$C$21;"y")=1);"";A2))
Untuk rumus ini juga berjalan dan mengerti..... Tetapi tidak
berjalan dengan baik karena entah mengapa ketika dicoba, duplikat
sebagian bisa hilang tetapi masih ada yang terduplikat?
Dan untuk rumus
"{=IFERROR(INDEX(A$2:A$21;SMALL(IF(LEN($D$2:$D$21);MATCH($D$2:$D$21;$D$2\
:$D$21;0));ROW(1:1)));"")}"Ini saya bingung untuk bagaimana ya? karena
tidak berjalan pada excel saya. >.<
btw thanks b4

--- In belajar-excel@yahoogroups.com, ghozi alkatiri <ghozialkatiri@...> wrote:
>
> untuk solusi kasus ini saya menggunakan dua kolom bantu (dummy)
> dummy1 memberi kode x y z sesuai dengan kriteria
> formulanya
> =IF(B2="just open ?";"x";IF(B2="open,not click";"y";"z"))
>
> dummy2 mengeluarkan duplikat data yang specifikasinya lebih prioritas
sesuai dengan kriteria yang disepakati
> formulanya
>
=IF(AND(C2<>"z";COUNTIFS(A$1:$A$21;A2;C$1:$C$21;"Z")=1);"";IF(AND(C2="X"\
;COUNTIFS(A$1:$A$21;A2;C$1:$C$21;"y")=1);"";A2))
>
> selalnjutnya dari tabel dummy2 ini digunakan untuk memfilter data yang
sesuai dengan skala prioritas untuk ditampilkan secara berurutan dengan
formula array
>
> untuk kolom email address formulanya
>
{=IFERROR(INDEX(A$2:A$21;SMALL(IF(LEN($D$2:$D$21);MATCH($D$2:$D$21;$D$2:\
$D$21;0));ROW(1:1)));"")}
> dan hasilnya bisa dicopy ke kanan untuk mengisi kolom information dan
ke bawah untuk mengisi seluruh tabel .
>
> NOTE:
> mohon maaf sebaigaian besar formula di atas hanya berlaku untuk excel 2007 ke atas karena ada fungsi SUMIFS dan IFFERROR
>
> wassalam
>
> Ghozi Alkatiri
>

12.

Bls: Fw: Re: [belajar-excel] Duplikat data di sheet lain

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Wed Jul 6, 2011 5:08 pm (PDT)



saya mencoba menawarkan solusi full formula sebagaimana yang bapak kehendaki.
untuk menambahkan data manual pada baris yang diinginkan di sheet catatan pengeluaran tinggal meninsert rows pada baris yang ingin disisipi data manual. formula yang ada menggunakan indirect jadi tidak terpengaruh oleh tambahan baris manual. formula summary di sheet grand total menggunakan array.
untuk lebih jelasnya lihat langsung di attachment

saya tunggu komentarnya

wassalam

Ghozi Alkatiri

--- Pada Rab, 6/7/11, Bachelor Ard <bachelor_ard@yahoo.com> menulis:

Dari: Bachelor Ard <bachelor_ard@yahoo.com>
Judul: Fw: Re: [belajar-excel] Duplikat data di sheet lain
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 6 Juli, 2011, 6:34 PM

 

maksih mas saya sudah lihat filex, namun masih bingung, sebenarnya yang

tanggapan terkahir dari mba citi dan mas ghozi udah ok! tinggal sedikit lagi

nilai belanjaan & jml sub totalnya yang dimasukkan kedalam range cattan belanja

yang belum masuk otomatis ke sheet grand total

mohon dicerahkan lebih lanjut

makasih sebelumnya

----- Forwarded Message ----

From: hendrik karnadi <hendrikkarnadi@yahoo.com>

To: belajar-excel@yahoogroups.com

Sent: Wed, July 6, 2011 10:11:24 AM

Subject: Fw: Re: [belajar-excel] Duplikat data di sheet lain

Jika anda mau, bisa dibuat dua kolom tambahan, yaitu : Program Sekolah dan No.

Kode, sehinggaSub Totalnya bisa per Program Sekolah atau per No. Kode (sayangnya

belum bisa tertulis dua2nya).

Lihat sheet Catatan Pengeluaran (2) dan Catatan Pengeluaran (3) pada contoh

terlampir.

Salam,

Hendrik Karnadi

Catatan : Jika menggunakan Macro maka No. Kode dapat dipilih dari Daftar yang

ada pada Post Pengeluaran dan Program Sekolah dapat diisi secara otomatis dengan

fungsi Vlookup pada sheet "Data Entry". Kemudian ditranspose ke sheet Catatan

Pengeluaran.

--- On Wed, 6/7/11, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

>From: hendrik karnadi <hendrikkarnadi@yahoo.com>

>Subject: Re: [belajar-excel] Duplikat data di sheet lain

>To: belajar-excel@yahoogroups.com

>Date: Wednesday, 6 July, 2011, 8:09 AM

>

>Sebenarnya yang anda maksud "duplikat" adalah "summary"

>

>Kalau boleh saya sarankan dibuat satu database dengan satu kolom tambahan No.

>Kode pada sheet "Catatan Pengeluaran"; No Kode harus ditentukan lebih dahulu.

>Setelah semua data diinput maka dapat dibuat Sub Total per No. Kode.pada sheet

>"Catatan Pengeluaran". Sub Total dan Grand Total akan muncul secara otomatis.

>

>Untuk mempermudah pengisian bisa dibuatkan satu tambahan sheet "Data Entry" yang

>akan ditranspose (dengan macro) ke sheet "Catatan Pengeluaran".

>

>Semoga dapat membantu.

>

>Salam,

>Hendrik Karnadi

>

>

>

>

>--- On Wed, 6/7/11, Bachelor Ard <bachelor_ard@yahoo.com> wrote:

>

>>From: Bachelor Ard <bachelor_ard@yahoo.com>

>>Subject: Re: [belajar-excel] Duplikat data di sheet lain

>>To: belajar-excel@yahoogroups.com

>>Date: Wednesday, 6 July, 2011, 2:01 AM

>>

>>

>>Mohon bantuan pada mester2..

>>ini contoh filenya probelmnya

>>mohon maaf bila cara penyampaian dalam attac masih belum jelas

>>

>>semoga masih bersedia membantu

>>

>>________________________________

>>From: ghozi alkatiri <ghozialkatiri@yahoo.co.id>

>>Sent: Mon, July 4, 2011 6:17:29 AM

>>Subject: Re: [belajar-excel] Duplikat data di sheet lain

>>

>>untuk lebih memudahkan memahami maksud dari yang diharapkan coba dikirimkan

>>attachment riil yang bisa menggambarkan keinginan yang dimaksud.

>>

>>jadi tanggapan yang diberikan akan berusaha mendekati yang diharapkan.

>>

>>wassalam

>>Ghozi Alkatiri

13a.

Re: selisih jika dijumlahkan

Posted by: "Rey" personalia_manado@ag.co.id

Wed Jul 6, 2011 5:27 pm (PDT)



ia juga sih mba siti..disistem kami yang aku imput misalkan jumlahnya 23005...tapi setelah dijumlahkan pake excel jumlahnya menjadi 23004....aku pikir2 apakah sistem yang bermasalah atau excel yang salah jumlah...di excel aku sudah lihat satu demi satu jumlahnya memang kurang...tapi sudahlah mungkin disistem (program) yang salah...

tq mbak siti...aku juga baru buka kemarin emailnya....

----- Original Message -----
From: Rey
To: belajar-excel@yahoogroups.com
Sent: Tuesday, July 05, 2011 11:14 AM
Subject: [belajar-excel] selisih jika dijumlahkan

Mohon bantuannya...
Mengapa diexcel jika di sum selalu hasilnya ada selisih plus 1 atau min 1 bahkan lebih...
padahal kalau dihitung manual hasilnya klob.

apa yang harus di lakukan>>>tq

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.
14a.

Re: merevisi isi data

Posted by: "R T Gultom" ro_tag@yahoo.com   ro_tag

Wed Jul 6, 2011 6:15 pm (PDT)



Dear All,

Setelah di applikasi macronya ternyata setiap melakukan eksekusi harus mengedit macronya karena data yang di terima owrkbook, sheet dan range tidak sama
apakah bisa dibuat jadi variable jadi tidak mengedit macro cukup dengan perintah buka file, pilih sheet dan range

Regards,
Gultom

--- On Mon, 7/4/11, R T Gultom <ro_tag@yahoo.com> wrote:

From: R T Gultom <ro_tag@yahoo.com>
Subject: Re: [belajar-excel] Re: merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Monday, July 4, 2011, 4:58 PM

 

Ok salut sama be excel sudah selesai mempelajarinya rupanya ada kesalahan penempatan di file "List"
tinggal apply ke acualisasinya
Regards,

--- On Mon, 7/4/11, R T Gultom <ro_tag@yahoo.com> wrote:

From: R T Gultom <ro_tag@yahoo.com>
Subject: Re: [belajar-excel] Re: merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Monday, July 4, 2011, 4:29 PM

 

kalau berkenan  tolong dikoreksi karena waktu saya exekusi fail
data terlampir

--- On Mon, 7/4/11, sudarsono <jkssbma@live.com> wrote:

From: sudarsono <jkssbma@live.com>
Subject: [belajar-excel] Re: merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Monday, July 4, 2011, 4:16 PM

 

Function carinilai(ByVal daerah As Range, ByVal strcari As String) As Range

Dim ketemu As Range

Set ketemu = daerah.Find(what:=strcari, LookIn:=xlValues, SearchOrder:=xlByRows)

Set cariterakhir = ketemu

End Function

koreksi menjadi

Function carinilai(ByVal daerah As Range, ByVal strcari As String) As Range

Dim ketemu As Range

Set ketemu = daerah.Find(what:=strcari, LookIn:=xlValues, SearchOrder:=xlByRows)

Set carinilai= ketemu

End Function

menurut saya apa yang disarankan Master Kid itu benar, gunakan fungsi cariniai untuk memperoleh baris yang diinginkan.....

--- In belajar-excel@yahoogroups.com, R T Gultom <ro_tag@...> wrote:

>

> betual juga sih, tapi masih belum ketemu formatnya mengingat

> Ada data type barang dengan kondisi order no (IP), tanggal order, tanggal permintaan (bulan), jumlah per bulan (di insert baris) menkondisikan pengiriman barang karena tanggal permintaan bisa 5 kali dalam satu minggu sementara tangal pengiriman cuma satu kali dalam seminggu

> dengan kondisi tertentu si customer bisa merubah tanggal permintaan sesuai dengan lain productnya mereka dan ini yang akan saya robah (dal;am case ini) untuk menyesuaikan kembali tanggal pengiriman

>

>  setelah itu saya pivot untuk mengetaui per type per minggu dan per bulan berapa

>

>

> --- On Mon, 7/4/11, Mr. Kid <mr.nmkid@...> wrote:

>

> From: Mr. Kid <mr.nmkid@...>

> Subject: Re: [belajar-excel] merevisi isi data

> To: belajar-excel@yahoogroups.com

> Date: Monday, July 4, 2011, 3:13 PM

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

> Kenapa tidak buat master data yang berisi :

> tgl_input , tgl_ip , nilai_ip

> Kan gak repot mewarnai, gak repot cari-cari, bisa report banyak hal, sampai sejarah penggantiannya pun bisa.

>

> ;-)

> Kid.

>

>

>

> 2011/7/4 R T Gultom <ro_tag@...>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

> mulai mendekati. tapi saya pelajari dulu untuk merubah variablenya

> tapi kalau tidak salah sepintas bahwa di revisi kita sorot satu persatu sehingga macro exekusi dengan mengganti tangal di list cmiiw

>

>

> ntar kalau mentok nanya lagi yah.....

> sebenarnya masih ada tambahan yaitu setelah diganti tanggal dengan tanggal revisi di beri warna di range untuk menandakan itu adalah revisi,

>

>

>

> --- On Mon, 7/4/11, Sudarsono Suhenk <jkssbma@...> wrote:

>

>

>

> From: Sudarsono Suhenk <jkssbma@...>

> Subject: RE: [belajar-excel] merevisi isi data

>

>

> To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>

> Date: Monday, July 4, 2011, 2:53 PM

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

> gunakan saja find :

>  

> Function carinilai(ByVal daerah As Range, ByVal strcari As String) As Range

>  Â Ã‚  Dim ketemu As Range

>  Â Ã‚  Set ketemu = daerah.Find(what:=strcari, LookIn:=xlValues, SearchOrder:=xlByRows)

>

>

>  Â Ã‚  Set cariterakhir = ketemu

> End Function

>  

> Sub ya()

>  Â Ã‚  Dim sel As Range

>  Â Ã‚  Dim wk As Workbook

>  Â Ã‚  Set wk = ActiveWorkbook

>  Â Ã‚  For Each sel In Workbooks("rev.xls").Sheets("ubah").Range("Q31:Q34")

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  nilaicari = sel.Offset(0, 0)

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  nilaiganti = sel.Offset(0, -1)

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set ketemu = carinilai(wk.Sheets("Sumeri").Range("N8:O29"), nilaicari)

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  If Not ketemu Is Nothing

> Then

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  ketemu.Offset(0, -1) = nilaiganti

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  End If

>  Â Ã‚  Next

>  Â Ã‚ 

>  Â Ã‚ 

> End Sub

>

> '===============

> To: belajar-excel@yahoogroups.com

>

>

> From: ro_tag@...

> Date: Mon, 4 Jul 2011 15:05:43 +0800

> Subject: RE: [belajar-excel] merevisi isi data

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

>

> sebenarnya yang dibutuhkan adalah sebagai berikut :

> cari ip revisi di ip lista dan

> ganti tanggal list dengan tanggal revisi

>

>

> tapi membuat loopnya ribet saya utak-utik tidak ketemu

>

>

> --- On Mon, 7/4/11, R T Gultom <ro_tag@...> wrote:

>

> From: R T Gultom <ro_tag@...>

>

>

> Subject: RE: [belajar-excel] merevisi isi data

> To: belajar-excel@yahoogroups.com

> Date: Monday, July 4, 2011, 2:01 PM

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

> Wah mantab, tapi sayang persayaratannya adalah :

> tidak ada penghapusan baris, karena isi dari baris revisi dengan list tidak sama, sehingga masih ada yang dipakai di list data baris sebelumnya

>

>

> sebenarnya yang dibuthkan adalah bagaimana mengganti tangal yang di revisi saja tanpa menambah baris atau menghapus baris

> karena masing2 data isinya selain dari IP dan tanggal adalah berbeda-beda

> Regards,

> Gultom

>
50A>

>

>

> --- On Fri, 7/1/11, Sudarsono Suhenk <jkssbma@...> wrote:

>

> From: Sudarsono Suhenk <jkssbma@...>

>

>

> Subject: RE: [belajar-excel] merevisi isi data

> To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>

>

>

> Date: Friday, July 1, 2011, 7:40 PM

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

>

> atau jika apapun yang ada di sheet ubah yang merupakan kondisi terakhir ( update ) gunakan cara ini :

>  

> Option Explicit

> Sub GabungTabelAntarWorkbook()

>  Â Ã‚  Dim AnakDulu As Boolean

>  Â Ã‚  AnakDulu = True

>  Â Ã‚  Dim INDUK As Range, ANAKK As Range

>

>

>  Â Ã‚  Dim workbookutama, workbookanak As String

>  Â Ã‚  workbookutama = ActiveWorkbook.Name

>  Â Ã‚  Workbooks.Open Filename:=ActiveWorkbook.Path & "\rev.xls", Notify:=False

>  Â Ã‚  workbookanak = ActiveWorkbook.Name

>

>

>  Â Ã‚  Dim jumbaris As Long

>  Â Ã‚  If AnakDulu Then

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Workbooks(workbookanak).Activate

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah"))

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri")).Offset(1,

> 0)

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  jumbaris = ANAKK.Rows.Count

>  Â Ã‚  Else

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Workbooks(workbookutama).Activate

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  jumbaris = INDUK.Rows.Count

>  Â Ã‚  End If

>  Â Ã‚  Workbooks(workbookutama).Activate

>  Â Ã‚  If AnakDulu Then

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  ANAKK.Copy Destination:=Sheets("sheet1").Range("A1")

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  INDUK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)

>

>

>  Â Ã‚  Else

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  INDUK.Copy

> Destination:=Sheets("sheet1").Range("A1")

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)

>  Â Ã‚  End If

>  Â Ã‚  Call hapusganda

>  Â Ã‚  Call sortdata

>

>

> End Sub

> '===================================================================================================

> Private Function ctvUsedRange(Optional Sht As Worksheet) As Range

>  Â  ' siti Vi // Bluewater, 24 Nov 2009

>

>

>  Â  ' last refine: Jurangmangu, 19 Jun 2011

>  Â  '---------------------------------------

>  Â Ã‚  Dim FstRow As Long, FstCol As Integer

>  Â Ã‚  Dim LstRow As Long, LstCol As Integer

>  Â Ã‚  On Error Resume Next

>  Â Ã‚  If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht

>

>

>  Â Ã‚  With Sht

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ 

> Sht.Select

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  If Not Cells(1) = vbNullString Then

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstRow = 1: FstCol = 1

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Else

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  End If

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Set ctvUsedRange = Range(.Cells(FstRow,

> FstCol), .Cells(LstRow, LstCol))

>  Â Ã‚  End With

> End Function

> Sub sortdata()

>  Â Ã‚  Sheets("Sheet1").Select

>  Â Ã‚  Range("A1").Select

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

>

>

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

>  Â Ã‚ Ã‚  With ActiveWorkbook.Worksheets("Sheet1").Sort

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .SetRange Range("A1:B27")

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Header = xlYes

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .MatchCase

> = False

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Orientation = xlTopToBottom

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .SortMethod = xlPinYin

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Apply

>  Â Ã‚  End With

> End Sub

> Sub hapusganda()

>  Â Ã‚  Sheets("Sheet1").Select

>  Â Ã‚  Range("A1").Select

>

>

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

>  Â Ã‚  ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  :=xlYes

>  Â Ã‚  ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes

>

>

> End Sub

>

> Apa sudah sesuai ??? 

> To: belajar-excel@yahoogroups.com

> From: jkssbma@...

>

>

> Date: Fri, 1 Jul 2011 17:09:37 +0700

> Subject: RE: [belajar-excel] merevisi isi data

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

> Bulan

> IP

>

>

> 1-Jun-2011

> IP-3457

>

>

> 2-Jun-2011

> IP-3458

>

>

> 3-Jun-2011

> IP-3459

>

>

> 4-Jun-2011

> IP-3460

>

>

> 5-Jun-2011

> IP-3461

>

>

> 6-Jun-2011

> IP-3462

>

>

> 7-Jun-2011

> IP-3463

>

>

> 8-Jun-2011

> IP-3464

>

>

> 9-Jun-2011

> IP-3465

>

>

> 10-Jun-2011

> IP-3466

>

>

> 11-Jun-2011

>

>

>

> IP-3467

>

>

> 12-Jun-2011

> IP-3468

>

>

> 13-Jun-2011

> IP-3469

>

>

> 14-Jun-2011

> IP-3470

>

>

> 15-Jun-2011

> IP-3471

>

>

> 16-Jun-2011

> IP-3472

>

>

> 17-Jun-2011

> IP-3473

>

>

> 18-Jun-2011

> IP-3474

>

>

> 19-Jun-2011

> IP-3475

>

>

> 20-Jun-2011

> IP-3476

>

>

> 21-Jun-2011

> IP-3477

>

>

> 22-Jun-2011

> IP-3478

>

>

>

>  

>

>

>

>

>

> Bulan

> IP

>

>

> 13-Jun-2011

> IP-3465

>

>

> 16-Jun-2011

> IP-3466

>

>

> 4-Jun-2011

>

>

>

> IP-3467

>

>

> 21-Jun-2011

> IP-3468

>

>

>  

>

>

>

>

> Bulan

> IP

>

>

> 1-Jun-2011

> IP-3457

>

>

>

> 2-Jun-2011

> IP-3458

>

>

> 3-Jun-2011

> IP-3459

>

>

> 4-Jun-2011

> IP-3460

>

>

> 5-Jun-2011

> IP-3461

>

>

> 6-Jun-2011

> IP-3462

>

>

> 7-Jun-2011

> IP-3463

>

>

> 8-Jun-2011

> IP-3464

>

>

> 13-Jun-2011

> IP-3465

>

>

> 16-Jun-2011

> IP-3466

>

>

> 11-Jun-2011

>

>

>

> IP-3467

>

>

> 21-Jun-2011

> IP-3468

>

>

> 13-Jun-2011

> IP-3469

>

>

> 14-Jun-2011

> IP-3470

>

>

> 15-Jun-2011

> IP-3471

>

>

> 16-Jun-2011

> IP-3472

>

>

> 17-Jun-2011

> IP-3473

>

>

> 18-Jun-2011

> IP-3474

>

>

> 19-Jun-2011

> IP-3475

>

>

> 20-Jun-2011

> IP-3476

>

>

> 21-Jun-2011

> IP-3477

>

>

> 22-Jun-2011

> IP-3478

>

>

>  

>  

> untuk IP-3467 apa tanggal terakhir 11 Juni 2011 , bukan 4 Juni 2011 ?

>  

> Sub GabungTabelAntarWorkbook()

>  Â  ' siti Vi // Bluewater, 1 Juli 2011

>  Â  ' workbook "rev.xls" harus sudah terbuka

>

>

>  Â  '---------------------------------------

>  Â  Dim INDUK As Range, ANAKK As Range

>  Â  Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))

>  Â  Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)

>

>

>  

>  Â Ã‚  Dim jumbaris As Long

>  Â Ã‚  jumbaris = INDUK.Rows.Count

>

>  Â Ã‚  INDUK.Copy Destination:=Sheets("sheet1").Range("A1")

>  Â Ã‚  ANAKK.Copy Destination:=Sheets("sheet1").Range("A" & jumbaris + 1)

>

>

>  Â Ã‚  Call sortdata

>  Â 

> End

> Sub

>  

> '===================================================================================================

> Private Function ctvUsedRange(Optional Sht As Worksheet) As Range

>  Â  ' siti Vi // Bluewater, 24 Nov 2009

>

>

>  Â  ' last refine: Jurangmangu, 19 Jun 2011

>  Â  '---------------------------------------

>  Â  Dim FstRow As Long, FstCol As Integer

>  Â  Dim LstRow As Long, LstCol As Integer

>  Â  On Error Resume Next

>  Â  If Sht Is Nothing Then Set Sht = ActiveSheet ' Else Set Sht = Sht

>

>

>  Â  With Sht

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  Sht.Select

>  Â Ã‚ Ã‚ Ã‚  If Not Cells(1) = vbNullString Then

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstRow = 1: FstCol = 1

>  Â Ã‚ Ã‚ Ã‚ 

> Else

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstRow = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  FstCol = .Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column

>

>

>  Â Ã‚ Ã‚ Ã‚  End If

>  Â Ã‚ Ã‚ Ã‚  LstRow = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row

>  Â Ã‚ Ã‚ Ã‚  LstCol = .Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column

>

>

>  Â Ã‚ Ã‚ Ã‚ 

>  Â Ã‚ Ã‚ Ã‚  Set ctvUsedRange = Range(.Cells(FstRow, FstCol), .Cells(LstRow, LstCol))

>  Â  End With

> End Function

> '====================================================================================================

>

>

>

> Sub sortdata()

>  Â Ã‚  Sheets("Sheet1").Select

>  Â Ã‚ 

> Range("A1").Select

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B2:B27") _

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

>

>

>  Â Ã‚  ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A27") _

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

>  Â Ã‚ Ã‚  With ActiveWorkbook.Worksheets("Sheet1").Sort

>

>

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .SetRange Range("A1:B27")

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Header = xlYes

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .MatchCase = False

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Orientation = xlTopToBottom

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .SortMethod =

> xlPinYin

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  .Apply

>  Â Ã‚  End With

>  Â Ã‚  ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=Array(1, 2), Header _

>  Â Ã‚ Ã‚ Ã‚ Ã‚ Ã‚  :=xlYes

>  Â Ã‚  ActiveSheet.Range("$A$1:$B$27").RemoveDuplicates Columns:=2, Header:=xlYes

>

>

> End Sub

>

>  

> catatan :

> Bu Devi , saya ambil beberapa koding nya dan saya modif . Trim's.

>  

>  

>  

>  

>  

> To: belajar-excel@yahoogroups.com

>

>

> From: setiyowati.devi@...

> Date: Fri, 1 Jul 2011 15:05:52 +0700

> Subject: Re: [belajar-excel] merevisi isi data

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

>

> gak ada kabarnya ?...  ya udah, kita anggap seperti DUGAAN semula, dengan tambahan asumsi sbb:

>

>

>

>

> ** tabel yg ada di "workbook List / sheet Sumeri" adalah satu satunya range yg ada di sheet itu

>

>

>

> di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

>

>

>

>

> t** abel yg ada di "workbook rev / sheet ubah" Â adalah satu satunya range yg ada di sheet itu

>

>

>

> di cell lain tidak ada satu titik data pun (kalau ada, deteksi letak tabel bisa salah)

>

>

>

>

> ** saat makro mulai dijalankan(makro berada di workbook LIST),  workbook REV harus susah dibuka.

>

>

>

>

> Kedua tabel yg akan digabung itu boleh dipindah pindah letaknya (termasuk diperbanyak datanya / penambahan ke bawah ) asal masih didalam sheet yg sama;  tetapi tidak boleh 

>

>

>

> ada data/tabel lain diluar range tabel tsb 

>

>

>

>

> Sub GabungTabelAntarWorkbook()

>

>

>

>    ' siti Vi // Bluewater, 1 Juli 2011

>

>    ' workbook "rev.xls" harus sudah terbuka   '---------------------------------------

>

>

>

>    Dim INDUK As Range, ANAKK As Range   

>

>    Set INDUK = ctvUsedRange(ThisWorkbook.Sheets("Sumeri"))   Set ANAKK = ctvUsedRange(Workbooks("rev.xls").Sheets("ubah")).Offset(1, 0)

>

>

>

>    ANAKK.Copy INDUK(INDUK.Rows.Count + 1, 1)   

>

>    INDUK.CurrentRegion.Sort _      Key1:=INDUK(1, 2), Order1:=xlAscending, _

>

>

>

>       Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _      Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

>

>

>

>    End Sub

>

>

>

>

>

>

>

>

> 2011/7/1 STDEV(i) <setiyowati.devi@...>

>

>

> jadi maksud yg sebenarnya bagaimana, mohon diceritakan

>

>

> (kalau melihat GAMBARAN HASIL yg diperlihatkan tadi, sepertinya Â "jalan ceritak" 

>

>

>

>

> yg siti ajukan tadi sudah sesuaijika belum sesuai, di bagian mananya yg masih perlu ubah ? 

>

>

>

>

> nanti bisa kita perbaiki.

> setelah oke, soal mengimplementasikan ke code itu masalah kedua dan gampang.

>

>

>

>

>

> mengenai jumlah records (volume data) tidak jadi masalah, prinsip kerjanya tetap sama.

>

>

>

>

>

> sample yg diajukan seharusnya menggambarkan / mewakili keadaan faktualnya

>

>

>

>

>

>

>

>

>

> 2011/7/1 R T Gultom <ro_tag@...>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>

>  

>

>

>

>

>

>

>

>

>

>

> Sebenarnya selama ini saya pakai system manual

>

>

>

>

>

> dengan vlookup di dummy column di file "List" terus saya pindahin dan di beri color

> data revisi tidak berurutan sebenarnya hanay sample saya ambil dari data (list)

>

>

>

>

>

> Siti Vi wrote

>

> Pakai cara praktis saja

>

>

>

> 1. deteksi letak cell kosong di bawah tabel 1 (list), cukup 1 cell di kolom 1 saja 

>

>

>

>

>

>

> 2. deteksi letak & dimensi tabel 2 (rev) lalu dicopy3. dipaste ke cell hasil langkah 1

>

>

>

>

>

>

> 4. range baru yg terbentk dikenakan metoda sort dengan kolom 2 sbg kunci sorting, order: manaik

>

15a.

Hasil Lookup meleset

Posted by: "agung_widodo@sanyo.com" agung_widodo@sanyo.com

Wed Jul 6, 2011 6:51 pm (PDT)



Dear excellers,

Satu lagi tentang lookup, sederhana sekali.
Tapi lupa solusinya.

No Bulan
1 January
2 February
3 March
4 April
6 June
7 July
8 August
9 September
10 October
11 November
12 December

No Hasil Lookup
5 April

Bagaimana formula / solusinya agar terdeteksi kesalahan bahwa data yang dicari tidak ada
dan bukan memberikan nilai terdekat semacam itu?

Salam
Agung W.
15b.

Re: Hasil Lookup meleset

Posted by: "Ridwan Rahman" ridwan7677@gmail.com

Wed Jul 6, 2011 6:59 pm (PDT)



Mungkin klo pake =index(array;row(match(lookup;array;match type));colom)

Bisa lebih presisi

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of agung_widodo@sanyo.com
Sent: 07 Juli 2011 8:49
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Hasil Lookup meleset

Dear excellers,

Satu lagi tentang lookup, sederhana sekali.

Tapi lupa solusinya.

No

Bulan

1

January

2

February

3

March

4

April

6

June

7

July

8

August

9

September

10

October

11

November

12

December




No

Hasil Lookup

5

April

Bagaimana formula / solusinya agar terdeteksi kesalahan bahwa data yang
dicari tidak ada

dan bukan memberikan nilai terdekat semacam itu?

Salam

Agung W.

15c.

Bls: [belajar-excel] Hasil Lookup meleset

Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id   dwint.ruswanto

Wed Jul 6, 2011 7:07 pm (PDT)



coba gunakan "false" di dalam formula, kira-kira formula akhirnya seperti ini:
 
=vlookup($A16;$A$1:$B$13;2;false)
 
 
Biru : lookup value
Hijau: tabel array
Coklat: kolom yang akan diambil
Merah:kalo diisi FALSE akan menghasilkan hasil yang tepat, kalo diisi dengan TRUE akan menghasilkan dengan nilai yang dekat
 
cmiiw
 
dwint

Dari: "agung_widodo@sanyo.com" <agung_widodo@sanyo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 7 Juli 2011 8:49
Judul: [belajar-excel] Hasil Lookup meleset

 


Dear
excellers,
 
Satu lagi tentang
lookup, sederhana sekali.
Tapi lupa
solusinya.
 
No Bulan
1 January
2 February
3 March
4 April
6 June
7 July
8 August
9 September
10 October
11 November
12 December
No Hasil Lookup
5 April
 
Bagaimana formula /
solusinya agar terdeteksi kesalahan bahwa data yang dicari tidak
ada
dan bukan memberikan
nilai terdekat semacam itu?
 
Salam
Agung
W.
15d.

Re: Hasil Lookup meleset

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Jul 6, 2011 7:18 pm (PDT)



Data di A2:B13
Result di K2:L2

Cek data ada atau tidak : (hasilnya angka >=0)
=CountIF( A2:A13 , K2 )

Ingin jadi tulisan : (pilih salah satu cara)
Cara 1 : Ubah format cell number -> custom -> "Ada datanya";;"gak ada"

Cara 2 : Ubah formula menjadi :
=IF( CountIF( A2:A13 , K2 ) , "Ada datanya" , "gak ada" )

Kid.

2011/7/7 <agung_widodo@sanyo.com>

> **
>
>
> **
> Dear excellers,
>
> Satu lagi tentang lookup, sederhana sekali.
> Tapi lupa solusinya.
>
> No Bulan 1 January 2 February 3 March 4 April 6 June 7 July 8 August
> 9 September 10 October 11 November 12 December No Hasil Lookup 5 April
>
> Bagaimana formula / solusinya agar terdeteksi kesalahan bahwa data yang
> dicari tidak ada
> dan bukan memberikan nilai terdekat semacam itu?
>
> Salam
> Agung W.
>
>
>
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Community resources

for parents

Yahoo! Groups

Dog Zone

Connect w/others

who love dogs.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
---------------------------------------------------------------------
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