14 New Messages
Digest #2553
2b
Re: cara mengurangkan poin berdasarkan kriteria tanggal dan nama by "Mr. Kid" nmkid.family@ymail.com
2d
Re: cara mengurangkan poin berdasarkan kriteria tanggal dan nama by "Mr. Kid" nmkid.family@ymail.com
5
BelajarVBA : baris terakhir data didapat pakai End ? selalu berhasil by "Mr. Kid" nmkid.family@ymail.com
Messages
Sun Sep 22, 2013 5:48 am (PDT) . Posted by:
"A. Zainal H." akhmad_bjb
لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl
Dear Para Master
Mohon bantuan lagi nih seperti kasus di bawah ini
saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
kira2 bagaimana formulanya
terimakasih banyak atas tanggapannya
No Tanggal
1 14-07-2013
1
1
1
2 23-07-2013
2
1 11-08-2013
1
2 16-08-2013
3 20-08-2013
1 08-09-2013
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Zainal
Dear Para Master
Mohon bantuan lagi nih seperti kasus di bawah ini
saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
kira2 bagaimana formulanya
terimakasih banyak atas tanggapannya
No Tanggal
1 14-07-2013
1
1
1
2 23-07-2013
2
1 11-08-2013
1
2 16-08-2013
3 20-08-2013
1 08-09-2013
وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Zainal
Sun Sep 22, 2013 6:01 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Hai Zainal,
Coba formula : (untuk data tanggal di kolom B mulai B2)
=IF(MONTH(B2)<>MONTH(N(B1)),1,(B2<>B1)+N(A1))
oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya
berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya' yang
biasanya dikosongkan, diisi dengan nilai yang benar (tidak dikosongkan).
Hal ini akan memudahkan proses pengolahan data selanjutnya.
Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan
diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya
seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
File terlampir.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>
> **
>
>
> ��������� ���������� ���������� ����� �������������l
>
> Dear Para Master
> Mohon bantuan lagi nih seperti kasus di bawah ini
> saya ingin membuat nomer urut apabila masih dalam bulan� yang sama, maka
> nomer akan berlanjut
> tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
> kira2 bagaimana formulanya
> terimakasih banyak atas tanggapannya
>
> No Tanggal 1 14-07-2013 1 1 1 2 23-07-2013 2 1 11-08-2013 1 2
> 16-08-2013 3 20-08-2013 1 08-09-2013
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>
Hai Zainal,
Coba formula : (untuk data tanggal di kolom B mulai B2)
=IF(MONTH(B2)
oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya
berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya&#
biasanya dikosongkan, diisi dengan nilai yang benar (tidak dikosongkan)
Hal ini akan memudahkan proses pengolahan data selanjutnya.
Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan
diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya
seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
File terlampir.
Wassalamu'
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@
> **
>
>
> ��������� ���������� ���������� ����� �������������l
>
> Dear Para Master
> Mohon bantuan lagi nih seperti kasus di bawah ini
> saya ingin membuat nomer urut apabila masih dalam bulan� yang sama, maka
> nomer akan berlanjut
> tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
> kira2 bagaimana formulanya
> terimakasih banyak atas tanggapannya
>
> No Tanggal 1 14-07-2013 1 1 1 2 23-07-2013 2 1 11-08-2013 1 2
> 16-08-2013 3 20-08-2013 1 08-09-2013
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
>
>
Sun Sep 22, 2013 6:22 am (PDT) . Posted by:
"A. Zainal H." akhmad_bjb
Dear Mr. Kid
Memang maksudnya biar ga keliatan penuh
hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi terlihat ga penuh
Trims Mr. Kid
Rgrds,
Zainal
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 22 September 2013 21:01
Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
Wa'alaikumussalam Wr. Wb.
Hai Zainal,Coba formula : (untuk data tanggal di kolom B mulai B2)=IF(MONTH(B2)<>MONTH(N(B1)),1,(B2<>B1)+N(A1))
oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya' yang biasanya dikosongkan, diisi dengan nilai yang benar (tidak dikosongkan). Hal ini akan memudahkan proses pengolahan data selanjutnya.
Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
File terlampir.
Wassalamu'alaikum Wr. Wb.
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>
>
>
>لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl
>
>Dear Para Master
>Mohon bantuan lagi nih seperti kasus di bawah ini
>saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
>tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
>kira2 bagaimana formulanya
>terimakasih banyak atas tanggapannya
>
>
>No Tanggal
>1 14-07-2013
>1
>1
>1
>2 23-07-2013
>2
>1 11-08-2013
>1
>2 16-08-2013
>3 20-08-2013
>1 08-09-2013
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
Memang maksudnya biar ga keliatan penuh
hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi terlihat ga penuh
Trims Mr. Kid
Rgrds,
Zainal
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Minggu, 22 September 2013 21:01
Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
Wa'alaikumussal
Hai Zainal,Coba formula : (untuk data tanggal di kolom B mulai B2)=IF(MONTH(
oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya&#
Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
File terlampir.
Wassalamu'
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@
>
>
>لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl
>
>Dear Para Master
>Mohon bantuan lagi nih seperti kasus di bawah ini
>saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
>tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
>kira2 bagaimana formulanya
>terimakasih banyak atas tanggapannya
>
>
>No Tanggal
>1 14-07-2013
>1
>1
>1
>2 23-07-2013
>2
>1 11-08-2013
>1
>2 16-08-2013
>3 20-08-2013
>1 08-09-2013
>
>
>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
>Zainal
Sun Sep 22, 2013 6:34 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
Alhamdulillah. Insya Allah pengolahan data lebih lanjut dari tabel tersebut
dikemudian hari akan lebih mudah karena tabel sudah memiliki kaidah sebagai
tabel yang baik.
File terlampir sekedar iseng saja. Sapa tahu ada yang capek copy formula
setiap kali ada data baru. Fitur Excel Table (xl2007 keatas) atau List
(xl2003) bisa membantu menghilangkan capeknya copy formula setiap ada
penambahan record baru.
Pada file terlampir bisa coba untuk mengisi record tanggal yang baru. Kalau
formula ndak di-copy-ken oleh si Excel Table, lihat langkah 5 dalam
keterangan cell yang ada.
Wassalam,
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>
> **
>
>
> *
> Dear Mr. Kid
>
> Memang maksudnya biar ga keliatan penuh
> hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi
> terlihat ga penuh
>
> Trims Mr. Kid
>
> Rgrds,
> Zainal
>
>
>
> *
>
>
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Minggu, 22 September 2013 21:01
> *Judul:* Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
> **
>
> Wa'alaikumussalam Wr. Wb.**
> Hai Zainal,****
> Coba formula : (untuk data tanggal di kolom B mulai B2)**
> =IF(MONTH(B2)<>MONTH(N(B1)),1,(B2<>B1)+N(A1))
> **
>
> oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang
> maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record
> sebelumnya' yang biasanya dikosongkan, diisi dengan nilai yang benar (tidak
> dikosongkan). Hal ini akan memudahkan proses pengolahan data selanjutnya.*
> *
> Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan
> diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya
> seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).**
> File terlampir.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.**
> ******
> ****
> 2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>**
>
> **
>
> ��������� ���������� ���������� ����� �������������l
>
> Dear Para Master
> Mohon bantuan lagi nih seperti kasus di bawah ini
> saya ingin membuat nomer urut apabila masih dalam bulan� yang sama, maka
> nomer akan berlanjut
> tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
> kira2 bagaimana formulanya
> terimakasih banyak atas tanggapannya
>
> No Tanggal 1 14-07-2013 1 1 1 2 23-07-2013 2 1 11-08-2013 1 2
> 16-08-2013 3 20-08-2013 1 08-09-2013
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
> **
> ****
>
>
>
Alhamdulillah. Insya Allah pengolahan data lebih lanjut dari tabel tersebut
dikemudian hari akan lebih mudah karena tabel sudah memiliki kaidah sebagai
tabel yang baik.
File terlampir sekedar iseng saja. Sapa tahu ada yang capek copy formula
setiap kali ada data baru. Fitur Excel Table (xl2007 keatas) atau List
(xl2003) bisa membantu menghilangkan capeknya copy formula setiap ada
penambahan record baru.
Pada file terlampir bisa coba untuk mengisi record tanggal yang baru. Kalau
formula ndak di-copy-ken oleh si Excel Table, lihat langkah 5 dalam
keterangan cell yang ada.
Wassalam,
Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@
> **
>
>
> *
> Dear Mr. Kid
>
> Memang maksudnya biar ga keliatan penuh
> hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi
> terlihat ga penuh
>
> Trims Mr. Kid
>
> Rgrds,
> Zainal
>
>
>
> *
>
>
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* BeExcel <belajar-excel@
> *Dikirim:* Minggu, 22 September 2013 21:01
> *Judul:* Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
> **
>
> Wa'alaikumussal
> Hai Zainal,****
> Coba formula : (untuk data tanggal di kolom B mulai B2)**
> =IF(MONTH(B2)
> **
>
> oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang
> maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record
> sebelumnya&#
> dikosongkan)
> *
> Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan
> diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya
> seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).**
> File terlampir.
>
> Wassalamu'
> Kid.**
> ******
> ****
> 2013/9/22 A. Zainal H. <a_zainal_hilmi@
>
> **
>
> ��������� ���������� ���������� ����� �������������l
>
> Dear Para Master
> Mohon bantuan lagi nih seperti kasus di bawah ini
> saya ingin membuat nomer urut apabila masih dalam bulan� yang sama, maka
> nomer akan berlanjut
> tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
> kira2 bagaimana formulanya
> terimakasih banyak atas tanggapannya
>
> No Tanggal 1 14-07-2013 1 1 1 2 23-07-2013 2 1 11-08-2013 1 2
> 16-08-2013 3 20-08-2013 1 08-09-2013
>
>
> ���������� ���������� ���������� ����� �������������
>
> *Zainal*
>
> **
> ****
>
>
>
Sun Sep 22, 2013 7:20 am (PDT) . Posted by:
"A. Zainal H." akhmad_bjb
Trims lagi Mr. Kid atas pencerahannya
hehehe...saya kira ngeluarin jurus array formula
ehh... ternyata bukan
xixixi....sangat membantu
Rgrds,
Zainal
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 22 September 2013 21:34
Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
hehehe...
Alhamdulillah. Insya Allah pengolahan data lebih lanjut dari tabel tersebut dikemudian hari akan lebih mudah karena tabel sudah memiliki kaidah sebagai tabel yang baik. File terlampir sekedar iseng saja. Sapa tahu ada yang capek copy formula setiap kali ada data baru. Fitur Excel Table (xl2007 keatas) atau List (xl2003) bisa membantu menghilangkan capeknya copy formula setiap ada penambahan record baru.
Pada file terlampir bisa coba untuk mengisi record tanggal yang baru. Kalau formula ndak di-copy-ken oleh si Excel Table, lihat langkah 5 dalam keterangan cell yang ada.
Wassalam,Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>
>
>Dear Mr. Kid
>
>Memang maksudnya biar ga keliatan penuh
>hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi terlihat ga penuh
>Trims Mr. Kid
>
>Rgrds,
>
>Zainal
>
>
>
>
>
> Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: BeExcel <belajar-excel@yahoogroups.com>
>Dikirim: Minggu, 22 September 2013 21:01
>Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
>
>
>Wa'alaikumussalam Wr. Wb.
>Hai Zainal,Coba formula : (untuk data tanggal di kolom B mulai B2)=IF(MONTH(B2)<>MONTH(N(B1)),1,(B2<>B1)+N(A1))
>
>
>oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya' yang biasanya dikosongkan, diisi dengan nilai yang benar (tidak dikosongkan). Hal ini akan memudahkan proses pengolahan data selanjutnya.
>
>Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
>
>File terlampir.
>
>
>
>Wassalamu'alaikum Wr. Wb.
>
>Kid.
>
>2013/9/22 A. Zainal H. <a_zainal_hilmi@yahoo.com>
>
>>
>>
>>لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl
>>
>>Dear Para Master
>>Mohon bantuan lagi nih seperti kasus di bawah ini
>>saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
>>tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
>>kira2 bagaimana formulanya
>>terimakasih banyak atas tanggapannya
>>
>>
>>No Tanggal
>>1 14-07-2013
>>1
>>1
>>1
>>2 23-07-2013
>>2
>>1 11-08-2013
>>1
>>2 16-08-2013
>>3 20-08-2013
>>1 08-09-2013
>>
>>
>>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>Zainal
hehehe...saya kira ngeluarin jurus array formula
ehh... ternyata bukan
xixixi....sangat membantu
Rgrds,
Zainal
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Minggu, 22 September 2013 21:34
Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
hehehe...
Alhamdulillah. Insya Allah pengolahan data lebih lanjut dari tabel tersebut dikemudian hari akan lebih mudah karena tabel sudah memiliki kaidah sebagai tabel yang baik. File terlampir sekedar iseng saja. Sapa tahu ada yang capek copy formula setiap kali ada data baru. Fitur Excel Table (xl2007 keatas) atau List (xl2003) bisa membantu menghilangkan capeknya copy formula setiap ada penambahan record baru.
Pada file terlampir bisa coba untuk mengisi record tanggal yang baru. Kalau formula ndak di-copy-ken oleh si Excel Table, lihat langkah 5 dalam keterangan cell yang ada.
Wassalam,Kid.
2013/9/22 A. Zainal H. <a_zainal_hilmi@
>
>Dear Mr. Kid
>
>Memang maksudnya biar ga keliatan penuh
>hehehe lupa deh kalau data bisa dihidden sehingga sebenarnya penuh tetapi terlihat ga penuh
>Trims Mr. Kid
>
>Rgrds,
>
>Zainal
>
>
>
>
>
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: BeExcel <belajar-excel@
>Dikirim: Minggu, 22 September 2013 21:01
>Judul: Re: [belajar-excel] Nomer Urut & Bulan [1 Attachment]
>
>
>Wa'alaikumu
>Hai Zainal,Coba formula : (untuk data tanggal di kolom B mulai B2)=IF(MONTH(
>
>
>oh iya, sebaiknya sejak sekarang mulai membiasakan agar data yang maksudnya berbunyi 'sama dengan diatas' atau 'sama dengan record sebelumnya&#
>
>Setelah terisi penuh (tidak ada yang kosong dengan maksud 'sama dengan diatas' lagi), manfaatkan fitur Conditional Formatting untuk membuatnya seakan-akan tidak ada isinya (padahal sejatinya tetap ada nilainya).
>
>File terlampir.
>
>
>
>Wassalamu&#
>
>Kid.
>
>2013/9/22 A. Zainal H. <a_zainal_hilmi@
>
>>
>>
>>لسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُl
>>
>>Dear Para Master
>>Mohon bantuan lagi nih seperti kasus di bawah ini
>>saya ingin membuat nomer urut apabila masih dalam bulan yang sama, maka nomer akan berlanjut
>>tetapi apabila sudah berganti bulan, maka nomer akan kembali ke nomer 1
>>kira2 bagaimana formulanya
>>terimakasih banyak atas tanggapannya
>>
>>
>>No Tanggal
>>1 14-07-2013
>>1
>>1
>>1
>>2 23-07-2013
>>2
>>1 11-08-2013
>>1
>>2 16-08-2013
>>3 20-08-2013
>>1 08-09-2013
>>
>>
>>وَسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>>Zainal
Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau lampirkan file fullnya. Karena program kasir yg sy rancang bekerja hanya dari 1 sheet header, dari semua entry baik transaksi, sheet piutang, data, poin, voucher dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain hanya merupakan database. Agar bisa dipelajari bersama dalam penyusunan database
Trims
Nb : file hampir 2mb
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 22 Sep 2013 18:13:14
To: BeExcel<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] cara mengurangkan poin berdasarkan kriteria
tanggal dan nama [1 Attachment]
hehehehehe...
Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
(bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
(bisa di refresh melalui VBA juga), selama data source pivot table bisa
selalu merujuk ke seluruh tabel (termasuk header).
Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
get external data dari database engine seperti oracle pun akan membuat
fitur Excel table bisa berkembang sesuai kebutuhan.
Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru, maka
gunakan event worksheet change. Isi event tersebut dengan proses refresh
pivot table.
Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
sheet pivot table (pastikan macro security di-enable).
btw,
boleh tanya,
Setiap proses VBA yang Anda buat, ada berapa record ?
Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
banyak record sekali entry dan diproses dengan VBA yang sama ?
Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
karena akan mengarahkan pendekatan yang berbeda antara record-per-record
dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
bisa berulang kali dijalankan.
Wassalam,
Kid.
2013/9/22 Bayu Arsyad <ske8ay@gmail.com>
> **
>
>
> Tambah bingung dengan Pivot Table.. hehehe
> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
> sheets input saya menyisipkan kode
>
> Sub tambahpoin()
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value =
> Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
> .Cells(recordnow - 997, 3).value = Sheets("Input").Range("c16").value
> + .Cells(recordnow - 997, 3).value
> End With
> End Sub
> untuk client yang dapatkan poin
>
> dan
> Sub kurangpoin()
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value =
> Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
> Sheets("Input").Range("d16").value
> End With
> End Sub
> jika poin telah ditukar
>
> Kemudian di sheet data piutang saya menyisipkan kode
> Sub datapoinutang()
> With Sheets("datapiutang";)
> cekutang =
> Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
> Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
> End With
> With Sheets("data")
> criteria = Range("C14")
> Set cr = Sheets("Data").Range("I6:P10000")
> Set sr = Sheets("data").Range("P6:P10000")
> caripoin = Application.SumIf(cr, criteria, sr)
> End With
> 'MsgBox caripoin
> If cekutang <> 0 Then
> recordnow = Sheets("Input").Range("idpoin").value
> With Sheets("poin")
> .Cells(recordnow - 997, 1).value = Sheets("Input").Range("idpoin").value
> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
> 3).value
> End With
> End If
> End Sub
> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
> P masih menjadi arsip untuk penambahan poin piutang)
>
> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak kode
> yang sudah saya coba buat sebelumnya. Karena setiap harinya ada transaksi
> yang di lakukan oleh client baru dengan nama baru, maka saya berasumsi
> lebih banyak record database daripada memperbanyak formula atau fitur
> lainnya. *Karena jika dengan menggunakan formula, otomatis kita harus
> mengcopykan formula dari cell awal sampai tak terhingga, dan untuk Pivot
> Tabel saya benar2 belum mengerti.* Maka yang saya harapkan bantuan untuk
> membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
> tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
> dengan total akumulasi poin pada sheet poin.
>
> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
> diperbaiki
> Trims
>
>
>
Trims
Nb : file hampir 2mb
Powered by Telkomsel BlackBerry�
-----Original Message-----
From: "Mr. Kid" <mr.nmkid@gmail.
Sender: belajar-excel@
Date: Sun, 22 Sep 2013 18:13:14
To: BeExcel<belajar-excel@
Reply-To: belajar-excel@
Subject: Re: [belajar-excel] cara mengurangkan poin berdasarkan kriteria
tanggal dan nama [1 Attachment]
hehehehehe..
Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
(bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
(bisa di refresh melalui VBA juga), selama data source pivot table bisa
selalu merujuk ke seluruh tabel (termasuk header).
Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
get external data dari database engine seperti oracle pun akan membuat
fitur Excel table bisa berkembang sesuai kebutuhan.
Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru, maka
gunakan event worksheet change. Isi event tersebut dengan proses refresh
pivot table.
Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
sheet pivot table (pastikan macro security di-enable).
btw,
boleh tanya,
Setiap proses VBA yang Anda buat, ada berapa record ?
Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
banyak record sekali entry dan diproses dengan VBA yang sama ?
Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
karena akan mengarahkan pendekatan yang berbeda antara record-per-record
dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
bisa berulang kali dijalankan.
Wassalam,
Kid.
2013/9/22 Bayu Arsyad <ske8ay@gmail.
> **
>
>
> Tambah bingung dengan Pivot Table.. hehehe
> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
> sheets input saya menyisipkan kode
>
> Sub tambahpoin()
> recordnow = Sheets("
> With Sheets("
> .Cells(recordnow - 997, 1).value =
> Sheets("
> .Cells(recordnow - 997, 2).value = Sheets("
> .Cells(recordnow - 997, 3).value = Sheets("
> + .Cells(recordnow - 997, 3).value
> End With
> End Sub
> untuk client yang dapatkan poin
>
> dan
> Sub kurangpoin()
> recordnow = Sheets("
> With Sheets("
> .Cells(recordnow - 997, 1).value =
> Sheets("
> .Cells(recordnow - 997, 2).value = Sheets("
> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
> Sheets("
> End With
> End Sub
> jika poin telah ditukar
>
> Kemudian di sheet data piutang saya menyisipkan kode
> Sub datapoinutang(
> With Sheets("
> cekutang =
> Application.
> Sheets("
> End With
> With Sheets("
> criteria = Range("
> Set cr = Sheets("
> Set sr = Sheets("
> caripoin = Application.
> End With
> 'MsgBox caripoin
> If cekutang <> 0 Then
> recordnow = Sheets("
> With Sheets("
> .Cells(recordnow - 997, 1).value = Sheets("
> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
> 3).value
> End With
> End If
> End Sub
> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
> P masih menjadi arsip untuk penambahan poin piutang)
>
> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak kode
> yang sudah saya coba buat sebelumnya. Karena setiap harinya ada transaksi
> yang di lakukan oleh client baru dengan nama baru, maka saya berasumsi
> lebih banyak record database daripada memperbanyak formula atau fitur
> lainnya. *Karena jika dengan menggunakan formula, otomatis kita harus
> mengcopykan formula dari cell awal sampai tak terhingga, dan untuk Pivot
> Tabel saya benar2 belum mengerti.* Maka yang saya harapkan bantuan untuk
> membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
> tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
> dengan total akumulasi poin pada sheet poin.
>
> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
> diperbaiki
> Trims
>
>
>
Sun Sep 22, 2013 9:06 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Terimakasih telah bersedia berbagi dengan milis Belajar-Excel. Dengan
senang hati kami menerimanya.
Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan download
2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
juga ke Nabble (backup milis).
Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
manfaat bagi seluruh BeExceller atau pengunjung milis.
Wassalam,
Kid.
2013/9/23 <ske8ay@gmail.com>
> **
>
>
> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau lampirkan
> file fullnya. Karena program kasir yg sy rancang bekerja hanya dari 1 sheet
> header, dari semua entry baik transaksi, sheet piutang, data, poin, voucher
> dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain hanya
> merupakan database. Agar bisa dipelajari bersama dalam penyusunan database
>
> Trims
> Nb : file hampir 2mb
> Powered by Telkomsel BlackBerry�
> ------------------------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
> *To: *BeExcel<belajar-excel@yahoogroups.com>
> *ReplyTo: * belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
> kriteria tanggal dan nama [1 Attachment]
>
>
>
> hehehehehe...
>
> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
> selalu merujuk ke seluruh tabel (termasuk header).
>
> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>
> Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
> get external data dari database engine seperti oracle pun akan membuat
> fitur Excel table bisa berkembang sesuai kebutuhan.
>
> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
> maka gunakan event worksheet change. Isi event tersebut dengan proses
> refresh pivot table.
>
> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
> sheet pivot table (pastikan macro security di-enable).
>
> btw,
> boleh tanya,
> Setiap proses VBA yang Anda buat, ada berapa record ?
> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
> banyak record sekali entry dan diproses dengan VBA yang sama ?
> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
> bisa berulang kali dijalankan.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/9/22 Bayu Arsyad <ske8ay@gmail.com>
>
>> **
>>
>>
>> Tambah bingung dengan Pivot Table.. hehehe
>> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
>> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
>> sheets input saya menyisipkan kode
>>
>> Sub tambahpoin()
>> recordnow = Sheets("Input").Range("idpoin").value
>> With Sheets("poin")
>> .Cells(recordnow - 997, 1).value =
>> Sheets("Input").Range("idpoin").value
>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>> .Cells(recordnow - 997, 3).value = Sheets("Input").Range("c16").value
>> + .Cells(recordnow - 997, 3).value
>> End With
>> End Sub
>> untuk client yang dapatkan poin
>>
>> dan
>> Sub kurangpoin()
>> recordnow = Sheets("Input").Range("idpoin").value
>> With Sheets("poin")
>> .Cells(recordnow - 997, 1).value =
>> Sheets("Input").Range("idpoin").value
>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
>> Sheets("Input").Range("d16").value
>> End With
>> End Sub
>> jika poin telah ditukar
>>
>> Kemudian di sheet data piutang saya menyisipkan kode
>> Sub datapoinutang()
>> With Sheets("datapiutang";)
>> cekutang =
>> Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
>> Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
>> End With
>> With Sheets("data")
>> criteria = Range("C14")
>> Set cr = Sheets("Data").Range("I6:P10000")
>> Set sr = Sheets("data").Range("P6:P10000")
>> caripoin = Application.SumIf(cr, criteria, sr)
>> End With
>> 'MsgBox caripoin
>> If cekutang <> 0 Then
>> recordnow = Sheets("Input").Range("idpoin").value
>> With Sheets("poin")
>> .Cells(recordnow - 997, 1).value =
>> Sheets("Input").Range("idpoin").value
>> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
>> 3).value
>> End With
>> End If
>> End Sub
>> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
>> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
>> P masih menjadi arsip untuk penambahan poin piutang)
>>
>> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak
>> kode yang sudah saya coba buat sebelumnya. Karena setiap harinya ada
>> transaksi yang di lakukan oleh client baru dengan nama baru, maka saya
>> berasumsi lebih banyak record database daripada memperbanyak formula atau
>> fitur lainnya. *Karena jika dengan menggunakan formula, otomatis kita
>> harus mengcopykan formula dari cell awal sampai tak terhingga, dan untuk
>> Pivot Tabel saya benar2 belum mengerti.* Maka yang saya harapkan bantuan
>> untuk membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
>> tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
>> dengan total akumulasi poin pada sheet poin.
>>
>> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
>> diperbaiki
>> Trims
>>
>>
>>
>
>
senang hati kami menerimanya.
Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan download
2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
juga ke Nabble (backup milis).
Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
manfaat bagi seluruh BeExceller atau pengunjung milis.
Wassalam,
Kid.
2013/9/23 <ske8ay@gmail.
> **
>
>
> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau lampirkan
> file fullnya. Karena program kasir yg sy rancang bekerja hanya dari 1 sheet
> header, dari semua entry baik transaksi, sheet piutang, data, poin, voucher
> dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain hanya
> merupakan database. Agar bisa dipelajari bersama dalam penyusunan database
>
> Trims
> Nb : file hampir 2mb
> Powered by Telkomsel BlackBerry�
> ------------
> *From: * "Mr. Kid" <mr.nmkid@gmail.
> *Sender: * belajar-excel@
> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
> *To: *BeExcel<belajar-excel@
> *ReplyTo: * belajar-excel@
> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
> kriteria tanggal dan nama [1 Attachment]
>
>
>
> hehehehehe..
>
> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
> selalu merujuk ke seluruh tabel (termasuk header).
>
> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>
> Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
> get external data dari database engine seperti oracle pun akan membuat
> fitur Excel table bisa berkembang sesuai kebutuhan.
>
> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
> maka gunakan event worksheet change. Isi event tersebut dengan proses
> refresh pivot table.
>
> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
> sheet pivot table (pastikan macro security di-enable).
>
> btw,
> boleh tanya,
> Setiap proses VBA yang Anda buat, ada berapa record ?
> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
> banyak record sekali entry dan diproses dengan VBA yang sama ?
> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
> bisa berulang kali dijalankan.
>
> Wassalam,
> Kid.
>
>
>
>
>
>
>
> 2013/9/22 Bayu Arsyad <ske8ay@gmail.
>
>> **
>>
>>
>> Tambah bingung dengan Pivot Table.. hehehe
>> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
>> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
>> sheets input saya menyisipkan kode
>>
>> Sub tambahpoin()
>> recordnow = Sheets("
>> With Sheets("
>> .Cells(recordnow - 997, 1).value =
>> Sheets("
>> .Cells(recordnow - 997, 2).value = Sheets("
>> .Cells(recordnow - 997, 3).value = Sheets("
>> + .Cells(recordnow - 997, 3).value
>> End With
>> End Sub
>> untuk client yang dapatkan poin
>>
>> dan
>> Sub kurangpoin()
>> recordnow = Sheets("
>> With Sheets("
>> .Cells(recordnow - 997, 1).value =
>> Sheets("
>> .Cells(recordnow - 997, 2).value = Sheets("
>> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value -
>> Sheets("
>> End With
>> End Sub
>> jika poin telah ditukar
>>
>> Kemudian di sheet data piutang saya menyisipkan kode
>> Sub datapoinutang(
>> With Sheets("
>> cekutang =
>> Application.
>> Sheets("
>> End With
>> With Sheets("
>> criteria = Range("
>> Set cr = Sheets("
>> Set sr = Sheets("
>> caripoin = Application.
>> End With
>> 'MsgBox caripoin
>> If cekutang <> 0 Then
>> recordnow = Sheets("
>> With Sheets("
>> .Cells(recordnow - 997, 1).value =
>> Sheets("
>> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
>> 3).value
>> End With
>> End If
>> End Sub
>> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
>> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
>> P masih menjadi arsip untuk penambahan poin piutang)
>>
>> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak
>> kode yang sudah saya coba buat sebelumnya. Karena setiap harinya ada
>> transaksi yang di lakukan oleh client baru dengan nama baru, maka saya
>> berasumsi lebih banyak record database daripada memperbanyak formula atau
>> fitur lainnya. *Karena jika dengan menggunakan formula, otomatis kita
>> harus mengcopykan formula dari cell awal sampai tak terhingga, dan untuk
>> Pivot Tabel saya benar2 belum mengerti.* Maka yang saya harapkan bantuan
>> untuk membuat kode untuk mencari poin di row mana saja berdasarkan kriteria
>> tanggal dan nama yang telah jatuh tempo di sheet data untuk dikurangkan
>> dengan total akumulasi poin pada sheet poin.
>>
>> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
>> diperbaiki
>> Trims
>>
>>
>>
>
>
Sun Sep 22, 2013 9:20 pm (PDT) . Posted by:
"Bayu Arsyad"
kalo yang opsi 2 di upload kemana ?
Saya nda punya akun netdrive
Trims
2013/9/23 Mr. Kid <mr.nmkid@gmail.com>
> **
>
>
> Terimakasih telah bersedia berbagi dengan milis Belajar-Excel. Dengan
> senang hati kami menerimanya.
> Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
> 1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan download
> 2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
> juga ke Nabble (backup milis).
>
> Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
> kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
> manfaat bagi seluruh BeExceller atau pengunjung milis.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/9/23 <ske8ay@gmail.com>
>
> **
>>
>>
>> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau lampirkan
>> file fullnya. Karena program kasir yg sy rancang bekerja hanya dari 1 sheet
>> header, dari semua entry baik transaksi, sheet piutang, data, poin, voucher
>> dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain hanya
>> merupakan database. Agar bisa dipelajari bersama dalam penyusunan database
>>
>> Trims
>> Nb : file hampir 2mb
>> Powered by Telkomsel BlackBerry�
>> ------------------------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
>> *To: *BeExcel<belajar-excel@yahoogroups.com>
>> *ReplyTo: * belajar-excel@yahoogroups.com
>> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
>> kriteria tanggal dan nama [1 Attachment]
>>
>>
>>
>> hehehehehe...
>>
>> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
>> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
>> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
>> selalu merujuk ke seluruh tabel (termasuk header).
>>
>> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
>> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
>> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
>> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
>> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>>
>> Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
>> get external data dari database engine seperti oracle pun akan membuat
>> fitur Excel table bisa berkembang sesuai kebutuhan.
>>
>> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
>> maka gunakan event worksheet change. Isi event tersebut dengan proses
>> refresh pivot table.
>>
>> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
>> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
>> sheet pivot table (pastikan macro security di-enable).
>>
>> btw,
>> boleh tanya,
>> Setiap proses VBA yang Anda buat, ada berapa record ?
>> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
>> banyak record sekali entry dan diproses dengan VBA yang sama ?
>> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
>> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
>> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
>> bisa berulang kali dijalankan.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>>
>>
>> 2013/9/22 Bayu Arsyad <ske8ay@gmail.com>
>>
>>> **
>>>
>>>
>>> Tambah bingung dengan Pivot Table.. hehehe
>>> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
>>> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
>>> sheets input saya menyisipkan kode
>>>
>>> Sub tambahpoin()
>>> recordnow = Sheets("Input").Range("idpoin").value
>>> With Sheets("poin")
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("Input").Range("idpoin").value
>>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>>> .Cells(recordnow - 997, 3).value =
>>> Sheets("Input").Range("c16").value + .Cells(recordnow - 997, 3).value
>>> End With
>>> End Sub
>>> untuk client yang dapatkan poin
>>>
>>> dan
>>> Sub kurangpoin()
>>> recordnow = Sheets("Input").Range("idpoin").value
>>> With Sheets("poin")
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("Input").Range("idpoin").value
>>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>>> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value
>>> - Sheets("Input").Range("d16").value
>>> End With
>>> End Sub
>>> jika poin telah ditukar
>>>
>>> Kemudian di sheet data piutang saya menyisipkan kode
>>> Sub datapoinutang()
>>> With Sheets("datapiutang";)
>>> cekutang =
>>> Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
>>> Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
>>> End With
>>> With Sheets("data")
>>> criteria = Range("C14")
>>> Set cr = Sheets("Data").Range("I6:P10000")
>>> Set sr = Sheets("data").Range("P6:P10000")
>>> caripoin = Application.SumIf(cr, criteria, sr)
>>> End With
>>> 'MsgBox caripoin
>>> If cekutang <> 0 Then
>>> recordnow = Sheets("Input").Range("idpoin").value
>>> With Sheets("poin")
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("Input").Range("idpoin").value
>>> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
>>> 3).value
>>> End With
>>> End If
>>> End Sub
>>> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
>>> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
>>> P masih menjadi arsip untuk penambahan poin piutang)
>>>
>>> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak
>>> kode yang sudah saya coba buat sebelumnya. Karena setiap harinya ada
>>> transaksi yang di lakukan oleh client baru dengan nama baru, maka saya
>>> berasumsi lebih banyak record database daripada memperbanyak formula atau
>>> fitur lainnya. *Karena jika dengan menggunakan formula, otomatis kita
>>> harus mengcopykan formula dari cell awal sampai tak terhingga, dan untuk
>>> Pivot Tabel saya benar2 belum mengerti.* Maka yang saya harapkan
>>> bantuan untuk membuat kode untuk mencari poin di row mana saja berdasarkan
>>> kriteria tanggal dan nama yang telah jatuh tempo di sheet data untuk
>>> dikurangkan dengan total akumulasi poin pada sheet poin.
>>>
>>> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
>>> diperbaiki
>>> Trims
>>>
>>>
>>>
>>
>
>
--
Best Regard
Saya nda punya akun netdrive
Trims
2013/9/23 Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Terimakasih telah bersedia berbagi dengan milis Belajar-Excel. Dengan
> senang hati kami menerimanya.
> Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
> 1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan download
> 2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
> juga ke Nabble (backup milis).
>
> Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
> kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
> manfaat bagi seluruh BeExceller atau pengunjung milis.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/9/23 <ske8ay@gmail.
>
> **
>>
>>
>> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau lampirkan
>> file fullnya. Karena program kasir yg sy rancang bekerja hanya dari 1 sheet
>> header, dari semua entry baik transaksi, sheet piutang, data, poin, voucher
>> dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain hanya
>> merupakan database. Agar bisa dipelajari bersama dalam penyusunan database
>>
>> Trims
>> Nb : file hampir 2mb
>> Powered by Telkomsel BlackBerry�
>> ------------
>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>> *Sender: * belajar-excel@
>> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
>> *To: *BeExcel<belajar-excel@
>> *ReplyTo: * belajar-excel@
>> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
>> kriteria tanggal dan nama [1 Attachment]
>>
>>
>>
>> hehehehehe..
>>
>> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
>> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
>> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
>> selalu merujuk ke seluruh tabel (termasuk header).
>>
>> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
>> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
>> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
>> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
>> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>>
>> Proses input Anda dengan VBA, entry manual, copy paste dari data lainnya,
>> get external data dari database engine seperti oracle pun akan membuat
>> fitur Excel table bisa berkembang sesuai kebutuhan.
>>
>> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
>> maka gunakan event worksheet change. Isi event tersebut dengan proses
>> refresh pivot table.
>>
>> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
>> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
>> sheet pivot table (pastikan macro security di-enable).
>>
>> btw,
>> boleh tanya,
>> Setiap proses VBA yang Anda buat, ada berapa record ?
>> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
>> banyak record sekali entry dan diproses dengan VBA yang sama ?
>> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
>> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
>> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
>> bisa berulang kali dijalankan.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>>
>>
>>
>> 2013/9/22 Bayu Arsyad <ske8ay@gmail.
>>
>>> **
>>>
>>>
>>> Tambah bingung dengan Pivot Table.. hehehe
>>> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet Poin
>>> saja, tanpa merubah tatanan database yang telah tersusun. Karena ada di
>>> sheets input saya menyisipkan kode
>>>
>>> Sub tambahpoin()
>>> recordnow = Sheets("
>>> With Sheets("
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("
>>> .Cells(recordnow - 997, 2).value = Sheets("
>>> .Cells(recordnow - 997, 3).value =
>>> Sheets("
>>> End With
>>> End Sub
>>> untuk client yang dapatkan poin
>>>
>>> dan
>>> Sub kurangpoin()
>>> recordnow = Sheets("
>>> With Sheets("
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("
>>> .Cells(recordnow - 997, 2).value = Sheets("
>>> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value
>>> - Sheets("
>>> End With
>>> End Sub
>>> jika poin telah ditukar
>>>
>>> Kemudian di sheet data piutang saya menyisipkan kode
>>> Sub datapoinutang(
>>> With Sheets("
>>> cekutang =
>>> Application.
>>> Sheets("
>>> End With
>>> With Sheets("
>>> criteria = Range("
>>> Set cr = Sheets("
>>> Set sr = Sheets("
>>> caripoin = Application.
>>> End With
>>> 'MsgBox caripoin
>>> If cekutang <> 0 Then
>>> recordnow = Sheets("
>>> With Sheets("
>>> .Cells(recordnow - 997, 1).value =
>>> Sheets("
>>> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow - 997,
>>> 3).value
>>> End With
>>> End If
>>> End Sub
>>> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
>>> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
>>> P masih menjadi arsip untuk penambahan poin piutang)
>>>
>>> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak
>>> kode yang sudah saya coba buat sebelumnya. Karena setiap harinya ada
>>> transaksi yang di lakukan oleh client baru dengan nama baru, maka saya
>>> berasumsi lebih banyak record database daripada memperbanyak formula atau
>>> fitur lainnya. *Karena jika dengan menggunakan formula, otomatis kita
>>> harus mengcopykan formula dari cell awal sampai tak terhingga, dan untuk
>>> Pivot Tabel saya benar2 belum mengerti.* Maka yang saya harapkan
>>> bantuan untuk membuat kode untuk mencari poin di row mana saja berdasarkan
>>> kriteria tanggal dan nama yang telah jatuh tempo di sheet data untuk
>>> dikurangkan dengan total akumulasi poin pada sheet poin.
>>>
>>> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
>>> diperbaiki
>>> Trims
>>>
>>>
>>>
>>
>
>
--
Best Regard
Sun Sep 22, 2013 9:23 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Posting saja seperti biasa, supaya filenya bisa diterima seluruh moderator.
Nanti moderator yang meng-upload ke netdrive milis termasuk ke Nabble.
Wassalam,
Kid.
2013/9/23 Bayu Arsyad <ske8ay@gmail.com>
> **
>
>
> kalo yang opsi 2 di upload kemana ?
> Saya nda punya akun netdrive
>
> Trims
>
>
> 2013/9/23 Mr. Kid <mr.nmkid@gmail.com>
>
> **
>>
>>
>> Terimakasih telah bersedia berbagi dengan milis Belajar-Excel. Dengan
>> senang hati kami menerimanya.
>> Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
>> 1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan
>> download
>> 2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
>> juga ke Nabble (backup milis).
>>
>> Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
>> kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
>> manfaat bagi seluruh BeExceller atau pengunjung milis.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/9/23 <ske8ay@gmail.com>
>>
>> **
>>>
>>>
>>> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau
>>> lampirkan file fullnya. Karena program kasir yg sy rancang bekerja hanya
>>> dari 1 sheet header, dari semua entry baik transaksi, sheet piutang, data,
>>> poin, voucher dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain
>>> hanya merupakan database. Agar bisa dipelajari bersama dalam penyusunan
>>> database
>>>
>>> Trims
>>> Nb : file hampir 2mb
>>> Powered by Telkomsel BlackBerry�
>>> ------------------------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.com>
>>> *Sender: * belajar-excel@yahoogroups.com
>>> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
>>> *To: *BeExcel<belajar-excel@yahoogroups.com>
>>> *ReplyTo: * belajar-excel@yahoogroups.com
>>> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
>>> kriteria tanggal dan nama [1 Attachment]
>>>
>>>
>>>
>>> hehehehehe...
>>>
>>> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
>>> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
>>> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
>>> selalu merujuk ke seluruh tabel (termasuk header).
>>>
>>> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
>>> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
>>> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
>>> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
>>> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>>>
>>> Proses input Anda dengan VBA, entry manual, copy paste dari data
>>> lainnya, get external data dari database engine seperti oracle pun akan
>>> membuat fitur Excel table bisa berkembang sesuai kebutuhan.
>>>
>>> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
>>> maka gunakan event worksheet change. Isi event tersebut dengan proses
>>> refresh pivot table.
>>>
>>> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
>>> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
>>> sheet pivot table (pastikan macro security di-enable).
>>>
>>> btw,
>>> boleh tanya,
>>> Setiap proses VBA yang Anda buat, ada berapa record ?
>>> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
>>> banyak record sekali entry dan diproses dengan VBA yang sama ?
>>> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
>>> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
>>> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
>>> bisa berulang kali dijalankan.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2013/9/22 Bayu Arsyad <ske8ay@gmail.com>
>>>
>>>> **
>>>>
>>>>
>>>> Tambah bingung dengan Pivot Table.. hehehe
>>>> Maksud saya Mr. Kid, record yang akan berubah hanya record di Sheet
>>>> Poin saja, tanpa merubah tatanan database yang telah tersusun. Karena ada
>>>> di sheets input saya menyisipkan kode
>>>>
>>>> Sub tambahpoin()
>>>> recordnow = Sheets("Input").Range("idpoin").value
>>>> With Sheets("poin")
>>>> .Cells(recordnow - 997, 1).value =
>>>> Sheets("Input").Range("idpoin").value
>>>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>>>> .Cells(recordnow - 997, 3).value =
>>>> Sheets("Input").Range("c16").value + .Cells(recordnow - 997, 3).value
>>>> End With
>>>> End Sub
>>>> untuk client yang dapatkan poin
>>>>
>>>> dan
>>>> Sub kurangpoin()
>>>> recordnow = Sheets("Input").Range("idpoin").value
>>>> With Sheets("poin")
>>>> .Cells(recordnow - 997, 1).value =
>>>> Sheets("Input").Range("idpoin").value
>>>> .Cells(recordnow - 997, 2).value = Sheets("Input").Range("c8").value
>>>> .Cells(recordnow - 997, 3).value = .Cells(recordnow - 997, 3).value
>>>> - Sheets("Input").Range("d16").value
>>>> End With
>>>> End Sub
>>>> jika poin telah ditukar
>>>>
>>>> Kemudian di sheet data piutang saya menyisipkan kode
>>>> Sub datapoinutang()
>>>> With Sheets("datapiutang";)
>>>> cekutang =
>>>> Application.WorksheetFunction.IfError(Application.VLookup(Range("C14").value,
>>>> Sheets("datapiutang";).Range("B5:K1000"), 10, False), "")
>>>> End With
>>>> With Sheets("data")
>>>> criteria = Range("C14")
>>>> Set cr = Sheets("Data").Range("I6:P10000")
>>>> Set sr = Sheets("data").Range("P6:P10000")
>>>> caripoin = Application.SumIf(cr, criteria, sr)
>>>> End With
>>>> 'MsgBox caripoin
>>>> If cekutang <> 0 Then
>>>> recordnow = Sheets("Input").Range("idpoin").value
>>>> With Sheets("poin")
>>>> .Cells(recordnow - 997, 1).value =
>>>> Sheets("Input").Range("idpoin").value
>>>> .Cells(recordnow - 997, 3).value = caripoin + .Cells(recordnow -
>>>> 997, 3).value
>>>> End With
>>>> End If
>>>> End Sub
>>>> - fungsinya adalah mengecek jika ada nota yang masih utang, maka poin
>>>> belum akan di tambahkan ke sheet POIN.. (itulah mengapa di sheet Data kolom
>>>> P masih menjadi arsip untuk penambahan poin piutang)
>>>>
>>>> Jadi ketika dengan menambahkan fitur Pivot Tabel, akan merubah banyak
>>>> kode yang sudah saya coba buat sebelumnya. Karena setiap harinya ada
>>>> transaksi yang di lakukan oleh client baru dengan nama baru, maka saya
>>>> berasumsi lebih banyak record database daripada memperbanyak formula atau
>>>> fitur lainnya. *Karena jika dengan menggunakan formula, otomatis kita
>>>> harus mengcopykan formula dari cell awal sampai tak terhingga, dan untuk
>>>> Pivot Tabel saya benar2 belum mengerti.* Maka yang saya harapkan
>>>> bantuan untuk membuat kode untuk mencari poin di row mana saja berdasarkan
>>>> kriteria tanggal dan nama yang telah jatuh tempo di sheet data untuk
>>>> dikurangkan dengan total akumulasi poin pada sheet poin.
>>>>
>>>> Maaf kalo telah merepotkan, dan kalau kode diatas agak belepotan mohon
>>>> diperbaiki
>>>> Trims
>>>>
>>>>
>>>>
>>>
>>
>
>
> --
> Best Regard
>
>
>
Nanti moderator yang meng-upload ke netdrive milis termasuk ke Nabble.
Wassalam,
Kid.
2013/9/23 Bayu Arsyad <ske8ay@gmail.
> **
>
>
> kalo yang opsi 2 di upload kemana ?
> Saya nda punya akun netdrive
>
> Trims
>
>
> 2013/9/23 Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Terimakasih telah bersedia berbagi dengan milis Belajar-Excel. Dengan
>> senang hati kami menerimanya.
>> Karena file lebih dari 250KB, ada beberapa opsi, yaitu :
>> 1. BeExceller disediakan link ke netdrive Anda agar bisa melakukan
>> download
>> 2. Milis diberi salinannya, kemudian akan di-upload ke netdrive milis dan
>> juga ke Nabble (backup milis).
>>
>> Apapun opsi yang dipilih, milis Belajar-Excel sangat berterima kasih atas
>> kesediaannya untuk berbagi. Insya Allah file tersebut bisa memberi banyak
>> manfaat bagi seluruh BeExceller atau pengunjung milis.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>>
>> 2013/9/23 <ske8ay@gmail.
>>
>> **
>>>
>>>
>>> ** Terima Kasih Mr. Kid bersedia bantu. Jika diijinkan, sy mau
>>> lampirkan file fullnya. Karena program kasir yg sy rancang bekerja hanya
>>> dari 1 sheet header, dari semua entry baik transaksi, sheet piutang, data,
>>> poin, voucher dll semuanya hanya di proses dari 1 sheet saja. Sheet yg lain
>>> hanya merupakan database. Agar bisa dipelajari bersama dalam penyusunan
>>> database
>>>
>>> Trims
>>> Nb : file hampir 2mb
>>> Powered by Telkomsel BlackBerry�
>>> ------------
>>> *From: * "Mr. Kid" <mr.nmkid@gmail.
>>> *Sender: * belajar-excel@
>>> *Date: *Sun, 22 Sep 2013 18:13:14 +0700
>>> *To: *BeExcel<belajar-excel@
>>> *ReplyTo: * belajar-excel@
>>> *Subject: *Re: [belajar-excel] cara mengurangkan poin berdasarkan
>>> kriteria tanggal dan nama [1 Attachment]
>>>
>>>
>>>
>>> hehehehehe..
>>>
>>> Pivot table bisa diletakkan disheet lain. Setiap ada perubahan pada data
>>> (bertambah, berkurang, berganti nilai), cukup lakukan refresh pivot table
>>> (bisa di refresh melalui VBA juga), selama data source pivot table bisa
>>> selalu merujuk ke seluruh tabel (termasuk header).
>>>
>>> Excel memiliki fitur bernama Excel Table (ada di ribbon Home) yang bisa
>>> membuat Anda tidak perlu repot meng-copy formula ke semua baris Excel.
>>> Setiap penambahan data dibaris baru, akan serta merta diatur oleh Excel
>>> Table untuk di-copy-kan formulanya, selama satu kolom itu berisi formula
>>> yang sama bunyinya dan hanya berbeda karena rujukan rangenya saja.
>>>
>>> Proses input Anda dengan VBA, entry manual, copy paste dari data
>>> lainnya, get external data dari database engine seperti oracle pun akan
>>> membuat fitur Excel table bisa berkembang sesuai kebutuhan.
>>>
>>> Jika ingin otomatis pivot table ter-refresh setiap kali ada data baru,
>>> maka gunakan event worksheet change. Isi event tersebut dengan proses
>>> refresh pivot table.
>>>
>>> Contohnya file terlampir. Coba anda isi record baru sampai kolom poinnya
>>> juga terisi atau ubah nilai poin salah satu record yang ada. Kemudian lihat
>>> sheet pivot table (pastikan macro security di-enable).
>>>
>>> btw,
>>> boleh tanya,
>>> Setiap proses VBA yang Anda buat, ada berapa record ?
>>> Satu record masuk lalu di jalankan VBA Anda atau memungkinkan langsung
>>> banyak record sekali entry dan diproses dengan VBA yang sama ?
>>> Hal ini penting diketahui dalam membangun proses VBA yang Anda maksud,
>>> karena akan mengarahkan pendekatan yang berbeda antara record-per-record
>>> dengan sekaligus banyak record. Pastinya, apapun bentuknya, sehari pasti
>>> bisa berulang kali dijalankan.
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>> 2013/9/22 Bayu Arsyad <ske8ay@gmail.
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>
>
> --
> Best Regard
>
>
>
Sun Sep 22, 2013 10:59 pm (PDT) . Posted by:
"Bayu Arsyad"
Jangan di ketawain ya dalam penulisan kode2nya :(
Karena minim bahasa pemograman, saya hanya berdasarkan logika
tanpa mengindahkan kaidah dalam penulisan kodenya. Malahan
mungkin malah muter2 aja kodenya hehheh. Apabila ada yang
bersedia memperbaiki, ataupun mengembangkan jangan sungkan2 (Asal
bagi2 juga ke saya heheheh)
Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk
case poinnya ini sebaiknya dibuat seperti apa?
Berikut saya lampirkan file fullnyaTrimsWassalam
--- Mods ---
File lampiran telah dipisahkan dari email.
Terimakasih terlah berbagi dengan milis Belajar-Excel
Link untuk mengunduhnya akan diposting setelah selesai di-upload
----------------
Karena minim bahasa pemograman, saya hanya berdasarkan logika
tanpa mengindahkan kaidah dalam penulisan kodenya. Malahan
mungkin malah muter2 aja kodenya hehheh. Apabila ada yang
bersedia memperbaiki, ataupun mengembangkan jangan sungkan2 (Asal
bagi2 juga ke saya heheheh)
Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk
case poinnya ini sebaiknya dibuat seperti apa?
Berikut saya lampirkan file fullnyaTrimsWassala
--- Mods ---
File lampiran telah dipisahkan dari email.
Terimakasih terlah berbagi dengan milis Belajar-Excel
Link untuk mengunduhnya akan diposting setelah selesai di-upload
------------
Sun Sep 22, 2013 11:40 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Berikut link untuk mengunduh file dari mas Bayu Arsyad.
https://app.box.com/s/rmrufn85ne7eieox9k85
Seluruh kritik, saran, ide baru, perbaikan, dan sebagainya, silakan
diposting ke milis dengan cara me-reply topik :
http://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/27971
Wassalam,
Kid.
2013/9/23 Bayu Arsyad <ske8ay@gmail.com>
> **
>
>
> Jangan di ketawain ya dalam penulisan kode2nya :(
> Karena minim bahasa pemograman, saya hanya berdasarkan logika tanpa
> mengindahkan kaidah dalam penulisan kodenya. Malahan mungkin malah muter2
> aja kodenya hehheh.
> Apabila ada yang bersedia memperbaiki, ataupun mengembangkan jangan
> sungkan2 (Asal bagi2 juga ke saya heheheh)
> Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk case poinnya
> ini sebaiknya dibuat seperti apa?
>
> Berikut saya lampirkan file fullnya
> Trims
> Wassalam
>
>
> --- Mods ---
> File lampiran telah dipisahkan dari email.
> Terimakasih terlah berbagi dengan milis Belajar-Excel
> Link untuk mengunduhnya akan diposting setelah selesai di-upload
> ----------------
>
>
>
>
https://app.
Seluruh kritik, saran, ide baru, perbaikan, dan sebagainya, silakan
diposting ke milis dengan cara me-reply topik :
http://groups.
Wassalam,
Kid.
2013/9/23 Bayu Arsyad <ske8ay@gmail.
> **
>
>
> Jangan di ketawain ya dalam penulisan kode2nya :(
> Karena minim bahasa pemograman, saya hanya berdasarkan logika tanpa
> mengindahkan kaidah dalam penulisan kodenya. Malahan mungkin malah muter2
> aja kodenya hehheh.
> Apabila ada yang bersedia memperbaiki, ataupun mengembangkan jangan
> sungkan2 (Asal bagi2 juga ke saya heheheh)
> Ditunggu respon dari Mr. Kid dan master2 lainnya, kira2 untuk case poinnya
> ini sebaiknya dibuat seperti apa?
>
> Berikut saya lampirkan file fullnya
> Trims
> Wassalam
>
>
> --- Mods ---
> File lampiran telah dipisahkan dari email.
> Terimakasih terlah berbagi dengan milis Belajar-Excel
> Link untuk mengunduhnya akan diposting setelah selesai di-upload
> ------------
>
>
>
>
Dear BeExceller,
Berikut ini adalah link file contoh aplikasi kasir.
https://app.box.com/s/rmrufn85ne7eieox9k85
<https://app.box.com/s/rmrufn85ne7eieox9k85>
Kiriman mas Bayu Arsyad (ske8ay@gmail.com
<mailto:ske8ay@gmail.com> ) untuk kita semua.
Silakan dilihat dan dicoba.
Masukan ataupun ide baru bisa disampaikan melalui milis dengan
me-reply posting ini.
Best Regards,
Moderator Belajar-Excel
Berikut ini adalah link file contoh aplikasi kasir.
https://app.
<https://app.
Kiriman mas Bayu Arsyad (ske8ay@gmail.
<mailto:ske8ay@gmail.
Silakan dilihat dan dicoba.
Masukan ataupun ide baru bisa disampaikan melalui milis dengan
me-reply posting ini.
Best Regards,
Moderator Belajar-Excel
Sun Sep 22, 2013 11:38 pm (PDT) . Posted by:
"y_tanio" y_tanio
Dear Masters
Mohon bantunanya memecahkan rumus excel perihal akumulasi resiko
berdasarkan jangkawaktu yang telah telah tersedia
Warm Rgrds
Y.tanio
File Terlampir
--- Mods ---
Sepertinya si file tertinggal. Sabar ya.... kita tunggu
bersama-sama susulan filenya
----------------
Mohon bantunanya memecahkan rumus excel perihal akumulasi resiko
berdasarkan jangkawaktu yang telah telah tersedia
Warm Rgrds
Y.tanio
File Terlampir
--- Mods ---
Sepertinya si file tertinggal. Sabar ya.... kita tunggu
bersama-sama susulan filenya
------------
Mon Sep 23, 2013 12:28 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Dear BeExceller,
Banyak baris kode VBA dimilis menggunakan End untuk mendapatkan baris
terakhir data. Apakah selalu dengan cara tersebut pasti selalu berhasil ?
Coba deh jalan-jalan
kesini<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-05-properti-end.html>.
Gak jamin ya kalau sudah
kesana<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-05-properti-end.html>nanti
terus gak bingung.
Setidaknya, bisa dapat cerita tambahan buat temen-temen yang belum tahu
tentang si properti End
disana<http://b-excel.blogspot.com/2013/09/belajarvba-011-range-05-properti-end.html>
.
Selamat jalan-jalan.
Wassalam,
Kid.
Banyak baris kode VBA dimilis menggunakan End untuk mendapatkan baris
terakhir data. Apakah selalu dengan cara tersebut pasti selalu berhasil ?
Coba deh jalan-jalan
kesini<http://b-excel.
Gak jamin ya kalau sudah
kesana<http://b-excel.
terus gak bingung.
Setidaknya, bisa dapat cerita tambahan buat temen-temen yang belum tahu
tentang si properti End
disana<http://b-excel.
.
Selamat jalan-jalan.
Wassalam,
Kid.
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
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