Messages In This Digest (13 Messages)
- 1a.
- Re: Summary dalam 1 bulan From: Mr. Kid
- 1b.
- Re: Summary dalam 1 bulan From: M.Ade Alfarid
- 2.1.
- File - Peraturan Milis belajar-excel From: belajar-excel@yahoogroups.com
- 3.
- WTA; mengeluarkan data tertentu supaya tidak ikut ke bulan berikutny From: rofiq sururu
- 4a.
- Re: Tanya memindahkan transaksi otomatis per tanggal From: Sudarsono Suhenk
- 4b.
- Re: Tanya memindahkan transaksi otomatis per tanggal From: william
- 5a.
- Re: Tanya Rumus diskon From: Gober
- 5b.
- Re: Tanya Rumus diskon From: Mr. Kid
- 5c.
- Re: Tanya Rumus diskon From: Gober
- 5d.
- Re: Tanya Rumus diskon From: Mr. Kid
- 6a.
- Re: merevisi isi data From: Sudarsono Suhenk
- 6b.
- Re: merevisi isi data From: R T Gultom
- 7.
- Cara memindahkan data otomatis From: william setiobudi
Messages
- 1a.
-
Re: Summary dalam 1 bulan
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Aug 1, 2011 12:42 am (PDT)
Assalamualaikum Wr. Wb.
Hai Ade,
Array formula untuk mendapatkan unique list :
=INDEX($C$4:$C$18,MATCH( 1,(COUNTIF( K$4:K4,$C$ 4:$C$18)= 0)*(LEN($ C$4:$C$18) >0),0))
Jangan lupa penekanan Ctrl Shift Enter menggantikan penekanan Enter.
Dengan asumsi bahwa yang diproses hanya berisi data 1 bulan, maka summary
berdasar kode adalah :
=SUMIF($C$4:$C$18,$K5, D$4:D$18)
Buat seluruh BeExceler
Mohon Maaf Lahir Batin. Selamat menjalankan ibadah Puasa Ramadhan bagi
saudara sesama muslim.
Wassalamualaikum Wr. Wb.
Kid.
2011/8/1 M.Ade Alfarid <QA@kkmi.co.id>
> **
>
>
> Be-Excelers yang baik,
>
> Mohon bantuan untuk masalah saya dalam membuat summary dalam 1 bulanan.
> Jadi ada beberapa produk yang di buat sama dengan proses yang berbeda dan
> waktu pengerjaan yg berbda pula.
> Untuk produk yang sama bisa dibuat pada waktu yang berbeda pula (tidak
> continue).
>
> Terlampir permasalahannya,,
>
> Terimakasih
>
> Ade
>
>
- 1b.
-
Re: Summary dalam 1 bulan
Posted by: "M.Ade Alfarid" QA@kkmi.co.id aderyo
Mon Aug 1, 2011 1:29 am (PDT)
Wa'alaikum salam wr wb.
Terimakasih Mr Kid,
Case Closed.
Saya juga mohon maaf lahir batin atas khilaf yang sengaja ataupun tidak
sengaja yang telah saya lakukan.
Semoga amal ibadah kita diterima Allah SWT.
Regards,
Ade
On Mon, 01 Aug 2011 14:42:08 +0700, Mr. Kid <mr.nmkid@gmail.com > wrote:
> Assalamualaikum Wr. Wb.
>
> Hai Ade,
>
> Array formula untuk mendapatkan unique list :
> =INDEX($C$4:$C$18,MATCH( 1,(COUNTIF( K$4:K4,$C$ 4:$C$18)= 0)*(LEN($ C$4:$C$18) >0),0))
>
> Jangan lupa penekanan Ctrl Shift Enter menggantikan penekanan Enter.
>
> Dengan asumsi bahwa yang diproses hanya berisi data 1 bulan, maka summary
> berdasar kode adalah :
> =SUMIF($C$4:$C$18,$K5, D$4:D$18)
>
> Buat seluruh BeExceler
> Mohon Maaf Lahir Batin. Selamat menjalankan ibadah Puasa Ramadhan bagi
> saudara sesama muslim.
>
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> 2011/8/1 M.Ade Alfarid <QA@kkmi.co.id>
>
>> **
>>
>>
>> Be-Excelers yang baik,
>>
>> Mohon bantuan untuk masalah saya dalam membuat summary dalam 1 bulanan.
>> Jadi ada beberapa produk yang di buat sama dengan proses yang berbeda
>> dan
>> waktu pengerjaan yg berbda pula.
>> Untuk produk yang sama bisa dibuat pada waktu yang berbeda pula (tidak
>> continue).
>>
>> Terlampir permasalahannya,,
>>
>> Terimakasih
>>
>> Ade
>>
>>
--
Using Opera's revolutionary email client: http://www.opera.com/mail/
- 2.1.
-
File - Peraturan Milis belajar-excel
Posted by: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
Mon Aug 1, 2011 2:11 am (PDT)
"PERATURAN MILIS belajar-excel"
--------------------- --------- -
Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.
Setting untuk posting di milis ini masih dipertahankan = "UnModerated"
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.
Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.
Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah";
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.
Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.
Untuk itu kita perlu kesepakatan sebagai berikut:
SANGAT DIHARAPKAN:
==================
(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.
(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.
(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)
(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.
SANGAT TIDAK DIHARAPKAN:
===================== ===
(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.
(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).
(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).
(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.
(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.
LAIN LAIN:
==========
Saran & Tips menulis mail / posting ke milis:
--------------------- --------- --------- ------
(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong",
"help", "tanya" "mohon pencerahan", dsb)
(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan" dsb, hanya akan merusak 'Thread' (korelasi/kesinambungan)
suatu topik, oleh karena itu jangan dilakukan.
Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.
(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.
(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting' (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.
'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.
Mengenai OOT dan VOOT
---------------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).
Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".
Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan", tidak didelete.
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.
Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.
VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.
Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.
Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri' (jalur pribadi).
Kritik dan saran kepada milis 'belajar-excel'
--------------------- --------- --------- -----
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators
Hak dan wewenang Moderators
--------------------- ------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.
Himbauan dari milis 'belajar excel' kpd members
--------------------- --------- --------- --------
Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.
Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes", maka di net
ada semacam etika umum yg lazim disebut "nettiquette".
Kalau anda sering tidak mengindahkan "nettiquettes", tidak akan polisi
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.
Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".
--------------------- --------- --------- -----[rev: 13mar2010 / ctv]-----
- 3.
-
WTA; mengeluarkan data tertentu supaya tidak ikut ke bulan berikutny
Posted by: "rofiq sururu" rofiqsur@gmail.com sururunaja
Mon Aug 1, 2011 2:22 am (PDT)
minta bantuan
saya ada follow order barang tiap bulan, tp kendalanya data yang tersimpan
semakin lama semakin terakumulasi....
mohon pencerahan dengan mengeluarkan data yang sudah lunas, supaya data
tidak yang lunas tidak memberatkan bulan berikutnya...
terima kasih,matur nuwun
rofik
- 4a.
-
Re: Tanya memindahkan transaksi otomatis per tanggal
Posted by: "Sudarsono Suhenk" jkssbma@live.com jkssbma
Mon Aug 1, 2011 2:44 am (PDT)
Cara upload :Kirim email ke belajar-excel@yahoogroups. dengan attachment file yang Pak William akan kirim ( upload ) .com
To: belajar-excel@yahoogroups. com
From: williamsetiobudi@yahoo.com. sg
Date: Mon, 1 Aug 2011 06:50:21 +0000
Subject: [belajar-excel] Tanya memindahkan transaksi otomatis per tanggal
Rekan2 master dimohon bantuannya;
1. Bagaimana cara memindahkan transaksi secara otomatis ke masing-masing
tgl Jatuh tempo?
2. Bagaimana cara mengupload file contoh ?
Trims
William
- 4b.
-
Re: Tanya memindahkan transaksi otomatis per tanggal
Posted by: "william" williamsetiobudi@yahoo.com.sg williamsetiobudi
Tue Aug 2, 2011 12:06 am (PDT)
Ok trims respondnya...sdh sy upload
Maklum newbie...hehehe [:))] [:))] [:D]
--- In belajar-excel@yahoogroups. , Sudarsono Suhenk <jkssbma@...com >
wrote:
>
>
> Cara upload :Kirim email ke belajar-excel@yahoogroups. dengancom
attachment file yang Pak William akan kirim ( upload ) .
>
> To: belajar-excel@yahoogroups. com
> From: williamsetiobudi@...
> Date: Mon, 1 Aug 2011 06:50:21 +0000
> Subject: [belajar-excel] Tanya memindahkan transaksi otomatis per
tanggal
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Rekan2 master dimohon bantuannya;
>
> 1. Bagaimana cara memindahkan transaksi secara otomatis ke
masing-masing
>
> tgl Jatuh tempo?
>
> 2. Bagaimana cara mengupload file contoh ?
>
>
>
> Trims
>
> William
>
- 5a.
-
Re: Tanya Rumus diskon
Posted by: "Gober" gober.mirc@gmail.com gober_mirc
Mon Aug 1, 2011 2:45 am (PDT)
Hi Bro Kid..
>
>
>
> Ada sedikit kesalahan nih.. Jika angka yang saya masukan itu adalah +
> maka hasilnya tetap terpotong hasilnya. gimana caranya agar hasil +
> yang saya masukan tidak terpotong di totalnya. tp jika hasilnya - maka
> secara otomatis terpotong.
>
>
>
> Trims.. Saya attach kembali filenya..
Note: sorry salah lihat treadnya.
From: Gober [mailto:gober.mirc@gmail.com ]
Sent: Monday, July 18, 2011 1:49 PM
To: 'belajar-excel@yahoogroups. 'com
Subject: RE: [belajar-excel] Tanya Rumus diskon
Terima kasih Mr Kid... sudah jalan formulanya.. Dan terima kasih diksh
option 2 pilihan =)
Salam,
gober
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mr. Kid
Sent: Monday, July 18, 2011 10:41 AM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Tanya Rumus diskon
Jika setiap proses selalu dibulatkan lebih dulu, maka formulanya :
=INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
Jika cukup hasil akhir saja yang dibulatkan :
=E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
Kid.
2011/7/18 Gober <gober.mirc@gmail.com >
Helo Agan2 Excel..
Ane mau Tanya lagi nih rumus diskon jika totalan minus..
Sebenernya sebelumnya sudah dibantu Pak Hendrik.. tapi masih ada kekurangan
yang saya tidak bisa tambahkan sendiri..
Mohon yah tolong dibantuin.
Terlampir
thanks
- 5b.
-
Re: Tanya Rumus diskon
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Aug 1, 2011 2:51 am (PDT)
Pakai IF. Pakai cuplikan formula yang lalu :
=IF( formula_tanpoa_pembulatan > 0 , formula_tanpa_ pembulatan ,
formula_dengan_pembulatan )
Formula tanpa pembulatan sepertinya begini :
=E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
Yang pembulatan :
=INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
Kid.
2011/8/1 Gober <gober.mirc@gmail.com >
> **
>
>
> Hi Bro Kid..****
>
> > ****
>
> > ****
>
> > ****
>
> > Ada sedikit kesalahan nih.. Jika angka yang saya masukan itu adalah + **
> **
>
> > maka hasilnya tetap terpotong hasilnya. gimana caranya agar hasil + ****
>
> > yang saya masukan tidak terpotong di totalnya. tp jika hasilnya - maka *
> ***
>
> > secara otomatis terpotong.****
>
> > ****
>
> > ****
>
> > ****
>
> > Trims.. Saya attach kembali filenya..****
>
> ** **
>
> Note: sorry salah lihat treadnya…****
>
> ** **
>
> *From:* Gober [mailto:gober.mirc@gmail.com ]
> *Sent:* Monday, July 18, 2011 1:49 PM
> *To:* 'belajar-excel@yahoogroups. 'com
> *Subject:* RE: [belajar-excel] Tanya Rumus diskon****
>
> ** **
>
> Terima kasih Mr Kid….. sudah jalan formulanya…. Dan terima kasih diksh
> option 2 pilihan =)****
>
> ** **
>
> ** **
>
> Salam,****
>
> gober****
>
> ** **
>
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *Mr. Kidcom
>
> *Sent:* Monday, July 18, 2011 10:41 AM
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ** **
>
> ****
>
> Jika setiap proses selalu dibulatkan lebih dulu, maka formulanya :
> =INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
>
> Jika cukup hasil akhir saja yang dibulatkan :
> =E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
>
> Kid.****
>
> 2011/7/18 Gober <gober.mirc@gmail.com >****
>
> ****
>
> Helo Agan2 Excel….****
>
> ****
>
> ****
>
> Ane mau Tanya lagi nih rumus diskon jika totalan minus….****
>
> ****
>
> Sebenernya sebelumnya sudah dibantu Pak Hendrik.. tapi masih ada kekurangan
> yang saya tidak bisa tambahkan sendiri….****
>
> ****
>
> Mohon yah tolong dibantuin.****
>
> ****
>
> Terlampir****
>
> ****
>
> ****
>
> thanks****
>
> ** **
>
> ****
>
>
>
>
- 5c.
-
Re: Tanya Rumus diskon
Posted by: "Gober" gober.mirc@gmail.com gober_mirc
Tue Aug 2, 2011 12:06 am (PDT)
Bro Kid. saya sudah coba tetapi masih belum bisa nih... hasilnya yg masih
80750. hasil yang diinginkan adalah tetap 100000
Kecuali kolom E itu -100000 hasil benar 80750
Tolong dikoreksi lagi yah. sorry kl pertanyaanya kurang begitu jelas
Thanks
gober
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mr. Kid
Sent: Monday, August 01, 2011 4:51 PM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Tanya Rumus diskon
Pakai IF. Pakai cuplikan formula yang lalu :
=IF( formula_tanpoa_pembulatan > 0 , formula_tanpa_ pembulatan ,
formula_dengan_pembulatan )
Formula tanpa pembulatan sepertinya begini :
=E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
Yang pembulatan :
=INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
Kid.
2011/8/1 Gober <gober.mirc@gmail.com >
Hi Bro Kid..
>
>
>
> Ada sedikit kesalahan nih.. Jika angka yang saya masukan itu adalah +
> maka hasilnya tetap terpotong hasilnya. gimana caranya agar hasil +
> yang saya masukan tidak terpotong di totalnya. tp jika hasilnya - maka
> secara otomatis terpotong.
>
>
>
> Trims.. Saya attach kembali filenya..
Note: sorry salah lihat treadnya.
From: Gober [mailto:gober.mirc@gmail.com ]
Sent: Monday, July 18, 2011 1:49 PM
To: 'belajar-excel@yahoogroups. 'com
Subject: RE: [belajar-excel] Tanya Rumus diskon
Terima kasih Mr Kid... sudah jalan formulanya.. Dan terima kasih diksh
option 2 pilihan =)
Salam,
gober
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of Mr. Kid
Sent: Monday, July 18, 2011 10:41 AM
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Tanya Rumus diskon
Jika setiap proses selalu dibulatkan lebih dulu, maka formulanya :
=INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
Jika cukup hasil akhir saja yang dibulatkan :
=E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
Kid.
2011/7/18 Gober <gober.mirc@gmail.com >
Helo Agan2 Excel..
Ane mau Tanya lagi nih rumus diskon jika totalan minus..
Sebenernya sebelumnya sudah dibantu Pak Hendrik.. tapi masih ada kekurangan
yang saya tidak bisa tambahkan sendiri..
Mohon yah tolong dibantuin.
Terlampir
thanks
- 5d.
-
Re: Tanya Rumus diskon
Posted by: "Mr. Kid" mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Aug 2, 2011 12:33 am (PDT)
=IF( si_cell_e<0,formula,si_ cell_e)
Kid.
2011/8/1 Gober <gober.mirc@gmail.com >
> **
>
>
> Bro Kid… saya sudah coba tetapi masih belum bisa nih….. hasilnya yg masih
> 80750… hasil yang diinginkan adalah tetap 100000****
>
> ** **
>
> Kecuali kolom E itu -100000 hasil benar 80750****
>
> ** **
>
> Tolong dikoreksi lagi yah… sorry kl pertanyaanya kurang begitu jelas****
>
> ** **
>
> ** **
>
> Thanks****
>
> gober****
>
> ** **
>
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *Mr. Kidcom
> *Sent:* Monday, August 01, 2011 4:51 PM
>
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ** **
>
> ****
>
> Pakai IF. Pakai cuplikan formula yang lalu :
> =IF( formula_tanpoa_pembulatan > 0 , formula_tanpa_ pembulatan ,
> formula_dengan_pembulatan )
>
> Formula tanpa pembulatan sepertinya begini :
> =E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
>
> Yang pembulatan :
> =INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
>
> Kid.****
>
> 2011/8/1 Gober <gober.mirc@gmail.com >****
>
> ****
>
> Hi Bro Kid..****
>
> > ****
>
> > ****
>
> > ****
>
> > Ada sedikit kesalahan nih.. Jika angka yang saya masukan itu adalah + **
> **
>
> > maka hasilnya tetap terpotong hasilnya. gimana caranya agar hasil + ****
>
> > yang saya masukan tidak terpotong di totalnya. tp jika hasilnya - maka *
> ***
>
> > secara otomatis terpotong.****
>
> > ****
>
> > ****
>
> > ****
>
> > Trims.. Saya attach kembali filenya..****
>
> ****
>
> Note: sorry salah lihat treadnya…****
>
> ****
>
> *From:* Gober [mailto:gober.mirc@gmail.com ]
> *Sent:* Monday, July 18, 2011 1:49 PM
> *To:* 'belajar-excel@yahoogroups. 'com
> *Subject:* RE: [belajar-excel] Tanya Rumus diskon****
>
> ****
>
> Terima kasih Mr Kid….. sudah jalan formulanya…. Dan terima kasih diksh
> option 2 pilihan =)****
>
> ****
>
> ****
>
> Salam,****
>
> gober****
>
> ****
>
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *Mr. Kid****com
>
>
> *Sent:* Monday, July 18, 2011 10:41 AM****
>
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ****
>
> ****
>
> Jika setiap proses selalu dibulatkan lebih dulu, maka formulanya :
> =INT(INT(E2*(1-15%))* (1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2))
>
> Jika cukup hasil akhir saja yang dibulatkan :
> =E2*(1-15%)*(1-5%)+(1- (C2+D2<0) *F2)*(C2+ D2)
>
> Kid.****
>
> 2011/7/18 Gober <gober.mirc@gmail.com >****
>
> ****
>
> Helo Agan2 Excel….****
>
> ****
>
> ****
>
> Ane mau Tanya lagi nih rumus diskon jika totalan minus….****
>
> ****
>
> Sebenernya sebelumnya sudah dibantu Pak Hendrik.. tapi masih ada kekurangan
> yang saya tidak bisa tambahkan sendiri….****
>
> ****
>
> Mohon yah tolong dibantuin.****
>
> ****
>
> Terlampir****
>
> ****
>
> ****
>
> thanks****
>
> ****
>
> ** **
>
> ** **
>
> ****
>
>
>
- 6a.
-
Re: merevisi isi data
Posted by: "Sudarsono Suhenk" jkssbma@live.com jkssbma
Mon Aug 1, 2011 2:47 am (PDT)
Kalau file List.xls sbg file utama , maka nama Rev.xls dan worksheet Revised diambil dari sel di worksheet kerja , misal worksheet "kerja" di List. sel itu dapat diubah sesuai nama file xls dan sel lain untuk mengubah nama worksheetnyaBesok di sambung karena mau pulang ....
To: belajar-excel@yahoogroups. com
From: ro_tag@yahoo.com
Date: Mon, 1 Aug 2011 15:22:19 +0800
Subject: Fw: Re: [belajar-excel] Re: merevisi isi data
Dear All,
setelah di coba macronya sudah jalan tapi masih mencari solusi agar tidak usah mengedit macro untuk merubah nama file "rev.xls" dan nama sheet di "rev.xls"
karena data yang diterima dari customer selalu berubah baik nama file dan nama sheets juga range area
apakah bisa dirubah nama file dan sheet menjadi variable
berikut cuplikannya
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
Sub ya()
Dim filerev As String
Dim sel, ketemu As Range
kolomrev = 11
kolomubah = 33
rgrev = "g5:g130"
rgubah = "a5:ag1800"
Dim wk, wkrev As Workbook
filerev = ActiveWorkbook.Path & "\Rev.xls"
Set wk =
ActiveWorkbook
Set wkrev = Workbooks.Open(Filename: =filerev)
For Each sel In wkrev.Sheets("Revised" ).Range(rgrev)
nilaicari = sel.Offset(0, 0)
nilaiganti = sel.Offset(0, kolomrev)
Set ketemu = carinilai(wk.Sheets("list" ).Range(rgubah) , nilaicari)
If Not ketemu Is Nothing Then
ketemu.Offset(0, kolomubah) = nilaiganti
With ketemu.Offset(0, kolomubah).Interior
.ColorIndex = 6
End With
End If
Next
End Sub
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: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. , R T Gultom <ro_tag@...> wrote:com
>
> betul 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 list 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
>
>
>
>
> --- 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") .RemoveDuplicate s Columns:=Array( 1, 2), Header _
> Â Â Â Â Â Â Â :=xlYes
> Â Â Â ActiveSheet.Range("$A$ 1:$B$27") .RemoveDuplicate s 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")