Milis Belajar Microsoft Excel

Messages In This Digest (11 Messages)

1a.: Re: Tanya Rumus diskon From: Gober
1b.: Re: Tanya Rumus diskon From: Mr. Kid
1c.: Re: Tanya Rumus diskon From: Gober
1d.: Re: Tanya Rumus diskon From: Mr. Kid

2a.: Re: merevisi isi data From: jkssbma
2b.: Re: merevisi isi data From: R T Gultom

3a.: Could not load an object because it is not available on this machine From: Hariansyah
3b.: Re: Could not load an object because it is not available on this mac From: Haps

4a.: Tabel Air From: Wahyudi Santoso
4b.: Re: Tabel Air From: Mr. Kid

5.: PivotTable sederhana From: hendrik karnadi

View All Topics | Create New Topic

Messages

1a.: Re: Tanya Rumus diskon

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

Tue Aug 2, 2011 1:26 am (PDT)

Bro. saya bener2 newbee banget nih..

Penulisannya =IF( E2<0,E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2),E2) bener
tidak bro??

Tp setelah saya coba ga berjalan =(

Mohon diperjelas. karena saya bener2 ga gitu paham @_@

Maaf

gober

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Tuesday, August 02, 2011 2:33 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya Rumus diskon

=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.com [mailto:belajar-excel@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.com [mailto:belajar-excel@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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1b.: Re: Tanya Rumus diskon

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

Tue Aug 2, 2011 1:39 am (PDT)

jika memang hasil yang diinginkan adalah tetap 100000 untuk nilai E = 100000
dan E>0, sedangkan untuk E negatif dihitung menggunakan suatu formula,
maka formulanya :
=IF( E2<0 , *E2*(1-15%)*(1-5%)+(1-(C2+**D2<0)*F2)*(C2+D2)* , E2 )

E2<0 -> artinya apakah E2 kurang dari 0 ?

*E2*(1-15%)*(1-5%)+(1-(C2+**D2<0)*F2)*(C2+D2)* : formula jika benar bahwa
E2<0
Jadi, jika hasil ketika E bernilai negatif tidak sesuai, ubah formula bagian
ini

E2 : adalah formula jika kondisi E2 bukan kurang dari 0
Jadi, ubah bagian ini jika hasil ketika E bernilai positif atau nol masih
kurang sesuai hasrat anda.

dari file attacment :
Jika E=100000 inginnya menghasilkan 80850, ya silakan saja. Entah bagaimana
caranya hanya Anda yang tahu.
Kalau saya, jika E=100000 hasilnya maunya 77777, sedangkan kalau E= -100000
baru pakai formula diskon Anda.

Kid.

2011/8/2 Gober <gober.mirc@gmail.com>

> **
>
>
> Bro… saya bener2 newbee banget nih….****
>
> Penulisannya =IF( E2<0,E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2),E2) bener
> tidak bro??****
>
> ** **
>
> Tp setelah saya coba ga berjalan =(****
>
> ** **
>
> Mohon diperjelas… karena saya bener2 ga gitu paham @_@****
>
> ** **
>
> Maaf****
>
> ** **
>
> gober****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Tuesday, August 02, 2011 2:33 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ** **
>
> ****
>
> =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.com [mailto:
> belajar-excel@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.com [mailto:
> belajar-excel@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****
>
> ****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1c.: Re: Tanya Rumus diskon

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

Tue Aug 2, 2011 7:49 am (PDT)

Bro.. boleh di attach lagi ga filenya?? Karena aku binggung masukin
formulanya. jujur aja saya kurang paham banget dengan ini..

Tolong dibantu yah kl bisa..

Sorry sebelumnya kl udah merepotkan banget

Thanks

gober

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Tuesday, August 02, 2011 3:39 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya Rumus diskon

jika memang hasil yang diinginkan adalah tetap 100000 untuk nilai E = 100000
dan E>0, sedangkan untuk E negatif dihitung menggunakan suatu formula,
maka formulanya :
=IF( E2<0 , E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2) , E2 )

E2<0 -> artinya apakah E2 kurang dari 0 ?

E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2) : formula jika benar bahwa E2<0
Jadi, jika hasil ketika E bernilai negatif tidak sesuai, ubah formula bagian
ini

E2 : adalah formula jika kondisi E2 bukan kurang dari 0
Jadi, ubah bagian ini jika hasil ketika E bernilai positif atau nol masih
kurang sesuai hasrat anda.

dari file attacment :
Jika E=100000 inginnya menghasilkan 80850, ya silakan saja. Entah bagaimana
caranya hanya Anda yang tahu.
Kalau saya, jika E=100000 hasilnya maunya 77777, sedangkan kalau E= -100000
baru pakai formula diskon Anda.

Kid.

2011/8/2 Gober <gober.mirc@gmail.com>

Bro. saya bener2 newbee banget nih..

Penulisannya =IF( E2<0,E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2),E2) bener
tidak bro??

Tp setelah saya coba ga berjalan =(

Mohon diperjelas. karena saya bener2 ga gitu paham @_@

Maaf

gober

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: Tuesday, August 02, 2011 2:33 PM

To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Tanya Rumus diskon

=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.com [mailto:belajar-excel@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.com [mailto:belajar-excel@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

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)
1d.: Re: Tanya Rumus diskon

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

Tue Aug 2, 2011 7:53 am (PDT)

Silakan.
Kid.

2011/8/2 Gober <gober.mirc@gmail.com>

> **
>
>
> Bro.. boleh di attach lagi ga filenya?? Karena aku binggung masukin
> formulanya… jujur aja saya kurang paham banget dengan ini….****
>
> ** **
>
> Tolong dibantu yah kl bisa….****
>
> ** **
>
> Sorry sebelumnya kl udah merepotkan banget****
>
> ** **
>
> ** **
>
> Thanks****
>
> gober****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Tuesday, August 02, 2011 3:39 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ** **
>
> ****
>
> jika memang hasil yang diinginkan adalah tetap 100000 untuk nilai E =
> 100000 dan E>0, sedangkan untuk E negatif dihitung menggunakan suatu
> formula,
> maka formulanya :
> =IF( E2<0 , *E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2)* , E2 )
>
> E2<0 -> artinya apakah E2 kurang dari 0 ?
>
> *E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2)* : formula jika benar bahwa
> E2<0
> Jadi, jika hasil ketika E bernilai negatif tidak sesuai, ubah formula
> bagian ini
>
> E2 : adalah formula jika kondisi E2 bukan kurang dari 0
> Jadi, ubah bagian ini jika hasil ketika E bernilai positif atau nol masih
> kurang sesuai hasrat anda.
>
>
> dari file attacment :
> Jika E=100000 inginnya menghasilkan 80850, ya silakan saja. Entah bagaimana
> caranya hanya Anda yang tahu.
> Kalau saya, jika E=100000 hasilnya maunya 77777, sedangkan kalau E= -100000
> baru pakai formula diskon Anda.
>
> Kid.
>
> ****
>
> 2011/8/2 Gober <gober.mirc@gmail.com>****
>
> ****
>
> Bro… saya bener2 newbee banget nih….****
>
> Penulisannya =IF( E2<0,E2*(1-15%)*(1-5%)+(1-(C2+D2<0)*F2)*(C2+D2),E2) bener
> tidak bro??****
>
> ****
>
> Tp setelah saya coba ga berjalan =(****
>
> ****
>
> Mohon diperjelas… karena saya bener2 ga gitu paham @_@****
>
> ****
>
> Maaf****
>
> ****
>
> gober****
>
> ****
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *Mr. Kid
> *Sent:* Tuesday, August 02, 2011 2:33 PM****
>
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] Tanya Rumus diskon****
>
> ****
>
> ****
>
> =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.com [mailto:
> belajar-excel@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.com [mailto:
> belajar-excel@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****
>
> ****
>
> ****
>
> ****
>
> ****
>
> ** **
>
> ****
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (11)

2a.: Re: merevisi isi data

Posted by: "jkssbma" jkssbma@live.com jkssbma

Tue Aug 2, 2011 1:27 am (PDT)

Adapun nama workbook dan sheet di tentukan oleh sel di B2 dan C2

Sub ya()

Dim filerev As String

Dim sel, ketemu As Range

Dim wk, wkrev As Workbook

Set wk = ActiveWorkbook

filexls = Sheets("kerja").Range("B2") 'rev.xls

sheettujuan = Sheets("kerja").Range("c2") 'ubah

filerev = ActiveWorkbook.Path & "\" & filexls

Set wkrev = Workbooks.Open(Filename:=filerev)

For Each sel In wkrev.Sheets(sheettujuan).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

Windows(wk.Name).Activate

End sub

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of R T Gultom
Sent: Tuesday, August 02, 2011 7:54 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Re: merevisi isi data

siap boss, ditunggu karena sudah coba2, masih mentok euh

--- On Mon, 8/1/11, Sudarsono Suhenk <jkssbma@live.com> wrote:

From: Sudarsono Suhenk <jkssbma@live.com>
Subject: RE: [belajar-excel] Re: merevisi isi data
To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>
Date: Monday, August 1, 2011, 4:32 PM

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 worksheetnya
Besok 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.com, R T Gultom <ro_tag@...> wrote:
>
> 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").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
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.: Re: merevisi isi data

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

Tue Aug 2, 2011 3:39 am (PDT)

wah segampang itu merubahnya knapa ya?
kalau ane mentok mulu...u

btw, maunya lebih praktis lagi yaitu dengan cara ada open file dari folder "rev.xls" jadi tidak usah menulis nama file

misalnya open file select folder then select sehingga waktu dibuka itu otomatis menjadi varibale

Regards,

--- On Tue, 8/2/11, jkssbma <jkssbma@live.com> wrote:

From: jkssbma <jkssbma@live.com>
Subject: RE: [belajar-excel] Re: merevisi isi data
To: belajar-excel@yahoogroups.com
Date: Tuesday, August 2, 2011, 3:14 PM

Â

Adapun nama workbook dan sheet di tentukan oleh sel di B2 dan C2 Â Â Sub ya()Dim filerev As StringDim sel, ketemu As RangeDim wk, wkrev As Workbook Â Â Â Set wk = ActiveWorkbook Â filexls = Sheets("kerja").Range("B2")Â 'rev.xlssheettujuan = Sheets("kerja").Range("c2") 'ubah Â filerev = ActiveWorkbook.Path & "\" & filexlsSet wkrev = Workbooks.Open(Filename:=filerev) Â For Each sel In wkrev.Sheets(sheettujuan).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 Thenketemu.Offset(0, -1) = nilaigantiEnd IfNext Â Windows(wk.Name).ActivateEnd sub Â Â Â From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of R T Gultom
Sent: Tuesday, August 02, 2011 7:54 AM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] Re: merevisi isi data Â Â siap boss, ditunggu karena sudah coba2, masih mentok euh

--- On Mon, 8/1/11, Sudarsono Suhenk <jkssbma@live.com> wrote:
From: Sudarsono Suhenk <jkssbma@live.com>
Subject: RE: [belajar-excel] Re: merevisi isi data
To: "belajar excel yahoo.com" <belajar-excel@yahoogroups.com>
Date: Monday, August 1, 2011, 4:32 PMÂ 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 worksheetnya
Besok 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.com, R T Gultom <ro_tag@...> wrote:
>
> 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").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
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3a.: Could not load an object because it is not available on this machine

Posted by: "Hariansyah" hariansyahptk@yahoo.com hariansyahptk

Tue Aug 2, 2011 7:49 am (PDT)

Untuk Bapak dan Ibu Moderator Belajar-Excel@yahoogroup.com dan teman-2 yang mahir dalam Excel, mohon info akan pertanyaan sy dibawah ini:
1. Jika saya membuka aplikasi Excel VB saya mengapa selalu muncul tulisan : Security Warning :
Automatic update of link has been disable.
2. Jika saya meng-click User Form, mengapa muncul tulisan : Could not load an
object because it is not available on this machine sehingga Program yang sudah saya buat tidak bisa digunakan sebagaimana mestinya (ada item yang tidak bisa dimunculkan dalam User Form dimaksud).

Mohon pencerahan dan penjelasan akan hal tersebut.

Terima kasih atas bantuannya.

Harry

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
3b.: Re: Could not load an object because it is not available on this mac

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

Tue Aug 2, 2011 8:33 pm (PDT)

Bukan moderators & bukan pula mahir Excel, tapi sangking inginnya ikut
belajar-menjawab, mohon diperkenankan
ikut mnanggapi:

1. Ada rumus yg merujuk ke workbook lain yg belum dibuka dan tidak
di-set 'automatic update'.

2. Ada references yg file-nya (exe, dll, ocx, xla,.. Dsb) tidak ada,
atau tidak dikenal.

*Dari VBE, (makro dlm mode 'stop'), lihat menu Tools > References.
Lihat MISSING REF.
Cari Filenya, atau set ke [disabled].

On 8/2/11, <hariansyahptk@yahoo.com> wrote:

> Untuk Bapak dan Ibu Moderator Belajar-Excel@yahoogroup.com dan teman-2 yang mahir dalam Excel, mohon info akan pertanyaan sy dibawah ini:

> 1. Jika
>
> 2. Jika
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

4a.: Tabel Air

Posted by: "Wahyudi Santoso" yudisant_simbad@yahoo.com yudisant_simbad

Tue Aug 2, 2011 7:58 am (PDT)

Assalamualaikum

Met Puasa Ramadhan tuk smua members belajar excel. To rekan-rekan mohon bantuan pencerahan permasalahan sebagaimana Saya lampirkan, terima kasih

Salam
Wahyudi S

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4b.: Re: Tabel Air

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

Tue Aug 2, 2011 8:45 am (PDT)

Waalaikumusalam Wr. Wb.

Pada Excel 2007, trap error bisa menggunakan fungsi IFError.
=IFError( MyFormula , 0 )

Pada Excel versi apapun, bisa menggunakan formula :
=IF( IsError( MyFormula ) , 0 , MyFormula )

Fungsi VLookUp memiliki opsi match_type yang berupa Approximate Match pada
data Ascending. Penggunaannya bisa membantu untuk menghilangkan proses
pembulatan bilangan nilai yang di lookup.

Pembulatan bilangan selain yang menggunakan 'Round' :
Int -> mencari bilangan bulat yang terdekat sebelumnya. Int(89.6) hasilnya
89
Floor -> pembulatan kebawah ke kelipatan tertentu. Floor( 77 , 10 )
hasilnya 70; floor(89.6,1) = ?
Ceiling -> pembulatan keatas kekelipatan tertentu (lawannya floor)

Mencari sisa bagi adalah dengan Mod. Mod( 7 , 2 ) = 1 -> Sisa bagi dari 7
yang dibagi 2 adalah 1. Jika Mod( 89.6 , 1 ) = ?
Jadi untuk interval yang tetap, bisa jadi fungsi Mod membantu dalam
menggunakan formula Interpolasi.

Interpolasi bisa juga dilakukan menggunakan fungsi Forecast atau Linest.
Sebaiknya diperhatikan range data yang akan digunakan untuk Interpolasi.
Semakin rapat range data mendekati nilai yang akan di-interpolasi, maka
semakin tepat hasil interpolasinya. Untuk itu, penggunaan fungsi Offset dan
Match akan membantu merapatkan range data area interpolasi.

Wassalamualaikum Wr. Wb.
Kid.

2011/8/2 Wahyudi Santoso <yudisant_simbad@yahoo.com>

> **
>
>
> Assalamualaikum
>
> Met Puasa Ramadhan tuk smua members belajar excel. To rekan-rekan mohon
> bantuan pencerahan permasalahan sebagaimana Saya lampirkan, terima kasih
>
> Salam
> Wahyudi S
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

5.: PivotTable sederhana

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

Tue Aug 2, 2011 9:30 pm (PDT)

Buat teman2 yang bergerak di bidang akuntansi dan baru mulai belajar Pivot, terlampir adalah contoh sederhana untuk menghitung Average Cost per periode.
Untuk menghitung UnitCost, TotalCost, BalQty dan BalValue digunakan menu :
Options, Calculated Field (cursor harus berada pada area Pivot Table).

Formula yang telah dibuat dapat dilihat pada Sheet "Formula".

Salam,
Hendrik Karnadi

Catatan : Jika data diedit, Pivot harus direfresh

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

Rabu, 03 Agustus 2011

Messages In This Digest (11 Messages)

Messages

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

Tue Aug 2, 2011 1:26 am (PDT)

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

Tue Aug 2, 2011 1:39 am (PDT)

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

Tue Aug 2, 2011 7:49 am (PDT)

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

Tue Aug 2, 2011 7:53 am (PDT)

Posted by: "jkssbma" jkssbma@live.com jkssbma

Tue Aug 2, 2011 1:27 am (PDT)

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

Tue Aug 2, 2011 3:39 am (PDT)

Posted by: "Hariansyah" hariansyahptk@yahoo.com hariansyahptk

Tue Aug 2, 2011 7:49 am (PDT)

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

Tue Aug 2, 2011 8:33 pm (PDT)

Posted by: "Wahyudi Santoso" yudisant_simbad@yahoo.com yudisant_simbad

Tue Aug 2, 2011 7:58 am (PDT)

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

Tue Aug 2, 2011 8:45 am (PDT)

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

Tue Aug 2, 2011 9:30 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me