15 New Messages
Digest #2019
5a
Re: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk prose by "Mr. Kid" nmkid.family@ymail.com
Messages
Fri Jan 11, 2013 11:58 am (PST) . Posted by:
"cindhi dwi" cindhi.nouvie
Dear Sensei excel,
Maaf yaa, saya mau nanya lagi..
Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove duplicate..
Pertama, source data ada di file Alarm List di sheet Alarm difilter di kolom Strategy name (difilter satu-satu)
Contoh Gambar difilter Strategy name Keyword_Alarm_01-P2P SMS
Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet List (sesuai dengan jenis strategy name nya)
Kemudian data di kolom Remove Duplikat diremove duplicate.
Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy namenya)
Tapi sensei, jumlah data di kolom strategy name itu kadang suka berubah-ubah,, kadang ada 6 jenis strategy name, kadang ada 9 jenis..
Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika membingungkan)
--
Dommo,
Regards,
Cindhi Dwi Novita
--- Mods ---
Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal. mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
------------
Maaf yaa, saya mau nanya lagi..
Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove duplicate..
Pertama, source data ada di file Alarm List di sheet Alarm difilter di kolom Strategy name (difilter satu-satu)
Contoh Gambar difilter Strategy name Keyword_Alarm_
Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet List (sesuai dengan jenis strategy name nya)
Kemudian data di kolom Remove Duplikat diremove duplicate.
Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy namenya)
Tapi sensei, jumlah data di kolom strategy name itu kadang suka berubah-ubah,
Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika membingungkan)
--
Dommo,
Regards,
Cindhi Dwi Novita
--- Mods ---
Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal. mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
------------
Fri Jan 11, 2013 3:45 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sambil menunggu file lampiran yang lebih sesuai dengan peraturan milis.
Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2
pivot table.
Gambar 1 adalah data awal.
Coba langkah berikut :
1. buat sebuah sheet baru dan beri nama Unik
2. pada sheet data awal
>> pisahkan data tanggal pada start time dari data waktu nya
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
-> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
>> blok seluruh data (termasuk header) ke sheet unik pada cell A1
3. pada sheet unik
>> menyusun unique caller dan strategy
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate ->
tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2
kolom) -> OK
4. buat sheet output (misal diberi nama Output)
>> pada cell D10 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet data
awal *dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet Unik
*dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu
-> save
Prosedur rutin per bulan (ketika ada data baru)
1. buka file data yang baru -> lakukan text to columns terhadap kolom G
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
-> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
2. buka file templateku dan pada sheet data awal dan unik lakukan
::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan
pilih clearcontents
3. kembali ke file data yang baru (yang telah diproses text to column)
::> blok seluruh data -> copy (tekan CTRL C -> paste ke file
templateku sheet data awal dan sheet unik
4. tutup file data yang baru
5. pada file templateku sheet unik lakukan remove duplicate seperti nomor 3
di atas jauh sana :
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate ->
tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2
kolom) -> OK
6. refresh pivot table
::> ribbon Data -> Refresh -> pilih Refresh All
7. save templateku
Setiap bulan, jalankan prosedur rutin tersebut.
Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
Wassalam,
Kid.
2013/1/11 cindhi dwi cindhi.nouvie@yahoo.com >
> Dear Sensei excel,
>
>
> Maaf yaa, saya mau nanya lagi..
>
> Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove
> duplicate..
> Pertama, source data ada di file Alarm List di sheet Alarm difilter di
> kolom Strategy name (difilter satu-satu)
> Contoh Gambar difilter Strategy name Keyword_Alarm_01-P2P SMS
>
>
>
> Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet
> List (sesuai dengan jenis strategy name nya)
>
>
>
> Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
> Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily
> report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
> begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke
> dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy
> namenya)
>
>
>
> Tapi sensei, jumlah data di kolom strategy name itu kadang suka
> berubah-ubah,, kadang ada 6 jenis strategy name, kadang ada 9 jenis..
>
> Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika
> membingungkan)
>
>
> --
> Dommo,
>
> Regards,
>
>
> Cindhi Dwi Novita
>
>
> --- Mods ---
> Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal.
> mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah
> 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
> ------------
Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2
pivot table.
Gambar 1 adalah data awal.
Coba langkah berikut :
1. buat sebuah sheet baru dan beri nama Unik
2. pada sheet data awal
>> pisahkan data tanggal pada start time dari data waktu nya
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
-> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
>> blok seluruh data (termasuk header) ke sheet unik pada cell A1
3. pada sheet unik
>> menyusun unique caller dan strategy
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate ->
tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2
kolom) -> OK
4. buat sheet output (misal diberi nama Output)
>> pada cell D10 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet data
awal *dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet Unik
*dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu
-> save
Prosedur rutin per bulan (ketika ada data baru)
1. buka file data yang baru -> lakukan text to columns terhadap kolom G
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
-> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
2. buka file templateku dan pada sheet data awal dan unik lakukan
::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan
pilih clearcontents
3. kembali ke file data yang baru (yang telah diproses text to column)
::> blok seluruh data -> copy (tekan CTRL C -> paste ke file
templateku sheet data awal dan sheet unik
4. tutup file data yang baru
5. pada file templateku sheet unik lakukan remove duplicate seperti nomor 3
di atas jauh sana :
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate ->
tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2
kolom) -> OK
6. refresh pivot table
::> ribbon Data -> Refresh -> pilih Refresh All
7. save templateku
Setiap bulan, jalankan prosedur rutin tersebut.
Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
Wassalam,
Kid.
2013/1/11 cindhi dwi cindhi.nouvie@
> Dear Sensei excel,
>
>
> Maaf yaa, saya mau nanya lagi..
>
> Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove
> duplicate..
> Pertama, source data ada di file Alarm List di sheet Alarm difilter di
> kolom Strategy name (difilter satu-satu)
> Contoh Gambar difilter Strategy name Keyword_Alarm_
>
>
>
> Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet
> List (sesuai dengan jenis strategy name nya)
>
>
>
> Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
> Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily
> report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
> begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke
> dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy
> namenya)
>
>
>
> Tapi sensei, jumlah data di kolom strategy name itu kadang suka
> berubah-ubah,
>
> Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika
> membingungkan)
>
>
> --
> Dommo,
>
> Regards,
>
>
> Cindhi Dwi Novita
>
>
> --- Mods ---
> Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal.
> mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah
> 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
> ------------
Sat Jan 12, 2013 1:49 am (PST) . Posted by:
"cindhi dwi" cindhi.nouvie
Wakarimashita, momod..
Gomen.. File nya terlalu besar..
Ini di attach ulang..
Oia Mr. Kid ada yg mau saya tanyain..
saya udh coba saran dari Mr., trus ada yg saya bingung..
1. Di bagian ini
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet Unik dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
Pas saya coba, cell D20 di sheet output itu kan masih dlm bagian pivot table, jadi ga bisa pake pivot table lagi Mr. (button pivot table nya jadi ga aktif)
2. Strategy nya kan di tarik ke bagian Value, itu nilai value field settings nya perlu dipakai ga Mr ? klo di perlu, pake value apa (count/max/average/sum/min) ?
Maaf ya kalo banyak nanya..
--
Dommo,
Regards,
Cindhi Dwi Novita
________________________________
From: Mr. Kid mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Saturday, January 12, 2013 6:45 AM
Subject: Re: [belajar-excel] Filter & Remove duplikat
Sambil menunggu file lampiran yang lebih sesuai dengan peraturan milis.
Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2 pivot table.
Gambar 1 adalah data awal.
Coba langkah berikut :
1. buat sebuah sheet baru dan beri nama Unik
2. pada sheet data awal
>> pisahkan data tanggal pada start time dari data waktu nya
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited -> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
>> blok seluruh data (termasuk header) ke sheet unik pada cell A1
3. pada sheet unik
>> menyusun unique caller dan strategy
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate -> tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2 kolom) -> OK
4. buat sheet output (misal diberi nama Output)
>> pada cell D10 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet data awal dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet Unik dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu -> save
Prosedur rutin per bulan (ketika ada data baru)
1. buka file data yang baru -> lakukan text to columns terhadap kolom G
::> blok kolom G -> ribbon Data -> text to columns ->
pilih Delimited -> Next -> centang opsi Space -> Next sampai
Finish
::> ganti header kolom G menjadi teks berbunyi Rules
2. buka file templateku dan pada sheet data awal dan unik lakukan
::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan pilih clearcontents
3. kembali ke file data yang baru (yang telah diproses text to column)
::> blok seluruh data -> copy (tekan CTRL C -> paste ke file templateku sheet data awal dan sheet unik
4. tutup file data yang baru
5. pada file templateku sheet unik lakukan remove duplicate seperti nomor 3 di atas jauh sana :
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate -> tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2 kolom) -> OK
6. refresh pivot table
::> ribbon Data -> Refresh -> pilih Refresh All
7. save templateku
Setiap bulan, jalankan prosedur rutin tersebut.
Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
Wassalam,
Kid.
2013/1/11 cindhi dwi cindhi.nouvie@yahoo.com >
Dear Sensei excel,
>
>
>Maaf yaa, saya mau nanya lagi..
>
>Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove duplicate..
>Pertama, source data ada di file Alarm List di sheet Alarm difilter di kolom Strategy name (difilter satu-satu)
>Contoh Gambar difilter Strategy name Keyword_Alarm_01-P2P SMS
>
>
>
>Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet List (sesuai dengan jenis strategy name nya)
>
>
>
>Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
>Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
>begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy namenya)
>
>
>
>Tapi sensei, jumlah data di kolom strategy name itu kadang suka berubah-ubah,, kadang ada 6 jenis strategy name, kadang ada 9 jenis..
>
>Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika membingungkan)
>
>
>--
>Dommo,
>
>Regards,
>
>
>Cindhi Dwi Novita
>
>
>--- Mods ---
>Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal. mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
>------------
Gomen.. File nya terlalu besar..
Ini di attach ulang..
Oia Mr. Kid ada yg mau saya tanyain..
saya udh coba saran dari Mr., trus ada yg saya bingung..
1. Di bagian ini
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet Unik dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
Pas saya coba, cell D20 di sheet output itu kan masih dlm bagian pivot table, jadi ga bisa pake pivot table lagi Mr. (button pivot table nya jadi ga aktif)
2. Strategy nya kan di tarik ke bagian Value, itu nilai value field settings nya perlu dipakai ga Mr ? klo di perlu, pake value apa (count/max/average/
Maaf ya kalo banyak nanya..
--
Dommo,
Regards,
Cindhi Dwi Novita
____________
From: Mr. Kid mr.nmkid@gmail.
To: belajar-excel@
Sent: Saturday, January 12, 2013 6:45 AM
Subject: Re: [belajar-excel] Filter & Remove duplikat
Sambil menunggu file lampiran yang lebih sesuai dengan peraturan milis.
Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2 pivot table.
Gambar 1 adalah data awal.
Coba langkah berikut :
1. buat sebuah sheet baru dan beri nama Unik
2. pada sheet data awal
>> pisahkan data tanggal pada start time dari data waktu nya
::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited -> Next -> centang opsi Space -> Next sampai Finish
::> ganti header kolom G menjadi teks berbunyi Rules
>> blok seluruh data (termasuk header) ke sheet unik pada cell A1
3. pada sheet unik
>> menyusun unique caller dan strategy
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate -> tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2 kolom) -> OK
4. buat sheet output (misal diberi nama Output)
>> pada cell D10 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet data awal dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
>> pada cell D20 sheet output
::> ribbon Insert -> Pivot Table -> pilih data source dari sheet Unik dengan klik kolom A sampai kolom rules (kolom G) ->
pilih existing worksheet sebagai lokasi output -> ok
::> klik pivot table yang sudah terbentuk -> tarik field Rules ke bagian Rows
-> tarik field Strategy ke bagian Columns
-> tarik Caller ke bagian values
-> filter Rules hilangkan centang dari item blank
5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu -> save
Prosedur rutin per bulan (ketika ada data baru)
1. buka file data yang baru -> lakukan text to columns terhadap kolom G
::> blok kolom G -> ribbon Data -> text to columns ->
pilih Delimited -> Next -> centang opsi Space -> Next sampai
Finish
::> ganti header kolom G menjadi teks berbunyi Rules
2. buka file templateku dan pada sheet data awal dan unik lakukan
::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan pilih clearcontents
3. kembali ke file data yang baru (yang telah diproses text to column)
::> blok seluruh data -> copy (tekan CTRL C -> paste ke file templateku sheet data awal dan sheet unik
4. tutup file data yang baru
5. pada file templateku sheet unik lakukan remove duplicate seperti nomor 3 di atas jauh sana :
::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate -> tekan unselect all ->
centang has header -> centang kolom Caller dan Startegy (2 kolom) -> OK
6. refresh pivot table
::> ribbon Data -> Refresh -> pilih Refresh All
7. save templateku
Setiap bulan, jalankan prosedur rutin tersebut.
Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
Wassalam,
Kid.
2013/1/11 cindhi dwi cindhi.nouvie@
Dear Sensei excel,
>
>
>Maaf yaa, saya mau nanya lagi..
>
>Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove duplicate..
>Pertama, source data ada di file Alarm List di sheet Alarm difilter di kolom Strategy name (difilter satu-satu)
>Contoh Gambar difilter Strategy name Keyword_Alarm_
>
>
>
>Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet List (sesuai dengan jenis strategy name nya)
>
>
>
>Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
>Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
>begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy namenya)
>
>
>
>Tapi sensei, jumlah data di kolom strategy name itu kadang suka berubah-ubah,
>
>Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika membingungkan)
>
>
>--
>Dommo,
>
>Regards,
>
>
>Cindhi Dwi Novita
>
>
>--- Mods ---
>Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal. mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
>--------
Sat Jan 12, 2013 2:36 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
1. Di bagian ini
>> pada cell D20 sheet output
>> Jika data awal kolom G sudah ditext to columns sesuai anjuran dan pivot
table dari sheet data awal ada di D10 dengan seluruh field diletakkan
sesuai usulan lalu
mestinya D20 masih kosong
berikut tata letaknya :
::> klik pivot table yang sudah terbentuk
-> tarik field *Rules *ke bagian *Rows *
-> tarik field *Strategy *ke bagian *Columns *
-> tarik *Caller *ke bagian *values *
->* filter Rules* hilangkan centang dari item blank
2. Strategy nya kan di tarik ke bagian Value
>> coba lihat ulang tata letak pivot table-nya seperti di nomor 1
Wassalam,
Kid.
2013/1/12 cindhi dwi cindhi.nouvie@yahoo.com >
> **
>
>
> Wakarimashita, momod..
> Gomen.. File nya terlalu besar..
>
> Ini di attach ulang..
>
> Oia Mr. Kid ada yg mau saya tanyain..
> saya udh coba saran dari Mr., trus ada yg saya bingung..
>
> 1. Di bagian ini
> >> pada cell D20 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> Unik *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> Pas saya coba, cell D20 di sheet output itu kan masih dlm bagian pivot
> table, jadi ga bisa pake pivot table lagi Mr. (button pivot table nya jadi
> ga aktif)
>
> 2. Strategy nya kan di tarik ke bagian Value, itu nilai value field
> settings nya perlu dipakai ga Mr ? klo di perlu, pake value apa
> (count/max/average/sum/min) ?
>
> Maaf ya kalo banyak nanya..
>
> --
>
> Dommo,*
>
> Regards,
>
>
> Cindhi Dwi Novita*
>
>
> ------------------------------
> *From:* Mr. Kid mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Saturday, January 12, 2013 6:45 AM
> *Subject:* Re: [belajar-excel] Filter & Remove duplikat
>
>
> Sambil menunggu file lampiran yang lebih sesuai dengan peraturan milis.
>
> Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2
> pivot table.
> Gambar 1 adalah data awal.
> Coba langkah berikut :
> 1. buat sebuah sheet baru dan beri nama Unik
> 2. pada sheet data awal
> >> pisahkan data tanggal pada start time dari data waktu nya
> ::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
> -> Next -> centang opsi Space -> Next sampai Finish
> ::> ganti header kolom G menjadi teks berbunyi Rules
> >> blok seluruh data (termasuk header) ke sheet unik pada cell A1
> 3. pada sheet unik
> >> menyusun unique caller dan strategy
> ::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate
> -> tekan unselect all ->
> centang has header -> centang kolom Caller dan Startegy (2
> kolom) -> OK
> 4. buat sheet output (misal diberi nama Output)
> >> pada cell D10 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> data awal *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> ::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
> bagian Rows
> -> tarik field Strategy ke bagian Columns
> -> tarik Caller ke bagian values
> -> filter Rules hilangkan centang dari item blank
> >> pada cell D20 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> Unik *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> ::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
> bagian Rows
> -> tarik field Strategy ke bagian Columns
> -> tarik Caller ke bagian values
> -> filter Rules hilangkan centang dari item blank
> 5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu
> -> save
>
> Prosedur rutin per bulan (ketika ada data baru)
> 1. buka file data yang baru -> lakukan text to columns terhadap kolom G
> ::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
> -> Next -> centang opsi Space -> Next sampai Finish
> ::> ganti header kolom G menjadi teks berbunyi Rules
> 2. buka file templateku dan pada sheet data awal dan unik lakukan
> ::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan
> pilih clearcontents
> 3. kembali ke file data yang baru (yang telah diproses text to column)
> ::> blok seluruh data -> copy (tekan CTRL C -> paste ke file
> templateku sheet data awal dan sheet unik
> 4. tutup file data yang baru
> 5. pada file templateku sheet unik lakukan remove duplicate seperti nomor
> 3 di atas jauh sana :
> ::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate
> -> tekan unselect all ->
> centang has header -> centang kolom Caller dan Startegy (2
> kolom) -> OK
> 6. refresh pivot table
> ::> ribbon Data -> Refresh -> pilih Refresh All
> 7. save templateku
> Setiap bulan, jalankan prosedur rutin tersebut.
>
> Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
>
> Wassalam,
> Kid.
>
> 2013/1/11 cindhi dwi cindhi.nouvie@yahoo.com >
>
> Dear Sensei excel,
>
>
> Maaf yaa, saya mau nanya lagi..
>
> Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove
> duplicate..
> Pertama, source data ada di file Alarm List di sheet Alarm difilter di
> kolom Strategy name (difilter satu-satu)
> Contoh Gambar difilter Strategy name Keyword_Alarm_01-P2P SMS
>
>
>
> Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet
> List (sesuai dengan jenis strategy name nya)
>
>
>
> Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
> Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily
> report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
> begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke
> dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy
> namenya)
>
>
>
> Tapi sensei, jumlah data di kolom strategy name itu kadang suka
> berubah-ubah,, kadang ada 6 jenis strategy name, kadang ada 9 jenis..
>
> Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika
> membingungkan)
>
>
> --
> Dommo,
>
> Regards,
>
>
> Cindhi Dwi Novita
>
>
> --- Mods ---
> Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal.
> mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah
> 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
> ------------
>
>
>
>
>
>
>> pada cell D20 sheet output
>> Jika data awal kolom G sudah ditext to columns sesuai anjuran dan pivot
table dari sheet data awal ada di D10 dengan seluruh field diletakkan
sesuai usulan lalu
mestinya D20 masih kosong
berikut tata letaknya :
::> klik pivot table yang sudah terbentuk
-> tarik field *Rules *ke bagian *Rows *
-> tarik field *Strategy *ke bagian *Columns *
-> tarik *Caller *ke bagian *values *
->* filter Rules* hilangkan centang dari item blank
2. Strategy nya kan di tarik ke bagian Value
>> coba lihat ulang tata letak pivot table-nya seperti di nomor 1
Wassalam,
Kid.
2013/1/12 cindhi dwi cindhi.nouvie@
> **
>
>
> Wakarimashita, momod..
> Gomen.. File nya terlalu besar..
>
> Ini di attach ulang..
>
> Oia Mr. Kid ada yg mau saya tanyain..
> saya udh coba saran dari Mr., trus ada yg saya bingung..
>
> 1. Di bagian ini
> >> pada cell D20 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> Unik *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> Pas saya coba, cell D20 di sheet output itu kan masih dlm bagian pivot
> table, jadi ga bisa pake pivot table lagi Mr. (button pivot table nya jadi
> ga aktif)
>
> 2. Strategy nya kan di tarik ke bagian Value, itu nilai value field
> settings nya perlu dipakai ga Mr ? klo di perlu, pake value apa
> (count/max/average/
>
> Maaf ya kalo banyak nanya..
>
> --
>
> Dommo,*
>
> Regards,
>
>
> Cindhi Dwi Novita*
>
>
> ------------
> *From:* Mr. Kid mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Saturday, January 12, 2013 6:45 AM
> *Subject:* Re: [belajar-excel] Filter & Remove duplikat
>
>
> Sambil menunggu file lampiran yang lebih sesuai dengan peraturan milis.
>
> Jika dilihat dari gambar yang ada, sepertinya output bisa diperoleh dari 2
> pivot table.
> Gambar 1 adalah data awal.
> Coba langkah berikut :
> 1. buat sebuah sheet baru dan beri nama Unik
> 2. pada sheet data awal
> >> pisahkan data tanggal pada start time dari data waktu nya
> ::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
> -> Next -> centang opsi Space -> Next sampai Finish
> ::> ganti header kolom G menjadi teks berbunyi Rules
> >> blok seluruh data (termasuk header) ke sheet unik pada cell A1
> 3. pada sheet unik
> >> menyusun unique caller dan strategy
> ::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate
> -> tekan unselect all ->
> centang has header -> centang kolom Caller dan Startegy (2
> kolom) -> OK
> 4. buat sheet output (misal diberi nama Output)
> >> pada cell D10 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> data awal *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> ::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
> bagian Rows
> -> tarik field Strategy ke bagian Columns
> -> tarik Caller ke bagian values
> -> filter Rules hilangkan centang dari item blank
> >> pada cell D20 sheet output
> ::> ribbon Insert -> Pivot Table -> pilih data source *dari sheet
> Unik *dengan klik kolom A sampai kolom rules (kolom G) ->
> pilih existing worksheet sebagai lokasi output -> ok
> ::> klik pivot table yang sudah terbentuk -> tarik field Rules ke
> bagian Rows
> -> tarik field Strategy ke bagian Columns
> -> tarik Caller ke bagian values
> -> filter Rules hilangkan centang dari item blank
> 5. save as workbook (tekan ALT F A) -> tulis nama file misal TemplateKu
> -> save
>
> Prosedur rutin per bulan (ketika ada data baru)
> 1. buka file data yang baru -> lakukan text to columns terhadap kolom G
> ::> blok kolom G -> ribbon Data -> text to columns -> pilih Delimited
> -> Next -> centang opsi Space -> Next sampai Finish
> ::> ganti header kolom G menjadi teks berbunyi Rules
> 2. buka file templateku dan pada sheet data awal dan unik lakukan
> ::> blok seluruh data -> tekan tombol keyboard delete atau klik kanan
> pilih clearcontents
> 3. kembali ke file data yang baru (yang telah diproses text to column)
> ::> blok seluruh data -> copy (tekan CTRL C -> paste ke file
> templateku sheet data awal dan sheet unik
> 4. tutup file data yang baru
> 5. pada file templateku sheet unik lakukan remove duplicate seperti nomor
> 3 di atas jauh sana :
> ::> blok seluruh tabel (termasuk header) -> ribbon Remove Duplicate
> -> tekan unselect all ->
> centang has header -> centang kolom Caller dan Startegy (2
> kolom) -> OK
> 6. refresh pivot table
> ::> ribbon Data -> Refresh -> pilih Refresh All
> 7. save templateku
> Setiap bulan, jalankan prosedur rutin tersebut.
>
> Prosedur rutin bisa diotomasi dengan VBA setelah punya file templateku
>
> Wassalam,
> Kid.
>
> 2013/1/11 cindhi dwi cindhi.nouvie@
>
> Dear Sensei excel,
>
>
> Maaf yaa, saya mau nanya lagi..
>
> Jadi gini sensei, saya mau buat macro untuk bisa filter dan remove
> duplicate..
> Pertama, source data ada di file Alarm List di sheet Alarm difilter di
> kolom Strategy name (difilter satu-satu)
> Contoh Gambar difilter Strategy name Keyword_Alarm_
>
>
>
> Kemudian data yg di kolom A (Caller No.) di copy lalu di paste 2x di sheet
> List (sesuai dengan jenis strategy name nya)
>
>
>
> Kemudian data di kolom Remove Duplikat diremove duplicate.
>
>
>
> Lalu jumlah data di remove duplikat di masukkan ke dalam file Alarm daily
> report sheet Total Remove (kolomnya sesuai dgn strategy namenya)
>
>
>
> begitu juga dgn kolom Total, jumlah data di kolom Total dimasukkan ke
> dalam file Alarm daily report sheet Total (kolomnya sesuai dgn strategy
> namenya)
>
>
>
> Tapi sensei, jumlah data di kolom strategy name itu kadang suka
> berubah-ubah,
>
> Mohon bantuannya yaa sensei.. File terlampir.. (Maaf yaa, jika
> membingungkan)
>
>
> --
> Dommo,
>
> Regards,
>
>
> Cindhi Dwi Novita
>
>
> --- Mods ---
> Berhubung file lampiran terlalu besar (1.6MB), maka file lampiran dicekal.
> mbak Cindhi diharap melampirkan ulang file yang ukuran maksimalnya adalah
> 250KB. Yang dibutuhkan adalah contoh data, bukan data kerja seluruhnya.
> ------------
>
>
>
>
>
>
Fri Jan 11, 2013 11:58 am (PST) . Posted by:
"Md Switra" mswitra
Selamat Malam Teman-teman di Group ini.
Hari saya menemukan kendala membuat formula guna menyortir data sesuai dengan beberapa kreteria yang sudah ditentukan. Saya sudah lampirkan filenya.
Terima kasih atas segala bantuannya
Hari saya menemukan kendala membuat formula guna menyortir data sesuai dengan beberapa kreteria yang sudah ditentukan. Saya sudah lampirkan filenya.
Terima kasih atas segala bantuannya
Fri Jan 11, 2013 4:31 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Memfilter data dengan formula biasanya memanfaatkan array fromula filtering
(lihat disinihttp://excel-mr-kid.blogspot.com/2011/04/formula-filter-data-filtering-formula.html >
).
File terlampir.
Wassalam,
Kid.
2013/1/11 Md Switra mswitra@yahoo.com >
> **
>
>
> Selamat Malam Teman-teman di Group ini.
> Hari saya menemukan kendala membuat formula guna menyortir data sesuai
> dengan beberapa kreteria yang sudah ditentukan. Saya sudah lampirkan
> filenya.
>
> Terima kasih atas segala bantuannya
>
> _
>
(lihat disinihttp://excel-
).
File terlampir.
Wassalam,
Kid.
2013/1/11 Md Switra mswitra@yahoo.
> **
>
>
> Selamat Malam Teman-teman di Group ini.
> Hari saya menemukan kendala membuat formula guna menyortir data sesuai
> dengan beberapa kreteria yang sudah ditentukan. Saya sudah lampirkan
> filenya.
>
> Terima kasih atas segala bantuannya
>
> _
>
Fri Jan 11, 2013 11:58 am (PST) . Posted by:
"jajang muhammad siddik" jajang_ms
Dear All Suhu Excel
Adakah perintah macro yang guna nya untuk meng-close workbook yang aktif jika tidak di gunakan dalam waktu tertentu, misalkan dalam waktu 5 menit file excel yang aktif tidak di gunakan, maka file tersebut akan otomasis di save dan di close.
Mohon pencerahannya.
Salam,
Jajangms
Adakah perintah macro yang guna nya untuk meng-close workbook yang aktif jika tidak di gunakan dalam waktu tertentu, misalkan dalam waktu 5 menit file excel yang aktif tidak di gunakan, maka file tersebut akan otomasis di save dan di close.
Mohon pencerahannya.
Salam,
Jajangms
Fri Jan 11, 2013 7:18 pm (PST) . Posted by:
"Slamet" slametharto
Dear Pak Jajang
Copy paste macro berikut di modul Thisworkbook
'memanggil timer saat open workbook
Private Sub Workbook_Open()
Run "Mulai"
End Sub
'mengulangi timer saat user melakukan update / click cell tertentu
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Excel.Range)
Run "Batalkan";
Run "Mulai"
End Sub
'mengulangi timer saat terjadi refresh
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Run "Batalkan";
Run "Mulai"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Run "Batalkan";
Run "Mulai"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "Batalkan";
End Sub
Copy paste macro berikut di modul 1
Option Explicit
Public IdleTime As Date
Sub Mulai()
IdleTime = Now + TimeValue("00:05:00")
Application.ontime IdleTime, "ExitWB"
End Sub
Sub Batalkan()
On Error Resume Next
Application.ontime EarliestTime:=IdleTime, _
Procedure:="ExitWB", Schedule:=False
End Sub
Sub ExitWB()
application.DisplayAlerts =False
ActiveWorkbook.Close
End Sub
Wassalam
On 1/11/2013 11:39 PM, jajang muhammad siddik wrote:
> Dear All Suhu Excel
>
> Adakah perintah macro yang guna nya untuk meng-close workbook yang
> aktif jika tidak di gunakan dalam waktu tertentu, misalkan dalam waktu
> 5 menit file excel yang aktif tidak di gunakan, maka file tersebut
> akan otomasis di save dan di close.
>
>
> Mohon pencerahannya.
>
>
> Salam,
>
>
>
> Jajangms
>
Copy paste macro berikut di modul Thisworkbook
'memanggil timer saat open workbook
Private Sub Workbook_Open(
Run "Mulai"
End Sub
'mengulangi timer saat user melakukan update / click cell tertentu
Private Sub Workbook_SheetSelec
Target As Excel.Range)
Run "Batalkan"
Run "Mulai"
End Sub
'mengulangi timer saat terjadi refresh
Private Sub Workbook_SheetCalcu
Run "Batalkan"
Run "Mulai"
End Sub
Private Sub Workbook_BeforeSave
Boolean)
Run "Batalkan"
Run "Mulai"
End Sub
Private Sub Workbook_BeforeClos
Run "Batalkan"
End Sub
Copy paste macro berikut di modul 1
Option Explicit
Public IdleTime As Date
Sub Mulai()
IdleTime = Now + TimeValue("
Application.
End Sub
Sub Batalkan()
On Error Resume Next
Application.
Procedure:="
End Sub
Sub ExitWB()
application.
ActiveWorkbook.
End Sub
Wassalam
On 1/11/2013 11:39 PM, jajang muhammad siddik wrote:
> Dear All Suhu Excel
>
> Adakah perintah macro yang guna nya untuk meng-close workbook yang
> aktif jika tidak di gunakan dalam waktu tertentu, misalkan dalam waktu
> 5 menit file excel yang aktif tidak di gunakan, maka file tersebut
> akan otomasis di save dan di close.
>
>
> Mohon pencerahannya.
>
>
> Salam,
>
>
>
> Jajangms
>
Fri Jan 11, 2013 1:45 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Aisyah,
Assalamu'alaikum Wr. Wb.
Sebaiknya type memiliki struktur yang tetap dengan penulisan yang konsisten
agar lebih mudah dikomputasi. Mulai dari jumlah spasi, jumlah karakter,
tata letak komponen penyusun item, dsb.
Fungsi CountIF, Search, Match, VLookUp bisa menerima wildcard character *
(berarti sebarang karakter yang ada) dan ? (sebuah karakter sebarang)
Maka sebaiknya XX sebagai wakil kode warna diganti dengan ?? seperti pada
file lampiran. Bisa juga penggantian XX menjadi ?? dilakukan dalam formula.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/1/11 Aisyah Zahrah aisyah_zahrah@ymail.com >
> **
>
>
> Dear Para Guru Excel,
> Pertanyaan dasar dari pemula pemakai excel, mohon bantuannya,
> Bagaimana caranya menggunakan rumus VLOOKUP yang karakternya berbeda
> Terima kasih sebelumnya
>
> _
>
Assalamu'
Sebaiknya type memiliki struktur yang tetap dengan penulisan yang konsisten
agar lebih mudah dikomputasi. Mulai dari jumlah spasi, jumlah karakter,
tata letak komponen penyusun item, dsb.
Fungsi CountIF, Search, Match, VLookUp bisa menerima wildcard character *
(berarti sebarang karakter yang ada) dan ? (sebuah karakter sebarang)
Maka sebaiknya XX sebagai wakil kode warna diganti dengan ?? seperti pada
file lampiran. Bisa juga penggantian XX menjadi ?? dilakukan dalam formula.
Wassalamu'
Kid.
2013/1/11 Aisyah Zahrah aisyah_zahrah@
> **
>
>
> Dear Para Guru Excel,
> Pertanyaan dasar dari pemula pemakai excel, mohon bantuannya,
> Bagaimana caranya menggunakan rumus VLOOKUP yang karakternya berbeda
> Terima kasih sebelumnya
>
> _
>
Fri Jan 11, 2013 7:02 pm (PST) . Posted by:
"aisyah_zahrah@ymail.com" aisyah_zahrah@ymail.com
Wa`alaikum salam Wr.Wb
terimah kasih Mr.Kid atas bantuan dan solusinya,terima kasih juga atas ilmunya
salam kenal Mr.Kid
--- In belajar-excel@yahoogroups.com , "Mr. Kid" wrote:
>
> Hai Aisyah,
>
> Assalamu'alaikum Wr. Wb.
>
> Sebaiknya type memiliki struktur yang tetap dengan penulisan yang konsisten
> agar lebih mudah dikomputasi. Mulai dari jumlah spasi, jumlah karakter,
> tata letak komponen penyusun item, dsb.
>
> Fungsi CountIF, Search, Match, VLookUp bisa menerima wildcard character *
> (berarti sebarang karakter yang ada) dan ? (sebuah karakter sebarang)
> Maka sebaiknya XX sebagai wakil kode warna diganti dengan ?? seperti pada
> file lampiran. Bisa juga penggantian XX menjadi ?? dilakukan dalam formula.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
> 2013/1/11 Aisyah Zahrah
>
> > **
> >
> >
> > Dear Para Guru Excel,
> > Pertanyaan dasar dari pemula pemakai excel, mohon bantuannya,
> > Bagaimana caranya menggunakan rumus VLOOKUP yang karakternya berbeda
> > Terima kasih sebelumnya
> >
> > _
> >
>
terimah kasih Mr.Kid atas bantuan dan solusinya,terima kasih juga atas ilmunya
salam kenal Mr.Kid
--- In belajar-excel@
>
> Hai Aisyah,
>
> Assalamu'
>
> Sebaiknya type memiliki struktur yang tetap dengan penulisan yang konsisten
> agar lebih mudah dikomputasi. Mulai dari jumlah spasi, jumlah karakter,
> tata letak komponen penyusun item, dsb.
>
> Fungsi CountIF, Search, Match, VLookUp bisa menerima wildcard character *
> (berarti sebarang karakter yang ada) dan ? (sebuah karakter sebarang)
> Maka sebaiknya XX sebagai wakil kode warna diganti dengan ?? seperti pada
> file lampiran. Bisa juga penggantian XX menjadi ?? dilakukan dalam formula.
>
> Wassalamu'
> Kid.
>
> 2013/1/11 Aisyah Zahrah
>
> > **
> >
> >
> > Dear Para Guru Excel,
> > Pertanyaan dasar dari pemula pemakai excel, mohon bantuannya,
> > Bagaimana caranya menggunakan rumus VLOOKUP yang karakternya berbeda
> > Terima kasih sebelumnya
> >
> > _
> >
>
Fri Jan 11, 2013 3:01 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Andai dari sheet problem (area input) di save ke sheet data yang berkaidah
database, maka output di sheet mdata bisa disusun dengan pivot table.
Terlepas dari masalah data berkaidah database, topiknya adalah tentang
penyederhanaan proses.
Untuk proses menyalin hasil inputan ke sheet mdata seperti yang ada saat
ini *membutuhkan perulangan*.
Proses perulangan yang ada dapat disederhanakan menjadi sebuah prosedur
tersendiri seperti :
Private Sub Salin(rngSource As Range, lOffsetNIS As Long, rngAnchor As
Range, lKolom As Long)
Dim rng As Range, lOffsetKolom As Long
lOffsetKolom = -1
For Each rng In rngSource
lOffsetKolom = lOffsetKolom + 1
rng.Resize(1, lKolom).Copy rngAnchor.Resize(1,
1).Offset(lOffsetNIS, lOffsetKolom * lKolom)
Next rng
End Sub
Dengan prosedur perulangan di atas, maka proses save dalam event click bisa
disusun menjadi :
Private Sub CmdMM_Click()
Dim lOffNis As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
lOffNis = Range("o2").Value
With Sheets("Mdata")
'copas
Salin Range("F4:f8"), lOffNis, .Range("e11"), 5
'Normatif
Salin Range("F10:f17"), lOffNis, .Range("ad11"), 5
'Adaptif
Salin Range("F20:f22"), lOffNis, .Range("br11"), 5
'Produktif1
Salin Range("F24:f40"), lOffNis, .Range("cg11"), 5
'Produktif2
Salin Range("F42:f43"), lOffNis, .Range("fs11"), 5
'Muatan lokal
'finishing
.Range("fi11").ClearOutline
Range("F4:K61").ClearContents
End With
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Wassalam,
Kid.
2013/1/11 Jan Raisin miss.jan.raisin@gmail.com >
> **
>
>
> Jan setuju dengan pendapat dari master Hendrik,
> untuk memudahkan proses perhitungan dan pembuatan report seharusnya data
> dibuat berdasarkan kaidah database yang baik, akan sedikit repot di awal
> tetapi untuk melakukan perhitungan akan lebih mudah, begitu pula saat akan
> membuat sebuah report.
>
> Konsep pembuatan database yang baik dan benar sudah berkali kali
> diterangkan oleh alm mbak Siti dan mr Kid.
>
> Wassalam,
>
> -Ms. Jan Raisin-
>
> Pada 11 Januari 2013 09.26, hendrik karnadi hendrikkarnadi@yahoo.com >menulis:
>
> **
>>
>>
>> Kelihatannya agak sulit, karena jumlah kolom input (sheet problem) dan
>> output (sheet mdata) tidak sama, dan pada sheet problem ada baris2 judul
>> (Normatif, Adaptif...)
>>
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------------------------
>> *From:* Md Switra mswitra@yahoo.com >
>> *To:* "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
>> *Sent:* Thursday, 10 January 2013, 18:30
>> *Subject:* Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk
>> proses copy.
>>
>>
>>
>>
>> ------------------------------
>> Terima Kasih atas bantuannya sangat bermanfaat.
>> Ternyata berkedipnya hilang dan proses copynya juga begitu cepat.
>> Saya ada pertanyaan lagi, Apakah bisa membuat formula dibawah ini
>> menjadi lebih sederhan tanpa pengulangan? Mohon petunjuknya lagi...
>> Private Sub CmdMM_Click()
>> 'Normatif
>> Range("F4:j4").Copy
>> Sheets("Mdata").Range("e11").Offset(Range("o2").Value).PasteSpecial
>> xlPasteAll
>> Range("F5:j5").Copy
>> Sheets("Mdata").Range("j11").Offset(Range("o2").Value).PasteSpecial
>> xlPasteAll
>> Range("F6:j6").Copy
>> dan seterusnya seperti dalam lampiran...
>> End Sub
>>
>>
>>
>>
>> Coba tambahan Application.ScreenUpdating = False danApplication.Calculation = xlCalculationManualsetelah Private Sub
>> dan Application.ScreenUpdating = True dan Application.Calculation =
>> xlCalculationAutomatic sebelum End Sub.
>>
>> Salam,
>> Hendrik Karnadi
>>
>>
>> ------------------------------
>> **
>>
>> Mohon bantuannya untuk problem saya.
>> Saya memiliki problem dalam menyederhanakan proses mengcopy data karena
>> setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip.
>>
>> Dimana data pada "F4: J43" Ingin saya copy ke sheet (Mdata) sesuai
>> dengan urutannya.
>> Mohon Bantuannya untuk membuat proses ini lebih cepat dan ndak berkedip.
>> Makasih atas bantuannya.
>>
>> saya juga sertakan filenya...
>>
>>
>>
>>
>>
>>
>>
>
database, maka output di sheet mdata bisa disusun dengan pivot table.
Terlepas dari masalah data berkaidah database, topiknya adalah tentang
penyederhanaan proses.
Untuk proses menyalin hasil inputan ke sheet mdata seperti yang ada saat
ini *membutuhkan perulangan*.
Proses perulangan yang ada dapat disederhanakan menjadi sebuah prosedur
tersendiri seperti :
Private Sub Salin(rngSource As Range, lOffsetNIS As Long, rngAnchor As
Range, lKolom As Long)
Dim rng As Range, lOffsetKolom As Long
lOffsetKolom = -1
For Each rng In rngSource
lOffsetKolom = lOffsetKolom + 1
rng.Resize(1, lKolom).Copy rngAnchor.Resize(
1).Offset(lOffsetNI
Next rng
End Sub
Dengan prosedur perulangan di atas, maka proses save dalam event click bisa
disusun menjadi :
Private Sub CmdMM_Click(
Dim lOffNis As Long
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
lOffNis = Range("
With Sheets("
'copas
Salin Range("
'Normatif
Salin Range("
'Adaptif
Salin Range("
'Produktif1
Salin Range("
'Produktif2
Salin Range("
'Muatan lokal
'finishing
.Range("
Range("
End With
.Calculation = xlCalculationAutoma
.ScreenUpdating = True
End With
End Sub
Wassalam,
Kid.
2013/1/11 Jan Raisin miss.jan.raisin@
> **
>
>
> Jan setuju dengan pendapat dari master Hendrik,
> untuk memudahkan proses perhitungan dan pembuatan report seharusnya data
> dibuat berdasarkan kaidah database yang baik, akan sedikit repot di awal
> tetapi untuk melakukan perhitungan akan lebih mudah, begitu pula saat akan
> membuat sebuah report.
>
> Konsep pembuatan database yang baik dan benar sudah berkali kali
> diterangkan oleh alm mbak Siti dan mr Kid.
>
> Wassalam,
>
> -Ms. Jan Raisin-
>
> Pada 11 Januari 2013 09.26, hendrik karnadi hendrikkarnadi@
>
> **
>>
>>
>> Kelihatannya agak sulit, karena jumlah kolom input (sheet problem) dan
>> output (sheet mdata) tidak sama, dan pada sheet problem ada baris2 judul
>> (Normatif, Adaptif...)
>>
>>
>> Salam,
>> Hendrik Karnadi
>>
>> ------------
>> *From:* Md Switra mswitra@yahoo.
>> *To:* "belajar-excel@
>> *Sent:* Thursday, 10 January 2013, 18:30
>> *Subject:* Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk
>> proses copy.
>>
>>
>>
>>
>> ------------
>> Terima Kasih atas bantuannya sangat bermanfaat.
>> Ternyata berkedipnya hilang dan proses copynya juga begitu cepat.
>> Saya ada pertanyaan lagi, Apakah bisa membuat formula dibawah ini
>> menjadi lebih sederhan tanpa pengulangan? Mohon petunjuknya lagi...
>> Private Sub CmdMM_Click(
>> 'Normatif
>> Range("
>> Sheets("
>> xlPasteAll
>> Range("
>> Sheets("
>> xlPasteAll
>> Range("
>> dan seterusnya seperti dalam lampiran...
>> End Sub
>>
>>
>>
>>
>> Coba tambahan Application.
>> dan Application.
>> xlCalculationAutoma
>>
>> Salam,
>> Hendrik Karnadi
>>
>>
>> ------------
>> **
>>
>> Mohon bantuannya untuk problem saya.
>> Saya memiliki problem dalam menyederhanakan proses mengcopy data karena
>> setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip.
>>
>> Dimana data pada "F4: J43" Ingin saya copy ke sheet (Mdata) sesuai
>> dengan urutannya.
>> Mohon Bantuannya untuk membuat proses ini lebih cepat dan ndak berkedip.
>> Makasih atas bantuannya.
>>
>> saya juga sertakan filenya...
>>
>>
>>
>>
>>
>>
>>
>
Fri Jan 11, 2013 3:46 pm (PST) . Posted by:
"Md Switra" mswitra
Terima kasih untuk semua teman, rekan dan master excel yang telah memberikan masukkan dan bantuannya. Sangat berguna dan bermanfaat untuk menyelesaikan kendala yang saya alami.
>________________________________
> Dari: Mr. Kid mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Sabtu, 12 Januari 2013 7:01
>Judul: Re: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses copy.
>
>
>
>Andai dari sheet problem (area input) di save ke sheet data yang berkaidah database, maka output di sheet mdata bisa disusun dengan pivot table.
>
>Terlepas dari masalah data berkaidah database, topiknya adalah tentang penyederhanaan proses.
>Untuk proses menyalin hasil inputan ke sheet mdata seperti yang ada saat ini membutuhkan perulangan.
>Proses perulangan yang ada dapat disederhanakan menjadi sebuah prosedur tersendiri seperti :
>Private Sub Salin(rngSource As Range, lOffsetNIS As Long, rngAnchor As Range, lKolom As Long)
> Dim rng As Range, lOffsetKolom As Long
>
> lOffsetKolom = -1
> For Each rng In rngSource
> lOffsetKolom = lOffsetKolom + 1
> rng.Resize(1, lKolom).Copy rngAnchor.Resize(1, 1).Offset(lOffsetNIS, lOffsetKolom * lKolom)
> Next rng
>End Sub
>
>Dengan prosedur perulangan di atas, maka proses save dalam event click bisa disusun menjadi :
>Private Sub CmdMM_Click()
> Dim lOffNis As Long
>
> With Application
> .ScreenUpdating = False
> .Calculation = xlCalculationManual
>
> lOffNis = Range("o2").Value
> With Sheets("Mdata")
> 'copas
> Salin Range("F4:f8"), lOffNis, .Range("e11"), 5 'Normatif
> Salin Range("F10:f17"), lOffNis, .Range("ad11"), 5 'Adaptif
> Salin Range("F20:f22"), lOffNis, .Range("br11"), 5 'Produktif1
> Salin Range("F24:f40"), lOffNis, .Range("cg11"), 5 'Produktif2
> Salin Range("F42:f43"), lOffNis, .Range("fs11"), 5 'Muatan lokal
>
> 'finishing
> .Range("fi11").ClearOutline
> Range("F4:K61").ClearContents
> End With
>
> .Calculation = xlCalculationAutomatic
> .ScreenUpdating = True
> End With
>End Sub
>
>Wassalam,
>Kid.
>
>
>2013/1/11 Jan Raisin miss.jan.raisin@gmail.com >
>
>
>>
>>Jan setuju dengan pendapat dari master Hendrik,
>>untuk memudahkan proses perhitungan dan pembuatan report seharusnya data dibuat berdasarkan kaidah database yang baik, akan sedikit repot di awal tetapi untuk melakukan perhitungan akan lebih mudah, begitu pula saat akan membuat sebuah report.
>>
>>
>>Konsep pembuatan database yang baik dan benar sudah berkali kali diterangkan oleh alm mbak Siti dan mr Kid.
>>
>>
>>Wassalam,
>>
>>
>>-Ms. Jan Raisin-
>>
>>
>>Pada 11 Januari 2013 09.26, hendrik karnadi hendrikkarnadi@yahoo.com > menulis:
>>
>>
>>
>>>
>>>Kelihatannya agak sulit, karena jumlah kolom input (sheet problem) dan output (sheet mdata) tidak sama, dan pada sheet problem ada baris2 judul (Normatif, Adaptif...)
>>>
>>>
>>>
>>>
>>>Salam,
>>>Hendrik Karnadi
>>>
>>>
>>>
>>>________________________________
>>> From: Md Switra mswitra@yahoo.com >
>>>To: "belajar-excel@yahoogroups.com " belajar-excel@yahoogroups.com >
>>>Sent: Thursday, 10 January 2013, 18:30
>>>Subject: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses copy.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>>________________________________
>>>>Terima Kasih atas bantuannya sangat bermanfaat.
>>>>Ternyata berkedipnya hilang dan proses copynya juga begitu cepat.
>>>>Saya ada pertanyaan lagi, Apakah bisa membuat formula dibawah ini menjadi lebih sederhan tanpa pengulangan? Mohon petunjuknya lagi...
>>>>
>>>>Private Sub CmdMM_Click()
>>>> 'Normatif
>>>> Range("F4:j4").Copy
>>>> Sheets("Mdata").Range("e11").Offset(Range("o2").Value).PasteSpecial
xlPasteAll
>>>> Range("F5:j5").Copy
>>>> Sheets("Mdata").Range("j11").Offset(Range("o2").Value).PasteSpecial
xlPasteAll
>>>> Range("F6:j6").Copy dan seterusnya seperti dalam lampiran...
>>>>End Sub
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>Coba tambahan Application.ScreenUpdating = False danApplication.Calculation = xlCalculationManual setelah Private Sub
>>>>dan Application.ScreenUpdating = True dan Application.Calculation = xlCalculationAutomatic sebelum End Sub.
>>>>
>>>>
>>>>Salam,
>>>>Hendrik Karnadi
>>>>
>>>>
>>>>
>>>>
>>>>
>>>>________________________________
>>>>
>>>>
>>>>Mohon bantuannya untuk problem saya.
>>>>Saya memiliki problem dalam menyederhanakan proses mengcopy data karena
setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip.
>>>>
>>>>Dimana data pada "F4: J43" Ingin saya copy ke sheet (Mdata) sesuai dengan urutannya.
>>>>Mohon Bantuannya untuk membuat proses ini lebih cepat dan ndak
berkedip.
>>>>Makasih atas bantuannya.
>>>>
>>>>
>>>>saya juga sertakan filenya...
>>>>
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>
>
>
>
>________
> Dari: Mr. Kid mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Sabtu, 12 Januari 2013 7:01
>Judul: Re: Bls: [belajar-excel] Cara menyederhanakan Formula VB untuk proses copy.
>
>
>
>Andai dari sheet problem (area input) di save ke sheet data yang berkaidah database, maka output di sheet mdata bisa disusun dengan pivot table.
>
>Terlepas dari masalah data berkaidah database, topiknya adalah tentang penyederhanaan proses.
>Untuk proses menyalin hasil inputan ke sheet mdata seperti yang ada saat ini membutuhkan perulangan.
>Proses perulangan yang ada dapat disederhanakan menjadi sebuah prosedur tersendiri seperti :
>Private Sub Salin(rngSource As Range, lOffsetNIS As Long, rngAnchor As Range, lKolom As Long)
> Dim rng As Range, lOffsetKolom As Long
>
> lOffsetKolom = -1
> For Each rng In rngSource
> lOffsetKolom = lOffsetKolom + 1
> rng.Resize(1, lKolom).Copy rngAnchor.Resize(
> Next rng
>End Sub
>
>Dengan prosedur perulangan di atas, maka proses save dalam event click bisa disusun menjadi :
>Private Sub CmdMM_Click(
> Dim lOffNis As Long
>
> With Application
> .ScreenUpdating = False
> .Calculation = xlCalculationManual
>
> lOffNis = Range("
> With Sheets("
> 'copas
> Salin Range("
> Salin Range("
> Salin Range("
> Salin Range("
> Salin Range("
>
> 'finishing
> .Range("
> Range("
> End With
>
> .Calculation = xlCalculationAutoma
> .ScreenUpdating = True
> End With
>End Sub
>
>Wassalam,
>Kid.
>
>
>2013/1/11 Jan Raisin miss.jan.raisin@
>
>
>>
>>Jan setuju dengan pendapat dari master Hendrik,
>>untuk memudahkan proses perhitungan dan pembuatan report seharusnya data dibuat berdasarkan kaidah database yang baik, akan sedikit repot di awal tetapi untuk melakukan perhitungan akan lebih mudah, begitu pula saat akan membuat sebuah report.
>>
>>
>>Konsep pembuatan database yang baik dan benar sudah berkali kali diterangkan oleh alm mbak Siti dan mr Kid.
>>
>>
>>Wassalam,
>>
>>
>>-Ms. Jan Raisin-
>>
>>
>>Pada 11 Januari 2013 09.26, hendrik karnadi hendrikkarnadi@
>>
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> From: Md Switra mswitra@yahoo.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
xlPasteAll
>>>
>>>
xlPasteAll
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
setiap kali saya tekan Tombol SAVE maka akan terjadi proses berkedip.
>>>
>>>
>>>
berkedip.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
>
>
Fri Jan 11, 2013 4:33 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Sampai 5 hari belum ada yang reply.
Bisa jadi ada yang kurang jelas atau data terlalu sulit untuk diproses.
Mungkin penanya perlu mencoba menyediakan bentuk lain dari data. Misal,
data sebelum menjadi bentuk output yang pernah dilampirkan.
Wassalam,
Kid.
2013/1/7 Helsy B helsyb@yahoo.com >
> **
>
>
> Dear Exceller,
>
> Mohon bantuannya saya mempunyai data beberapa pelanggan dalam 1 sheet, dan
> akan dipecah menjadi beberapa file sesuai nama pelanggannya (sep. attach).
>
> Sebelumnya saya ucapkan terima kasih atas banntuannya.
>
> Salam
> Helsy
>
>
>
>
Bisa jadi ada yang kurang jelas atau data terlalu sulit untuk diproses.
Mungkin penanya perlu mencoba menyediakan bentuk lain dari data. Misal,
data sebelum menjadi bentuk output yang pernah dilampirkan.
Wassalam,
Kid.
2013/1/7 Helsy B helsyb@yahoo.
> **
>
>
> Dear Exceller,
>
> Mohon bantuannya saya mempunyai data beberapa pelanggan dalam 1 sheet, dan
> akan dipecah menjadi beberapa file sesuai nama pelanggannya (sep. attach).
>
> Sebelumnya saya ucapkan terima kasih atas banntuannya.
>
> Salam
> Helsy
>
>
>
>
Sat Jan 12, 2013 1:50 am (PST) . Posted by:
"Dede Suparman" dede_suparman111
Dear All,
janganbosen ya, kasus pertama sudah
selesai eehh ada lg.
dengan
"tombol merah (SISIP)" semua data dipisahkan dengan baris kosong.,
yang jadai kasus nya, apakah bisa item yang sama nya tidak dipisah,sudah saya otak_atik ndak bisa.Mohon bantuannya,File Terlampir.
SABUN
SHAMPOO
COLOGNE
COLOGNE
VITAMIN
VITAMIN
VITAMIN
KARBOL
KARBOL
KARBOL
salam,
Dede
Suparman
janganbosen ya, kasus pertama sudah
selesai eehh ada lg.
dengan
"tombol merah (SISIP)" semua data dipisahkan dengan baris kosong.,
yang jadai kasus nya, apakah bisa item yang sama nya tidak dipisah,sudah saya otak_atik ndak bisa.Mohon bantuannya,File Terlampir.
SABUN
SHAMPOO
COLOGNE
COLOGNE
VITAMIN
VITAMIN
VITAMIN
KARBOL
KARBOL
KARBOL
salam,
Dede
Suparman
Sat Jan 12, 2013 1:50 am (PST) . Posted by:
"PRAZT" praztmath
Assalamu'
Dear para master, mohon bantuan untuk menyelesaikan serta menyampurnakan
kode useform pada file yang saya lampirkan disini
https://docs.
disini http://www.4shared.
https://www.
karena agak besar filenya), kode useform sementara saya adopsi dari milis
tetangga karena masih tabu dalam hal useform.
PRAZTMATH T
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar