Selasa, 06 Desember 2011

]] XL-mania [[ Digest Number 2300

Messages In This Digest (24 Messages)

Messages

1a.

menghitung berapa kali terlambat masuk kerja selama sebulan

Posted by: "ketut santosa" ketutsantosa@gmail.com   ketutsantosa81

Mon Dec 5, 2011 5:23 pm (PST)



Dear XL Mania..mohon bantuan formula menghitung jumlah setiap orang yang
telat,absent,pulang cepat.
saya coba pakai count if malah yang outnya terhitung.

rgd
ketut
1b.

Bls: ]] XL-mania [[ menghitung berapa kali terlambat masuk kerja sel

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

Tue Dec 6, 2011 12:37 am (PST)



formula untuk mencari LATE
=COUNTIFS($D$9:$AE$9;"In";$D10:$AE10;">06:30 AM")

untuk ABSENT
=COUNTIF($D10:$AE10;"ABSENT")

untuk GO BACK EARLY
=COUNTIFS($D$9:$AE$9;"Out";$D10:$AE10;"<05:00 PM")

copy ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: ketut santosa <ketutsantosa@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Jumat, 2 Desember 2011 7:53
Judul: ]] XL-mania [[ menghitung berapa kali terlambat masuk kerja selama sebulan


 
Dear XL Mania..mohon bantuan formula menghitung jumlah setiap orang yang telat,absent,pulang cepat.
saya coba pakai count if malah yang outnya terhitung.
 
rgd
ketut
 
1c.

Re: menghitung berapa kali terlambat masuk kerja selama sebulan

Posted by: "Tommy" tomz.zlow@gmail.com   tomz_aja

Tue Dec 6, 2011 12:37 am (PST)



Dengan memperhitungkan hal-hal berikut:
- 1 jam dalam excel bernilai = 1/24
- Telat mengacu pada jam masuk kantor (In)
- Pulang cepat mengacu pada jam keluar kantor (out)
- Absen dalam satu hari dihitung 1 absen (dipermudah dengan mengacu hanya kolom masuk kantor -- atau keluar kantor)
- MS Office yang anda pakai versi 2007 ke atas (*.xlsx)

Maka salah satu alternatif adalah menggunakan formula yang baru diperkenalkan office 2007 ke atas:
Telat: =COUNTIFS($D$9:$AE$9,"In",D10:AE10,">"&6.5/24)
Absent: =COUNTIFS($D$9:$AE$9,"In",D10:AE10,"absent")
Cabut cepat: =COUNTIFS($D$9:$AE$9,"Out",D10:AE10,"<"&17/24)

Namun jika masih ada yang menggunakan versi di bawah 2007, bisa gunakan alternatif fungsi sumproduct dan sebagainya.

Blessings,
tomz

----- Original Message -----
From: ketut santosa
To: XL-mania@yahoogroups.com
Sent: Friday, December 02, 2011 9:53 AM
Subject: ]] XL-mania [[ menghitung berapa kali terlambat masuk kerja selama sebulan

Dear XL Mania..mohon bantuan formula menghitung jumlah setiap orang yang telat,absent,pulang cepat.
saya coba pakai count if malah yang outnya terhitung.

rgd
ketut

2a.

Konversi XL 2007 ke 2003

Posted by: "Joe Baedowi" deepcoldblue1177@yahoo.co.id   deepcoldblue1177

Mon Dec 5, 2011 5:25 pm (PST)



Dear Sedulur & pakar Excell,

Mohon bantuannya, bagaimana cara untuk mengubah file excell dari 2007 ke 2003 tanpa membuat jadi error fungsi2 yang sudah ada ?
Karena kalau cuma mengubah sih gampang tinggal ubah : xls ke xl di format save as nya.

Tapi seringkali begitu di save as ke excell 2003 jadi error, terutama untuk fungsi2 IF, VLOOKUP, LOOKUP, dll.
Ada Master yang bisa bantu via jalur cepat & jalur lambatnya ?
Kalau jalur lambat, mohon dibantu tutorialnya.....
Kalau jalur cepat, mungkin ada software yang bisa langsung convert ya ?

Thanks for the info....
Joe
2b.

Re: Konversi XL 2007 ke 2003

Posted by: "Edis" side_gedol@yahoo.com   side_gedol

Tue Dec 6, 2011 12:17 am (PST)



Dear Joe,
 
Cara cepatnya, coba download link Microsoft Office Compatibility Pack for Word, Excel, and PowerPoint File Formats berikut:
http://www.microsoft.com/download/en/confirmation.aspx?id=3
 
 

___________________
Edis

________________________________
From: Joe Baedowi <deepcoldblue1177@yahoo.co.id>
To: XL-mania@yahoogroups.com
Sent: Friday, December 2, 2011 9:26 AM
Subject: ]] XL-mania [[ Konversi XL 2007 ke 2003

 

Dear Sedulur & pakar Excell,
 
Mohon bantuannya, bagaimana cara untuk mengubah file excell dari 2007 ke 2003 tanpa membuat jadi error fungsi2 yang sudah ada ?
Karena kalau cuma mengubah sih gampang tinggal ubah : xls ke xl di format save as nya.
 
Tapi seringkali begitu di save as ke excell 2003 jadi error, terutama untuk fungsi2 IF, VLOOKUP, LOOKUP, dll.
Ada Master yang bisa bantu via jalur cepat & jalur lambatnya ?
Kalau jalur lambat, mohon dibantu tutorialnya.....
Kalau jalur cepat, mungkin ada software yang bisa langsung convert ya ?
 
Thanks for the info....
Joe
2c.

Re: Konversi XL 2007 ke 2003

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

Tue Dec 6, 2011 12:36 am (PST)



Beberapa fungsi Excel 2007 memang tidak dapat diaplikasikan di Excel 2003 mis., Sumifs, CountIfs, IfError.
Setahu saya fungsi- fungsi yang anda sebutkan masih berlaku di Excel 2003.
Barangkali kalau anda bersedia melampirkan contoh filenya, bisa terlihat fungsi mana yang tidak berlaku.
Kalau soal jalur cepat atau lambat mungkin ada pakar lain yang bisa membantu.
 
Salam,
Hendrik Karnadi
 

________________________________
From: Joe Baedowi <deepcoldblue1177@yahoo.co.id>
To: XL-mania@yahoogroups.com
Sent: Friday, 2 December 2011, 9:26
Subject: ]] XL-mania [[ Konversi XL 2007 ke 2003

 

Dear Sedulur & pakar Excell,
 
Mohon bantuannya, bagaimana cara untuk mengubah file excell dari 2007 ke 2003 tanpa membuat jadi error fungsi2 yang sudah ada ?
Karena kalau cuma mengubah sih gampang tinggal ubah : xls ke xl di format save as nya.
 
Tapi seringkali begitu di save as ke excell 2003 jadi error, terutama untuk fungsi2 IF, VLOOKUP, LOOKUP, dll.
Ada Master yang bisa bantu via jalur cepat & jalur lambatnya ?
Kalau jalur lambat, mohon dibantu tutorialnya.....
Kalau jalur cepat, mungkin ada software yang bisa langsung convert ya ?
 
Thanks for the info....
Joe
2d.

Re: Konversi XL 2007 ke 2003

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

Tue Dec 6, 2011 12:39 am (PST)



Biasanya begini
- Jika kita bekerja dengan Excel baru (2007 / 2010) dan menggunakan
fungsi-fungsi baru yg tidak ada di excel 2003 (misal: countifs, sumifs, dsb
( ada lho daftarnya ), maka ketika workbook tsb (di save as workbook versi
97-2003 (= xls) hanya akan tidak dikenali fungsi fungsi baru itu saja.
Itu pun hasilnya masih ditampilkan dengan benar dan nama fungsinya di
tambah prefix _xlfn, misal
=COUNTIFS(B3:B8,C3,D3:D8,E3)
menjadi
=_xlfn.COUNTIFS(B3:B8,C3,D3:D8,E3)
_xlfn bertugas memberitahu "= ini fungsi baru yg ada di XL versi baru"

Jika rumus diedit (dengan tetap mempertahankan fungsi yg tidak dikenal)
barulah hasil menjadi error values.

Sedangkan VLOOKUP, LOOKUP, IF adalah fungsi klasik yg sejak excel 4 pun
sudah ada; yg seharusnya tidak menjadi SALAH ketika xlsx di save as XLS.

Jadi jawaban "mengambang" ini baru akan menjadi jawaban "menyelam", kalau
"kita-kita" diberi kesempatan mellihat RUMUSNYA dan DATA yg dirujuk oleh
rumus tsb. Diskusi mengenai data dan rumus excel sangat lazim jika pembawa
makalah datang tak bertangan kosong, tetapi berkenan membawa secarik sheet
berisi data dan rumus yg di-ributkan...

2011/12/2 Joe Baedowi <deepcoldblue1177@yahoo.co.id>

> **
> Dear Sedulur & pakar Excell,
>
> Mohon bantuannya, bagaimana cara untuk mengubah file excell dari 2007 ke
> 2003 tanpa membuat jadi error fungsi2 yang sudah ada ?
> Karena kalau cuma mengubah sih gampang tinggal ubah : xls ke xl di format
> save as nya.
>
> Tapi seringkali begitu di save as ke excell 2003 jadi error, terutama
> untuk fungsi2 IF, VLOOKUP, LOOKUP, dll.
> Ada Master yang bisa bantu via jalur cepat & jalur lambatnya ?
> Kalau jalur lambat, mohon dibantu tutorialnya.....
> Kalau jalur cepat, mungkin ada software yang bisa langsung convert ya ?
>
> Thanks for the info....
> Joe
>
>
>
3.

saldo angsuran awal bulan

Posted by: "arie chandra" arch4n_x@yahoo.com   arch4n_x

Mon Dec 5, 2011 5:30 pm (PST)



Dear Master XL-Mania

Mohon bantuannya untuk pencerahan bagaimana cara menghitung saldo angsuran per orang di setiap awal bulan secara otomatis. File terlampir (di sheet Rekap)

untuk jawaban dan perhatian yang diberikan saya ucapkan terima kasih.

Salam
-archan-
4a.

file sharing super besar

Posted by: "khairul ihsan" arhoel_moeslim@yahoo.co.id   arhoel_moeslim

Mon Dec 5, 2011 5:30 pm (PST)



dh,
mohon bantuannya temans, saya punya data excel dengan kapasitas 354MB yang di share melalui jaringan dan bisa di akses oleh beberapa user, masalah yang saya hadapi saat ini adalah untuk mengakses data itu butuh waktu yang cukup lama (lemot).
ada solusi dari temen2 xl-mania?

terima kasih.
4b.

Re: file sharing super besar

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

Tue Dec 6, 2011 12:17 am (PST)



Coba mulai memanfaatkan data connection melalui fitur Get External Data
(xl2007) atau Import Data (xl2003).
Lebih baik lagi, jika mulai memisahkan antara file data, file input dan
file output.
Migrasi file data ke database juga akan sangat menguntungkan.

Kid.

2011/12/2 khairul ihsan <arhoel_moeslim@yahoo.co.id>

> **
>
>
> dh,
> mohon bantuannya temans, saya punya data excel dengan kapasitas 354MB yang
> di share melalui jaringan dan bisa di akses oleh beberapa user, masalah
> yang saya hadapi saat ini adalah untuk mengakses data itu butuh waktu yang
> cukup lama (lemot).
> ada solusi dari temen2 xl-mania?
>
> terima kasih.
>
>
>
5a.

mencari pemakaian barang

Posted by: "candrasigit_MC@yamaha-motor.co.id" candrasigit_MC@yamaha-motor.co.id

Mon Dec 5, 2011 5:37 pm (PST)



Salam kenal pada master excel,

Saya ada kasus untuk mengambil data pemakaian barang nihh…
saya sudah coba puter-puter rumusnya dan cari dari file-file xl-mania
yang lama, tapi tidak ketemu juga formulanya…
Jika-jika para pakar2 excel berkenan memberikan pencerahan...minta
bantu diturunkan ilmunya...karena data yang saya olah ada ribuan data.

Terima kasih.

Candra Sigit






5b.

Re: mencari pemakaian barang

Posted by: "raya hidayat" raya.hidayat@gmail.com

Tue Dec 6, 2011 12:21 am (PST)



Dear Mas Candra,

terlampir alternatif cara untuk penyelesaian file bapak.
pakai 2 cara.
1. cara pertama memakai if --> lebih mudah dimengerti tetapi batas maksimal
hanya 7 if bersarang.
2. cara dua memakai substitute --> bisa dipakai untuk lebih dari 7 kolom.

mudah mudahan sesuai dengan yang diinginkan.

terima kasih

Raya

2011/12/2 <candrasigit_MC@yamaha-motor.co.id>

> Salam kenal pada master excel,
>
> Saya ada kasus untuk mengambil data pemakaian barang nihh�
> saya sudah coba puter-puter rumusnya dan cari dari file-file xl-mania
> yang lama, tapi tidak ketemu juga formulanya�
> Jika-jika para pakar2 excel berkenan memberikan pencerahan...minta
> bantu diturunkan ilmunya...karena data yang saya olah ada ribuan data.
>
> Terima kasih.
>
> Candra Sigit
>
>
>
>
>
>

--
Terima kasih

Raya
5c.

Re: mencari pemakaian barang

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

Tue Dec 6, 2011 12:32 am (PST)



Hai Candra,

Coba formula :
=MID(IF(D4,","&$D$3,"") & IF(E4,","&$E$3,"") & IF(F4,","&$F$3,"") &
IF(G4,","&$G$3,"") & IF(H4,","&$H$3,""),2,99)

Wassalam,
Kid.

2011/12/2 <candrasigit_MC@yamaha-motor.co.id>

> Salam kenal pada master excel,
>
> Saya ada kasus untuk mengambil data pemakaian barang nihh�
> saya sudah coba puter-puter rumusnya dan cari dari file-file xl-mania
> yang lama, tapi tidak ketemu juga formulanya�
> Jika-jika para pakar2 excel berkenan memberikan pencerahan...minta
> bantu diturunkan ilmunya...karena data yang saya olah ada ribuan data.
>
> Terima kasih.
>
> Candra Sigit
>
>
>
>
>
>
5d.

Bls: ]] XL-mania [[ mencari pemakaian barang

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

Tue Dec 6, 2011 12:39 am (PST)



tulis di I4

=REPLACE(IF(LEN(D4);D$3&",";"")&IF(LEN(E4);E$3&",";"")&IF(LEN(F4);F$3&",";"")&IF(LEN(G4);G$3&",";"")&IF(LEN(H4);H$3&",";"");COUNTA($D4:$H4)*2;1;"")

Copy ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: "candrasigit_MC@yamaha-motor.co.id" <candrasigit_MC@yamaha-motor.co.id>
Kepada: XL-mania@yahoogroups.com
Dikirim: Jumat, 2 Desember 2011 13:33
Judul: ]] XL-mania [[ mencari pemakaian barang


Salam kenal pada master excel,

Saya ada kasus untuk mengambil data
pemakaian barang nihh…
saya sudah coba puter-puter rumusnya
dan cari dari file-file xl-mania
yang lama, tapi tidak ketemu juga formulanya…
Jika-jika para pakar2 excel berkenan
memberikan pencerahan...minta
bantu diturunkan ilmunya...karena data
yang saya olah ada ribuan data.

Terima kasih.

Candra Sigit
5e.

Re: mencari pemakaian barang

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

Tue Dec 6, 2011 12:39 am (PST)



kita pakai rumus bodoh-bodoh-an saja yuk.. (..yuuuuk ..)

=IF(D4=1,D$3,"") &IF(E4=1,","&E$3,"") &IF(F4=1,","&F$3,"")
&IF(G4=1,","&G$3,"") &IF(H4=1,","&H$3,"")

Pasalnya, penggabungan data itu sulit dibuatkan ArrayFormula-nya (agar
pendek & kekar)

Kalau mau makto, pakailah fungsi ConcatIf (UDF /fungsi buatan dhewek) yg
dulu pernah di tayang di sini
http://tech.groups.yahoo.com/group/XL-mania/message/17083
http://tech.groups.yahoo.com/group/XL-mania/message/16889
http://tech.groups.yahoo.com/group/XL-mania/message/14253
http://tech.groups.yahoo.com/group/XL-mania/message/13436

2011/12/2 <candrasigit_MC@yamaha-motor.co.id>

> Salam kenal pada master excel,
>
> Saya ada kasus untuk mengambil data pemakaian barang nihh…
> saya sudah coba puter-puter rumusnya dan cari dari file-file xl-mania
> yang lama, tapi tidak ketemu juga formulanya…
> Jika-jika para pakar2 excel berkenan memberikan pencerahan...minta
> bantu diturunkan ilmunya...karena data yang saya olah ada ribuan data.
> Terima kasih.
> Candra Sigit
>
>
>
>
5f.

Re: mencari pemakaian barang

Posted by: "NANG Agus" nangagus@gmail.com

Tue Dec 6, 2011 12:40 am (PST)



Dear Candra

Bagaimana jika menggunakan If saja.
Jika =1 maka A, jika = 1 maka B dan seterusnya.
=IF($D4=1;D$3&",";"")&IF($E4=1;E$3&",";"")&IF($F4=1;F$3&",";"")&IF($G4=1;G$3&",";"")&IF($H4=1;H$3&",";"")
Semoga sesuai permohonan, karena rumusnya terlalu panjang.

Regard
NangAgus

2011/12/2 <candrasigit_MC@yamaha-motor.co.id>

> Salam kenal pada master excel,
>
> Saya ada kasus untuk mengambil data pemakaian barang nihh�
> saya sudah coba puter-puter rumusnya dan cari dari file-file xl-mania
> yang lama, tapi tidak ketemu juga formulanya�
> Jika-jika para pakar2 excel berkenan memberikan pencerahan...minta
> bantu diturunkan ilmunya...karena data yang saya olah ada ribuan data.
>
> Terima kasih.
>
> Candra Sigit
>
>
>
>
>
>
6a.

Remove duplicate diambil tingkat training tinggi

Posted by: "missmanagement" scsmi2002@yahoo.com

Mon Dec 5, 2011 5:49 pm (PST)



Selamat sore.

Para pakar excel, saya mohon bantuanya untuk menemukan pemecahan masalah excel yang saya alami.

Saya mempunyai data Orang dengan tingkat Trainingnya
Dimana 1 orang bisa training lebih dari 1 kali sehingga data orang tersebut bisa ada lebih dari 1 baris data.

Saya sudah membuat rumus untuk remove duplicate (meskipun sebenarnya di excel 97 ada fasilitas tersebut)

Masalahnya untuk mengambil data tingkat training belum saya dapat.
Saya ingin tingkat training yang tampil adlaah yang tertinggi yang pernah orang tersebut ikuti.

Misal seseorang sudah training Tkt 1 dan Tkt 2 maka yang diambil Tkt 2.

untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat permasalahan ini dalam file yang saya lampirkan.
Terima kasih.

Salam XL-Mania!
John
6b.

Bls: ]] XL-mania [[ Remove duplicate diambil tingkat training tinggi

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

Tue Dec 6, 2011 12:39 am (PST)



tulis formula array di P2

="Tkt "&ROMAN(MAX(IFERROR(MATCH(IF($H$2:$H$15=O2;MID($J$2:$J$15;5;3));ROMAN(ROW($A$1:$A$3));0);"")))

copy ke bawah

wassalam

Ghozi Alkatiri

________________________________
Dari: missmanagement <scsmi2002@yahoo.com>
Kepada: XL mania <XL-mania@yahoogroups.com>
Dikirim: Jumat, 2 Desember 2011 13:52
Judul: ]] XL-mania [[ Remove duplicate diambil tingkat training tinggi


 
Selamat sore.

Para pakar excel, saya mohon bantuanya untuk menemukan pemecahan masalah excel yang saya alami.

Saya mempunyai data Orang dengan tingkat Trainingnya
Dimana 1 orang bisa training lebih dari 1 kali sehingga data orang tersebut bisa ada lebih dari 1 baris data.

Saya sudah membuat rumus untuk remove duplicate (meskipun sebenarnya di excel 97 ada fasilitas tersebut)

Masalahnya untuk mengambil data tingkat training belum saya dapat.
Saya ingin tingkat training yang tampil adlaah yang tertinggi yang pernah orang tersebut ikuti.

Misal seseorang sudah training Tkt 1 dan Tkt 2 maka yang diambil Tkt 2.

untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat permasalahan ini dalam file yang saya lampirkan.
Terima kasih.

Salam XL-Mania!
John
6c.

Re: Remove duplicate diambil tingkat training tinggi

Posted by: "MAMUDA PONTIM" uud_mamuda@yahoo.com   uud_mamuda

Tue Dec 6, 2011 12:39 am (PST)



Coba rumus berikut: (Array Formula, setelah selesai ditulis, menekan 3 tombol sekaligus, Ctrl+Shift+Enter)
="Tkt "&ROMAN(LARGE((MATCH(RIGHT(J$2:J$15,LEN(J$2:J$15)-FIND(" ",J$2:J$15)),ROMAN(ROW($1:$10)),0))*($H$2:$H$15=O2)*1,1))

Untuk menghindari error bisa ditambahkan IFERROR seperti pada filtering Nama.
 
====== Haeruddin ======

________________________________
From: missmanagement <scsmi2002@yahoo.com>
To: XL mania <XL-mania@yahoogroups.com>
Sent: Friday, December 2, 2011 1:52 PM
Subject: ]] XL-mania [[ Remove duplicate diambil tingkat training tinggi


 
Selamat sore.

Para pakar excel, saya mohon bantuanya untuk menemukan pemecahan masalah excel yang saya alami.

Saya mempunyai data Orang dengan tingkat Trainingnya
Dimana 1 orang bisa training lebih dari 1 kali sehingga data orang tersebut bisa ada lebih dari 1 baris data.

Saya sudah membuat rumus untuk remove duplicate (meskipun sebenarnya di excel 97 ada fasilitas tersebut)

Masalahnya untuk mengambil data tingkat training belum saya dapat.
Saya ingin tingkat training yang tampil adlaah yang tertinggi yang pernah orang tersebut ikuti.

Misal seseorang sudah training Tkt 1 dan Tkt 2 maka yang diambil Tkt 2.

untuk lebih jelasnya, sudi kiranya para pakar/suhu excel mau melihat permasalahan ini dalam file yang saya lampirkan.
Terima kasih.

Salam XL-Mania!
John
7a.

Re: tanya distribusi stock surplus - minus

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

Mon Dec 5, 2011 5:49 pm (PST)



Kok belum ada yg menanggapi ya, padahal saya ikut menunggu-nunggu,
seperti apa kira kira sol-usil-nya

Begini saja, kita buat asal-ada saja dulu, nantinya para pakar yg
melihat coding
asal-asalan ini diharapkan bekenan memberi saran dan perbaikan..

Hasil makro ini masih menyisakan pekerjaan yaitu mengisi kolom TrfQty
dan kolom Order Supplier ( Order *kepada *supplier ??/ order *dari*Supplier??)
Kedua data di kolom tsb tidak terlalu sulit dicarinya karena hanya perlu
operasi
aritmatik biasa...

'-----------VBE module standard------------------
Dim Tempe As Range
Dim UniqProdukList

Sub CreateTabelTempe()
*' Create TabelTempe*
*' VBA-coded by indri hapsari / dec 2, 1011*
*' XL-mania case # 19620*
*'-----------------------------------------*
Dim TmpSht As Worksheet, n As Long
Dim Tbl As Range, Produk As Range

Set Tbl = Sheets("Data").Range("A1").CurrentRegion
Tbl(1, 17) = "sign": Tbl(1, 18) = "absQty"

For n = 2 To Tbl.Rows.Count
Tbl(n, 17) = Sgn(Tbl(n, 16).Value)
Tbl(n, 18) = Abs(Tbl(n, 16).Value)
Next n

Set Tbl = Tbl.CurrentRegion
Set TmpSht = Worksheets.Add
Set Tempe = TmpSht.Cells(1)
TmpSht.Name = "Tbl_Tempe"

Tbl.Copy Tempe
Application.CutCopyMode = False
Set Tempe = Tempe.CurrentRegion

* ' menggoreng Tempe (gak pake tepung)*
Tempe.Sort _
Key1:=Tempe(2, 4), Order1:=xlAscending, _
Key2:=Tempe(2, 18), Order2:=xlDescending, _
Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal
Range(Tbl(1, 17), Tbl(1, 18)).EntireColumn.Delete

* ' membuat Daftar Produk_ID_Uniq*
Set Produk = Tempe.Offset(1, 3)
Set Produk = Produk.Resize(Produk.Rows.Count - 1, 1)
UniqProdukList = LOUV(Produk)
Tempe.EntireColumn.AutoFit

End Sub

Sub SusunReport()
* ' Generate Report based on TabelTempe*
* ' VBA-coded by indri hapsari / dec 2, 1011*
* ' XL-mania case # 19620*
* '-----------------------------------------*
Dim Report As Range, Urutan
Dim n As Long, i As Long, r As Long
Dim r1 As Long, r2 As Long, c As Integer
Dim AccuPlus As Double, AccuMinus As Double

Urutan = Array(1, 11, 13, 14, 12, 16)
Set Report = Sheets("hasil").Cells(1).CurrentRegion
Set Report = Report.Offset(2, 0)
* ' report lama dihapus dulu Oom...*
Report.ClearContents

* ' menyusun report baru*
For i = 1 To UBound(UniqProdukList)
r = WorksheetFunction.Max(r1, r2)
r1 = r: r2 = r
For n = 2 To Tempe.Rows.Count
If Tempe(n, 4) = UniqProdukList(i) Then
If Tempe(n, 17) < 1 Then
r2 = r2 + 1
Report(r2, 1) = Tempe(n, 4)
Report(r2, 2) = Tempe(n, 5)
For c = 0 To 5
Report(r2, 9 + c) = Tempe(n, Urutan(c))
Next c
AccuMinus = AccuMinus + Tempe(n, 16)
ElseIf Tempe(n, 17) = 1 Then
r1 = r1 + 1
Report(r1, 1) = Tempe(n, 4)
Report(r1, 2) = Tempe(n, 5)
For c = 0 To 5
Report(r1, 3 + c) = Tempe(n, Urutan(c))
Next c
AccuPlus = AccuPlus + Tempe(n, 16)
End If
End If
Next n
Next i
Sheets(Report.Parent.Name).Activate
End Sub
' -------------------------------------

Variable AccuMinus (akumulasi nilai Minus) dan AccuPlus (akumulasi nilai
plus) sudah disiapan
tetapi belum digunakan..
Contoh workbook lengkap [distribusi stock ( haps makro - beta
version).xlsm<http://www.box.com/s/cmm2460b9n00jnx9dd8t>]
dapat diintip &
diunduh di: http://www.box.com/s/cmm2460b9n00jnx9dd8t

--

2011/11/28 ATek Hoe <at3chhoe@yahoo.com.sg>
>
> Dear teman milisers
> Mohon bantuan teman2 ya. TQ
> Saya diberi tugas utk membuat report Excel berupa distribusi stock dari
outlet yg overstock ke outlet yg stocknya kekurangan/minus.
> Datanya sy query dari table mySQL dgn beberapa parameter dan simpan ke
sheet DATA
> Pd kolom STATUSQTY, positif = overstock ( endqty>maxqty),
> nol = ideal ( minqty<=endqty<=maxqty), minus = kekurangan ( endqty<minqty
)
>
> Rulesnya:
> 1. Pilih outlet yg STATUSQTY positifnya paling besar dan minus terbanyak
> 2. Pindahkan dari Status Positif terbesar ke Status Minus terbesar
> a. Bila Statusqty Positif < Minus, pilih outlet berikutnya yg Statusqty
terbesar ke 2, dst
> (*) Bila tidak ada lagi outlet yg StatusQty positif, isi kolom ORDER
dari supplier utk outlet yg StatusQtynya masih minus.
> b. Bila Statusqty Positif > Minus, ulangi kembali mulai dari rule no 1
>
> Sy sdh coba sekitar 2 minggu tapi belum berhasil jg. Belum begitu lama
belajar VBA, Cuma ngerti sedikit. Array msh belum paham benar.
> Mohon bantuan teman2, lg dikejar2 boss ..he.eh.e
> TIA
> Atek
> nb: sheet Hasil adalah contoh yg diinginkan
8.

Apa bedanya pengunaan save as excel binary workbook dengan save as l

Posted by: "Aziz Yudhistira Alaudin" aziz.yudhistira.alaudin@gmail.com   adhi_tax_dk3

Mon Dec 5, 2011 11:24 pm (PST)



Sekali waktu, aku utak-atik pada format penyimpanan excel, kalo save as
excel workbook saya sudah tahu kegunaannya, begitu pun kalo save as excel
macro sediktnya saya sudah tau kegunaannya. Tapi klo excel binary workbook,
saya benar-benar ga tau. Jadi apa sih perbedaanya atau plus-minus
masing-masing format penyimpaanan file tersebut yah..? Klo punya contohnya,
lampirkan dong yang berformat excel binary tersebut yah....

Aku tunggu urun ilmu dari para senior...

Terima kasih sebelumnya...
9.

Replace Data Perbaris

Posted by: "muja" mail4muja@yahoo.co.id   muja_muje

Mon Dec 5, 2011 11:24 pm (PST)



Salam buat XL Master,

Mohon bantuannya memecahkan masalah code replace data nih (file terlampir) sbb :

- Dalam userform terdapat 1 bh kontrol Listbox, 3 bh Textbox dan 1 bh Command.
- Listbox tsb memuat multi kolom (disini menggunakan 3 Kolom), dan jika di klik list yang ada maka data akan tampil di textbox
- Nah bagaimana cara menganti/mereplace data yang melalui textbox tersebut dengan Command.???
- Code yang sudah di buat terlampir hanya mampu mereplace 1 kolom saja.

Demikian disampaikan, atas bantuannya diucapkan terima kasih.
10.

Mencari 2 karakter angka di depan ditambah koma dan mencari data ber

Posted by: "ari" ari_mantap2000@yahoo.com   ari_mantap2000

Mon Dec 5, 2011 11:27 pm (PST)



Salam para pakar Excel,

saya ari baru bergabung per tanggal 06-12-2011, langsung saja saya mau
bertanya tentang formula untuk mencari 2 karakter angka di depan terus
ditambah koma lalu mecari data berikutnya.. sudah coba pake "=left" tapi
ga sesuai yang diinginkan, mohon bantuannya. "Xl-Mania OK"....

DATA
Hasil yang diinginkan ARI 01A1
ARI 01,02,04 ARI 02A1
PRA 11,12,45 ARI 02A1
MUKA 90,92,93,94 ARI 04B1

Hasil yang saya inginkan seperti pada kolom ini, jadi ARI mempunyai
kode 01,02,04 yang dipisah dengan tanda koma (,)
ARI 04B1

ARI 04B1

PRA 11A1

PRA 12A1

PRA 45A1

PRA 45A1

PRA 45A1

PRA 45A1

MUKA 90A1

MUKA 92A1

MUKA 93A1

MUKA 94B1

MUKA 94B1

MUKA 94B1

Terimakasih XL - Mania, sangat ditunggu Formulanya.. :)

11.

Nearest Neighbor

Posted by: "Maramis Setiawan" maramis_setiawan@yahoo.co.id   maramis_setiawan

Tue Dec 6, 2011 12:17 am (PST)



Yth. Para Guru XLMania

sebelumnya saya mau terima kasih atas jawaban2 pertanyaan saya yg lalu

sekarang saya mau sharing tentang sebuah algoritma Nearest Neighbor, dan payahnya saya bisa dan paham jalannya sebuah algoritma tapi susah buat prototypenya dengan VBA atau bhs pemrograman yg lain. Bahkan dulu aja Tugas Akhir buat algoritma Tabu Search dalam kasus VRP tapi kagak bisa buat prototype/bhs pemrogramannya.....just have it done hehehe

nah ini di dalam ada contoh file nearest neighbor dan sedikit penjelasan algoritma saya.

sebelumnya terima kasih.
Recent Activity
Visit Your Group
Yahoo! Groups

Cat Owners Group

Join a community

for cat lovers

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Check out the

Y! Groups blog

Stay up to speed

on all things Groups!

Need to Reply?

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

Create New Topic | Visit Your Group on the Web
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| momods kebanyakan e-mail :(... unread di kantor 6 ribu lebih :(   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Tidak ada komentar:

Posting Komentar