Re: ]] XL-mania [[ Copy ke Sheet lain tidak berurutan

 

Dear Yoke,

 

Jawaban terlampir menggunakan macro yang ditempatkan pada "ThisWorlbook".

 

Macronya adalah sbb :

    Private Sub Workbook_SheetActivate(ByVal Sh As Object)
        Range("INPUT").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("CRITERIA"), CopyToRange:=Range("EXTRACT"), _
        Unique:=True
    End Sub
"INPUT", "CRITERIA" dan "EXTRACT" adalah nama-nama Range pada sheet INPUT, KRITERIA dan OUTPUT. Nama Range "INPUT" bersifat dinamis (disesuaikan dengan isi data)

Cara kerjanya :

- Ketik Daftar Barang dan jumlah yang Dibeli

- Klik Sheet OUTPUT, jika jumlahnya > 0 maka Daftar barang Dibeli dan Jumlah akan tampak pada sheet OUTPUT

 

Jangan lupa aktifkan dulu macro anda.

 

Salam,

Hendrik Karnadi

---

From: "Yoke.Cahyadi@ap.o-i.com" <Yoke.Cahyadi@ap.o-i.com>
To: XL-mania@yahoogroups.com
Sent: Tuesday, September 7, 2010 15:43:19
Subject: ]] XL-mania [[ Copy ke Sheet lain tidak berurutan

 

Dear XL-Mania,

Saya mau tanya bagaimana mengcopy dari satu sheet ke sheet lainnya tetapi hanya cell2 tertentu dan tidak berurutan.
Lebih jelasnya saya berikan contohnya dibawah ini :

Atas bantuannya saya ucapkan terima kasih.

Salam,

Yoke


**********************************************************************************

Caution - This email and its content contain privileged information that is intended solely for the recipient. If you are not the intended recipient you are hereby notified that any use, dissemination, distribution or reproduction of this email is prohibited. If you have received this email in error please notify the Postmaster at postmaster@ap.o-i.com immediately. Any views expressed in this email are of the sender and may not necessarily reflect the views of O-I Asia Pacific.

**********************************************************************************

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (3)

Recent Activity:

• New Members 48

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| selamat idul fitri untuk yang merayakan. happy holiday untuk yang |
| tidak merayakan...                                                |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___