Senin, 18 September 2017

[belajar-excel] Digest Number 4301

11 Messages

Digest #4301
1a
Re: Monitoring Umur Hutang by "Iwan Setiawan"
1b
Re: Monitoring Umur Hutang [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
1c
Re: Monitoring Umur Hutang by "Iwan Setiawan"
1d
Re: Monitoring Umur Hutang by "Mr. Kid" nmkid.family@ymail.com
2a
tanya coding pindah data????? by shenly_excelmania
2b
Re: tanya coding pindah data????? by "Mr. Kid" nmkid.family@ymail.com
3a
Help : List box by multiple table name by "Odhy" odhyz83_assasaky
3b
Help : List box by multiple table name by "Odhy" odhyz83_assasaky

Messages

Sun Sep 17, 2017 11:46 pm (PDT) . Posted by:

"Iwan Setiawan"

Assalamualaikum Wr Wb
Mr. Kid
Hasil dari Pivot kemarin ada ketidaksesuaian seperti contoh yang saya kirimkan ini.Antara Sisa Hutang dan Umur tidak sesuai hasil nilainya. Saya ambilkan contoh data yang tidak sesuai tersebut.Sebelumnya diucapkan Terima kasih.
Wassalamualaikum Wr Wb Iwan

On Sunday, 17 September 2017, 6:10, "Iwan Setiawan iwell77@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Terima Kasih Mr. Kid. Akan saya coba dan terapkan. Sangat membantu sekali untuk monitor pembayaran..
 


On Saturday, 16 September 2017, 5:40, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Sorry, salah file lampiran pada postingan yang sebelumnya.Berikut adalah file yang sesuai dengan asumsi berbunyi :
Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.

Regards,Kid

2017-09-16 5:03 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

Hai Iwan,

File terlampir dengan 2 cara, yaitu seluruhnya formula dan gabungan formula dengan pivot table.
Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.

Regards,
Kid

On Fri, Sep 15, 2017 at 9:23 AM, Iwan Setiawan iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:

  Akan saya coba kembali dengan yang lebih besar kapasitasnya.

Haturnuhun 


On Thursday, 14 September 2017, 22:43, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:


  Wa'alaikumussalam wr wb

File lampirannya tidak dapat dibuka.

Wassalamu'alaikum wr wb
Kid

2017-09-14 17:04 GMT+07:00 iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

 
Assalamualaikum Warahmatullahi WabarakatuhAllhamdulillah akhirnya saya dapat bergabung di sini.
Dear para suhu Excel yang saya hormati,
Mohon bantuannya untuk memecahkan masalah umur hutang yangsudah beberapa kali uji coba tidak sesuai dengan harapan.
- 1.      Bila Hasil Sisa Kosong / nol maka Umur Hutangpun kosong / Nol.

- 2.      Bila Hasil Sisa lebih dari 0 (nol) maka UmurHutang terisi sesuai dengan data pivotnya

- 3.      Bila Hasil Sisa Minus maka Umur Hutang kosong /Nol tapi dalam kolom Keterangan  di isi"Salah Posting"
Bagaimanakah rumusnya.
Terlampirdata dan report yang di inginkan  Terimakasih Iwan


#yiv9325800438 #yiv9325800438 -- #yiv9325800438ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9325800438 #yiv9325800438ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9325800438 #yiv9325800438ygrp-mkp #yiv9325800438hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9325800438 #yiv9325800438ygrp-mkp #yiv9325800438ads {margin-bottom:10px;}#yiv9325800438 #yiv9325800438ygrp-mkp .yiv9325800438ad {padding:0 0;}#yiv9325800438 #yiv9325800438ygrp-mkp .yiv9325800438ad p {margin:0;}#yiv9325800438 #yiv9325800438ygrp-mkp .yiv9325800438ad a {color:#0000ff;text-decoration:none;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ygrp-lc {font-family:Arial;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ygrp-lc #yiv9325800438hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ygrp-lc .yiv9325800438ad {margin-bottom:10px;padding:0 0;}#yiv9325800438 #yiv9325800438actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9325800438 #yiv9325800438activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9325800438 #yiv9325800438activity span {font-weight:700;}#yiv9325800438 #yiv9325800438activity span:first-child {text-transform:uppercase;}#yiv9325800438 #yiv9325800438activity span a {color:#5085b6;text-decoration:none;}#yiv9325800438 #yiv9325800438activity span span {color:#ff7900;}#yiv9325800438 #yiv9325800438activity span .yiv9325800438underline {text-decoration:underline;}#yiv9325800438 .yiv9325800438attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9325800438 .yiv9325800438attach div a {text-decoration:none;}#yiv9325800438 .yiv9325800438attach img {border:none;padding-right:5px;}#yiv9325800438 .yiv9325800438attach label {display:block;margin-bottom:5px;}#yiv9325800438 .yiv9325800438attach label a {text-decoration:none;}#yiv9325800438 blockquote {margin:0 0 0 4px;}#yiv9325800438 .yiv9325800438bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9325800438 .yiv9325800438bold a {text-decoration:none;}#yiv9325800438 dd.yiv9325800438last p a {font-family:Verdana;font-weight:700;}#yiv9325800438 dd.yiv9325800438last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9325800438 dd.yiv9325800438last p span.yiv9325800438yshortcuts {margin-right:0;}#yiv9325800438 div.yiv9325800438attach-table div div a {text-decoration:none;}#yiv9325800438 div.yiv9325800438attach-table {width:400px;}#yiv9325800438 div.yiv9325800438file-title a, #yiv9325800438 div.yiv9325800438file-title a:active, #yiv9325800438 div.yiv9325800438file-title a:hover, #yiv9325800438 div.yiv9325800438file-title a:visited {text-decoration:none;}#yiv9325800438 div.yiv9325800438photo-title a, #yiv9325800438 div.yiv9325800438photo-title a:active, #yiv9325800438 div.yiv9325800438photo-title a:hover, #yiv9325800438 div.yiv9325800438photo-title a:visited {text-decoration:none;}#yiv9325800438 div#yiv9325800438ygrp-mlmsg #yiv9325800438ygrp-msg p a span.yiv9325800438yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9325800438 .yiv9325800438green {color:#628c2a;}#yiv9325800438 .yiv9325800438MsoNormal {margin:0 0 0 0;}#yiv9325800438 o {font-size:0;}#yiv9325800438 #yiv9325800438photos div {float:left;width:72px;}#yiv9325800438 #yiv9325800438photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9325800438 #yiv9325800438photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9325800438 #yiv9325800438reco-category {font-size:77%;}#yiv9325800438 #yiv9325800438reco-desc {font-size:77%;}#yiv9325800438 .yiv9325800438replbq {margin:4px;}#yiv9325800438 #yiv9325800438ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9325800438 #yiv9325800438ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9325800438 #yiv9325800438ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9325800438 #yiv9325800438ygrp-mlmsg select, #yiv9325800438 input, #yiv9325800438 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9325800438 #yiv9325800438ygrp-mlmsg pre, #yiv9325800438 code {font:115% monospace;}#yiv9325800438 #yiv9325800438ygrp-mlmsg * {line-height:1.22em;}#yiv9325800438 #yiv9325800438ygrp-mlmsg #yiv9325800438logo {padding-bottom:10px;}#yiv9325800438 #yiv9325800438ygrp-msg p a {font-family:Verdana;}#yiv9325800438 #yiv9325800438ygrp-msg p#yiv9325800438attach-count span {color:#1E66AE;font-weight:700;}#yiv9325800438 #yiv9325800438ygrp-reco #yiv9325800438reco-head {color:#ff7900;font-weight:700;}#yiv9325800438 #yiv9325800438ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ov li a {font-size:130%;text-decoration:none;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9325800438 #yiv9325800438ygrp-sponsor #yiv9325800438ov ul {margin:0;padding:0 0 0 8px;}#yiv9325800438 #yiv9325800438ygrp-text {font-family:Georgia;}#yiv9325800438 #yiv9325800438ygrp-text p {margin:0 0 1em 0;}#yiv9325800438 #yiv9325800438ygrp-text tt {font-size:120%;}#yiv9325800438 #yiv9325800438ygrp-vital ul li:last-child {border-right:none !important;}#yiv9325800438

| | Virus-free. www.avast.com |

Mon Sep 18, 2017 12:11 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam wr wb

Hai Iwan,
Apakah sudah mengikuti syarat dan ketentuan yang ada?
Data source terurut (sorted) dengan kondisi tertentu seperti yang sudah diterangkan dalam file lampiran tempo lalu.

Wassalamu'alaikum wr wb
Kid
Sent from my smart enough phone

> On Sep 18, 2017, at 12:33, Iwan Setiawan iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
> Assalamualaikum Wr Wb
>
> Mr. Kid
>
> Hasil dari Pivot kemarin ada ketidaksesuaian seperti contoh yang saya kirimkan ini.
> Antara Sisa Hutang dan Umur tidak sesuai hasil nilainya. Saya ambilkan contoh data yang tidak sesuai tersebut.
> Sebelumnya diucapkan Terima kasih.
> Wassalamualaikum Wr Wb
>
> Iwan
>
>
> On Sunday, 17 September 2017, 6:10, "Iwan Setiawan iwell77@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Terima Kasih Mr. Kid. Akan saya coba dan terapkan. Sangat membantu sekali untuk monitor pembayaran..
>
>
>
>
> On Saturday, 16 September 2017, 5:40, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Sorry, salah file lampiran pada postingan yang sebelumnya.
> Berikut adalah file yang sesuai dengan asumsi berbunyi :
> Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
> Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
> maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.
>
>
> Regards,
> Kid
>
>
>
>
> 2017-09-16 5:03 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
> Hai Iwan,
>
> File terlampir dengan 2 cara, yaitu seluruhnya formula dan gabungan formula dengan pivot table.
> Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
> Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
> maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.
>
> Regards,
> Kid
>
>
>
>
>
>
> On Fri, Sep 15, 2017 at 9:23 AM, Iwan Setiawan iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
> Akan saya coba kembali dengan yang lebih besar kapasitasnya.
>
> Haturnuhun
>
>
>
>
> On Thursday, 14 September 2017, 22:43, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> File lampirannya tidak dapat dibuka.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2017-09-14 17:04 GMT+07:00 iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:
>
>
> Assalamualaikum Warahmatullahi Wabarakatuh
> Allhamdulillah akhirnya saya dapat bergabung di sini.
>
> Dear para suhu Excel yang saya hormati,
>
> Mohon bantuannya untuk memecahkan masalah umur hutang yang sudah beberapa kali uji coba tidak sesuai dengan harapan.
> 1. Bila Hasil Sisa Kosong / nol maka Umur Hutang pun kosong / Nol.
> 2. Bila Hasil Sisa lebih dari 0 (nol) maka Umur Hutang terisi sesuai dengan data pivotnya
> 3. Bila Hasil Sisa Minus maka Umur Hutang kosong / Nol tapi dalam kolom Keterangan di isi "Salah Posting"
> Bagaimanakah rumusnya.
>
> Terlampir data dan report yang di inginkan
>
>
> Terimakasih
>
> Iwan
>
>
>
>
>
>
>
>
>
>
>
> Virus-free. www.avast.com
>
> <Kasus Umur Hutang Mr Kid-2.xlsx>

Mon Sep 18, 2017 6:54 pm (PDT) . Posted by:

"Iwan Setiawan"

Sudah saya urut sesuai dengan rumus yang ada, tp kenapa setelah saya input data seperti contoh terlampir tidak ketidaksesuaian hasil reportnya. Yang kemarin saya lihat hanya cara menggunakan Pivot Table. Karena lebih simple dan menarik makanya cara itu sedang saya pelajari.
 Iwan

On Monday, 18 September 2017, 14:11, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Wa'alaikumussalam wr wb
Hai Iwan,Apakah sudah mengikuti syarat dan ketentuan yang ada?Data source terurut (sorted) dengan kondisi tertentu seperti yang sudah diterangkan dalam file lampiran tempo lalu.

Wassalamu'alaikum wr wbKid
Sent from my smart enough phone
On Sep 18, 2017, at 12:33, Iwan Setiawan iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Assalamualaikum Wr Wb
Mr. Kid
Hasil dari Pivot kemarin ada ketidaksesuaian seperti contoh yang saya kirimkan ini.Antara Sisa Hutang dan Umur tidak sesuai hasil nilainya. Saya ambilkan contoh data yang tidak sesuai tersebut.Sebelumnya diucapkan Terima kasih.
Wassalamualaikum Wr Wb Iwan

On Sunday, 17 September 2017, 6:10, "Iwan Setiawan iwell77@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Terima Kasih Mr. Kid. Akan saya coba dan terapkan. Sangat membantu sekali untuk monitor pembayaran..
 


On Saturday, 16 September 2017, 5:40, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Sorry, salah file lampiran pada postingan yang sebelumnya.Berikut adalah file yang sesuai dengan asumsi berbunyi :
Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.

Regards,Kid

2017-09-16 5:03 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:

Hai Iwan,

File terlampir dengan 2 cara, yaitu seluruhnya formula dan gabungan formula dengan pivot table.
Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya yang terdekat lebih dulu.
Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di bulan April dan September,
maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran April.

Regards,
Kid

On Fri, Sep 15, 2017 at 9:23 AM, Iwan Setiawan iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:

  Akan saya coba kembali dengan yang lebih besar kapasitasnya.

Haturnuhun 


On Thursday, 14 September 2017, 22:43, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:


  Wa'alaikumussalam wr wb

File lampirannya tidak dapat dibuka.

Wassalamu'alaikum wr wb
Kid

2017-09-14 17:04 GMT+07:00 iwell77@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com >:

 
Assalamualaikum Warahmatullahi WabarakatuhAllhamdulillah akhirnya saya dapat bergabung di sini.
Dear para suhu Excel yang saya hormati,
Mohon bantuannya untuk memecahkan masalah umur hutang yangsudah beberapa kali uji coba tidak sesuai dengan harapan.
- 1.      Bila Hasil Sisa Kosong / nol maka Umur Hutangpun kosong / Nol.

- 2.      Bila Hasil Sisa lebih dari 0 (nol) maka UmurHutang terisi sesuai dengan data pivotnya

- 3.      Bila Hasil Sisa Minus maka Umur Hutang kosong /Nol tapi dalam kolom Keterangan  di isi"Salah Posting"
Bagaimanakah rumusnya.
Terlampirdata dan report yang di inginkan  Terimakasih Iwan


| | Virus-free. www.avast.com |

<Kasus Umur Hutang Mr Kid-2.xlsx>
#yiv1731084733 #yiv1731084733 -- #yiv1731084733ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1731084733 #yiv1731084733ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1731084733 #yiv1731084733ygrp-mkp #yiv1731084733hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1731084733 #yiv1731084733ygrp-mkp #yiv1731084733ads {margin-bottom:10px;}#yiv1731084733 #yiv1731084733ygrp-mkp .yiv1731084733ad {padding:0 0;}#yiv1731084733 #yiv1731084733ygrp-mkp .yiv1731084733ad p {margin:0;}#yiv1731084733 #yiv1731084733ygrp-mkp .yiv1731084733ad a {color:#0000ff;text-decoration:none;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ygrp-lc {font-family:Arial;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ygrp-lc #yiv1731084733hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ygrp-lc .yiv1731084733ad {margin-bottom:10px;padding:0 0;}#yiv1731084733 #yiv1731084733actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1731084733 #yiv1731084733activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1731084733 #yiv1731084733activity span {font-weight:700;}#yiv1731084733 #yiv1731084733activity span:first-child {text-transform:uppercase;}#yiv1731084733 #yiv1731084733activity span a {color:#5085b6;text-decoration:none;}#yiv1731084733 #yiv1731084733activity span span {color:#ff7900;}#yiv1731084733 #yiv1731084733activity span .yiv1731084733underline {text-decoration:underline;}#yiv1731084733 .yiv1731084733attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1731084733 .yiv1731084733attach div a {text-decoration:none;}#yiv1731084733 .yiv1731084733attach img {border:none;padding-right:5px;}#yiv1731084733 .yiv1731084733attach label {display:block;margin-bottom:5px;}#yiv1731084733 .yiv1731084733attach label a {text-decoration:none;}#yiv1731084733 blockquote {margin:0 0 0 4px;}#yiv1731084733 .yiv1731084733bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1731084733 .yiv1731084733bold a {text-decoration:none;}#yiv1731084733 dd.yiv1731084733last p a {font-family:Verdana;font-weight:700;}#yiv1731084733 dd.yiv1731084733last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1731084733 dd.yiv1731084733last p span.yiv1731084733yshortcuts {margin-right:0;}#yiv1731084733 div.yiv1731084733attach-table div div a {text-decoration:none;}#yiv1731084733 div.yiv1731084733attach-table {width:400px;}#yiv1731084733 div.yiv1731084733file-title a, #yiv1731084733 div.yiv1731084733file-title a:active, #yiv1731084733 div.yiv1731084733file-title a:hover, #yiv1731084733 div.yiv1731084733file-title a:visited {text-decoration:none;}#yiv1731084733 div.yiv1731084733photo-title a, #yiv1731084733 div.yiv1731084733photo-title a:active, #yiv1731084733 div.yiv1731084733photo-title a:hover, #yiv1731084733 div.yiv1731084733photo-title a:visited {text-decoration:none;}#yiv1731084733 div#yiv1731084733ygrp-mlmsg #yiv1731084733ygrp-msg p a span.yiv1731084733yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1731084733 .yiv1731084733green {color:#628c2a;}#yiv1731084733 .yiv1731084733MsoNormal {margin:0 0 0 0;}#yiv1731084733 o {font-size:0;}#yiv1731084733 #yiv1731084733photos div {float:left;width:72px;}#yiv1731084733 #yiv1731084733photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv1731084733 #yiv1731084733photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1731084733 #yiv1731084733reco-category {font-size:77%;}#yiv1731084733 #yiv1731084733reco-desc {font-size:77%;}#yiv1731084733 .yiv1731084733replbq {margin:4px;}#yiv1731084733 #yiv1731084733ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1731084733 #yiv1731084733ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1731084733 #yiv1731084733ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1731084733 #yiv1731084733ygrp-mlmsg select, #yiv1731084733 input, #yiv1731084733 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1731084733 #yiv1731084733ygrp-mlmsg pre, #yiv1731084733 code {font:115% monospace;}#yiv1731084733 #yiv1731084733ygrp-mlmsg * {line-height:1.22em;}#yiv1731084733 #yiv1731084733ygrp-mlmsg #yiv1731084733logo {padding-bottom:10px;}#yiv1731084733 #yiv1731084733ygrp-msg p a {font-family:Verdana;}#yiv1731084733 #yiv1731084733ygrp-msg p#yiv1731084733attach-count span {color:#1E66AE;font-weight:700;}#yiv1731084733 #yiv1731084733ygrp-reco #yiv1731084733reco-head {color:#ff7900;font-weight:700;}#yiv1731084733 #yiv1731084733ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ov li a {font-size:130%;text-decoration:none;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1731084733 #yiv1731084733ygrp-sponsor #yiv1731084733ov ul {margin:0;padding:0 0 0 8px;}#yiv1731084733 #yiv1731084733ygrp-text {font-family:Georgia;}#yiv1731084733 #yiv1731084733ygrp-text p {margin:0 0 1em 0;}#yiv1731084733 #yiv1731084733ygrp-text tt {font-size:120%;}#yiv1731084733 #yiv1731084733ygrp-vital ul li:last-child {border-right:none !important;}#yiv1731084733

Mon Sep 18, 2017 7:29 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Apakah harusnya begini ?


Regards,
Kid

On Tue, Sep 19, 2017 at 8:45 AM, Iwan Setiawan iwell77@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Sudah saya urut sesuai dengan rumus yang ada, tp kenapa setelah saya input
> data seperti contoh terlampir tidak ketidaksesuaian hasil reportnya. Yang
> kemarin saya lihat hanya cara menggunakan Pivot Table. Karena lebih simple
> dan menarik makanya cara itu sedang saya pelajari.
>
> *Iwan *
>
>
> On Monday, 18 September 2017, 14:11, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> Hai Iwan,
> Apakah sudah mengikuti syarat dan ketentuan yang ada?
> Data source terurut (sorted) dengan kondisi tertentu seperti yang sudah
> diterangkan dalam file lampiran tempo lalu.
>
> Wassalamu'alaikum wr wb
> Kid
> Sent from my smart enough phone
>
> On Sep 18, 2017, at 12:33, Iwan Setiawan iwell77@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum Wr Wb
>
> Mr. Kid
>
> Hasil dari Pivot kemarin ada ketidaksesuaian seperti contoh yang saya
> kirimkan ini.
> Antara Sisa Hutang dan Umur tidak sesuai hasil nilainya. Saya ambilkan
> contoh data yang tidak sesuai tersebut.
> Sebelumnya diucapkan Terima kasih.
> Wassalamualaikum Wr Wb
>
> *Iwan*
>
>
> On Sunday, 17 September 2017, 6:10, "Iwan Setiawan iwell77@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Terima Kasih Mr. Kid. Akan saya coba dan terapkan. Sangat membantu sekali
> untuk monitor pembayaran..
>
>
>
>
> On Saturday, 16 September 2017, 5:40, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Sorry, salah file lampiran pada postingan yang sebelumnya.
> Berikut adalah file yang sesuai dengan asumsi berbunyi :
>
> Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya
> yang terdekat lebih dulu.
> Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di
> bulan April dan September,
> maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih
> dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut
> digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran
> April.
>
>
>
> Regards,
> Kid
>
>
>
>
> 2017-09-16 5:03 GMT+07:00 Mr. Kid <mr.nmkid@gmail.com>:
>
> Hai Iwan,
>
> File terlampir dengan 2 cara, yaitu seluruhnya formula dan gabungan
> formula dengan pivot table.
> Asumsinya, setiap pembayaran digunakan untuk menutup hutang sebelumnya
> yang terdekat lebih dulu.
> Jadi, jika ada hutang bulan Januari dan Juni, lalu pembayaran adanya di
> bulan April dan September,
> maka pembayaran September digunakan untuk menyelesaikan hutang Juni lebih
> dulu. Jika masih ada sisa pembayaran, maka sisa pembayaran tersebut
> digunakan untuk menyelesaikan hutang Januari bersama dengan pembayaran
> April.
>
> Regards,
> Kid
>
>
>
>
>
>
> On Fri, Sep 15, 2017 at 9:23 AM, Iwan Setiawan iwell77@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>
>
> Akan saya coba kembali dengan yang lebih besar kapasitasnya.
>
> Haturnuhun
>
>
>
>
> On Thursday, 14 September 2017, 22:43, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com > wrote:
>
>
>
> Wa'alaikumussalam wr wb
>
> File lampirannya tidak dapat dibuka.
>
> Wassalamu'alaikum wr wb
> Kid
>
>
> 2017-09-14 17:04 GMT+07:00 iwell77@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com >:
>
>
>
> Assalamualaikum Warahmatullahi Wabarakatuh
> Allhamdulillah akhirnya saya dapat bergabung di sini.
>
> Dear para suhu Excel yang saya hormati,
>
> Mohon bantuannya untuk memecahkan masalah umur hutang yang sudah beberapa
> kali uji coba tidak sesuai dengan harapan.
>
> - 1. Bila Hasil Sisa Kosong / nol maka Umur Hutang pun kosong /
> Nol.
>
>
> - 2. Bila Hasil Sisa lebih dari 0 (nol) maka Umur Hutang terisi
> sesuai dengan data pivotnya
>
>
> - 3. Bila Hasil Sisa Minus maka Umur Hutang kosong / Nol tapi
> dalam kolom Keterangan di isi "Salah Posting"
>
> Bagaimanakah rumusnya.
>
> Terlampir data dan report yang di inginkan
>
>
> Terimakasih
>
> Iwan
>
>
>
>
>
>
>
>
>
>
>
> [image: alt]
> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail> Virus-free.
> www.avast.com
> <https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
> <https://mg.mail.yahoo.com/neo/launch?.rand=fl49578786155#DAB4FAD8-2DD7-40BB-A1B8-4E2AA1F9FDF2>
>
> <Kasus Umur Hutang Mr Kid-2.xlsx>
>
>
>
>
>

Mon Sep 18, 2017 3:04 am (PDT) . Posted by:

shenly_excelmania

asslamualakikum wr.wb
halo master, shenly kembali bertanya, sekrang sya ada masalah di coding macro,
dlu saya mendapatkan coding dari salah satu master disni, yang berbunyi sbb:
============================
Sub cobalagiaja()


Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste

ActiveSheet.Unprotect Password:="mamamintapulsa&quot;

Set rngData = Range("A22").CurrentRegion.Offset(1).Resize(, 1) 'record data input kolom + 1 baris kosong terbawah
lRows = rngData.Rows.Count - 1 'jumlah record


Sheets("Data").Select
Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range posisi paste di kolom yg diingikn
rngData.Resize(lRows, 1).Copy 'copy input kolom yg dinginkn
rngTarget.PasteSpecial xlPasteValues 'paste values di posisi target kolom yg dinginkn
rngData.Offset(0, 1).Resize(lRows, 14).Copy 'copy input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(0, 1).PasteSpecial xlPasteValues 'paste values di posisi target kolom A lompat 2 kolom ke kanan

Sheets("Form").Select
Rows("23:1500").Select
Selection.Delete Shift:=xlUp
Range("J22:O22").Select
Selection.ClearContents

Range("F18").Select

ActiveWorkbook.Save



End Sub


=================


coding tersebut jika sya masukan di Command Buttom, akan terjadi kesalah recod, Seprti : data yang dipindah entah masuk ke mana, jadi hasilnya seperti mendelet data yg akan di pindah saja.
Tapi ketika sya buat coding tsb di Module, maka akan berjalan sesuai dgn yg sya inginkn.
kira2 itu apa ya masalahnya master? kok tidak bisa di masukin di Command buttom ???


Mon Sep 18, 2017 8:47 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam wr wb

Hai Shenly,

Coba lebih disiplin dalam penggunaan object.

Contoh : untuk merujuk ke range A1 di sheet bernama 'Kid', gunakan :
Sheets("kid").range("a1")

Hindari penggunaan activesheet, selection, select, activate jika tidak
yakin apa sheet yang sedang aktif, range yang sedang dipilih, sesuai
kebutuhan atau tidak.

ActiveSheet.Unprotect Password:="mamamintapulsa"
Lebih baik :
Sheets("nama sheetnya").unprotect Password:="mamamintapulsa"

Set rngData = Range("A22").CurrentRegion.Offset(1).Resize(, 1)
'record data input kolom + 1 baris kosong terbawah
Lebih baik :
Set rngData = Sheets("nama
sheetnya").Range("A22").CurrentRegion.Offset(1).Resize(,
1) 'record data input kolom + 1 baris kosong terbawah

Sheets("Data").Select
Lebih baik : dibuang saja, karena gak penting dan buang-buang energi

Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
'range posisi paste di kolom yg diingikn
Lebih baik : (kalau memang merujuk ke sheet bernama 'data' yang di-select
di baris sebelumnya, yang sekarang sudah dibuang itu)
Set rngTarget = Sheets("data").Cells(Sheets("data").Rows.Count,
"A").End(xlUp).Offset(1, 0) 'range posisi paste di kolom yg diingikn

Sheets("Form").Select

Rows("23:1500").Select

Selection.Delete Shift:=xlUp
Lebih baik :
Sheets("form").range("a23:a1500").entirerow.delete xlshiftup

Range("J22:O22").Select
Selection.ClearContents
Lebih baik :
Sheets("nama sheetnya").range("j22:o22").clearcontents

Range("F18").Select
Lebih baik : (kalau memang ingin mengatura agar yang ditampilkan ke user
adalah range tersebut di suatu sheet tertentu)
Application.goto sheets("nama sheetnya").range("f18") , true

ActiveWorkbook.Save
Lebih baik : (kalau memang akan save workbook yang berisi baris-baris kode
ini, alias bukan workbook lain)
thisworkbook.save

So,
langsung to the point sajah....
sebut nama emaknya, lalu sebut nama anaknya, lalu lakukan sesuatu terhadap
anaknya.
contoh :
sheets("data").range("a1:x12345").copy
sheets("salinan").range("g17").pastespecial
xlpastevaluesandnumberformats
kalau mau copy range A1:X12345 yang ada di sheet bernama 'data' dan di
paste values (termasuk format numbernya) ke sheet bernama 'salinan' mulai
di range G17

lugas... jadi lebih jelas dan mudah dilacak.

Kalau antar workbook
dim wbkSumber as workbook, wbkTarget as workbook
set wbksumber=thisworkbook 'data dari workbook ini
set wbktarget=worbooks.open("fullpath dari file excel tujuan)

'copy dari workbook sumber sheet bernama 'data' area range A1:X12345, ke
workbook target di sheet bernama 'salinan' mulai range G17,
'paste values dan number format sajah
wbksumber.sheets("data").range("a1:x12345").copy
wbktarget.sheets("salinan").range("g17").pastespecial
xlpastevaluesandnumberformats
wbktarget.save 'simpan workbook target, tapi gak ditutup
wbktarget.close true 'kalau tutup workbook target tapi di save lebih dulu
sebelum ditutup
wbksumber.activate 'kalau memang workbook sumber ingin menjadi
activeworkbook karena ada workbook lainnya lagi yang sedang dibuka

Jangan diapalin, tapi ikuti alurnya. Data dari workbook x, maka sebut
workbooknya, sheet yang entu maka sbut sheets("entu") yang area range itu,
sebut areanya, dst,dst

Wassalamu'alaikum wr wb
Kid

2017-09-18 17:04 GMT+07:00 shenly_excelmania@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> asslamualakikum wr.wb
>
> halo master, shenly kembali bertanya, sekrang sya ada masalah di coding
> macro,
>
> dlu saya mendapatkan coding dari salah satu master disni, yang berbunyi
> sbb:
>
> ============================
>
> Sub cobalagiaja()
>
>
> Dim rngData As Range, lRows As Long 'variabel range data beserta
> jumlah barisnya
>
> Dim rngTarget As Range 'variabel range posisi paste
>
>
>
> ActiveSheet.Unprotect Password:="mamamintapulsa&quot;
>
>
>
> Set rngData = Range("A22").CurrentRegion.Offset(1).Resize(, 1)
> 'record data input kolom + 1 baris kosong terbawah
>
> lRows = rngData.Rows.Count - 1
> 'jumlah record
>
>
>
>
>
> Sheets("Data").Select
>
> Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range
> posisi paste di kolom yg diingikn
>
> rngData.Resize(lRows, 1).Copy 'copy
> input kolom yg dinginkn
>
> rngTarget.PasteSpecial xlPasteValues 'paste
> values di posisi target kolom yg dinginkn
>
> rngData.Offset(0, 1).Resize(lRows, 14).Copy 'copy
> input yang 2 kolom data setelah lompat 1 kolom ke kanan
>
> rngTarget.Offset(0, 1).PasteSpecial xlPasteValues 'paste
> values di posisi target kolom A lompat 2 kolom ke kanan
>
>
>
> Sheets("Form").Select
>
> Rows("23:1500").Select
>
> Selection.Delete Shift:=xlUp
>
> Range("J22:O22").Select
>
> Selection.ClearContents
>
>
>
> Range("F18").Select
>
>
>
> ActiveWorkbook.Save
>
>
> End Sub
>
> =================
>
> coding tersebut jika sya masukan di Command Buttom, akan terjadi kesalah
> recod, Seprti : data yang dipindah entah masuk ke mana, jadi hasilnya
> seperti mendelet data yg akan di pindah saja.
> Tapi ketika sya buat coding tsb di Module, maka akan berjalan sesuai dgn
> yg sya inginkn.
> kira2 itu apa ya masalahnya master? kok tidak bisa di masukin di Command
> buttom ???
>
>
>
>

Mon Sep 18, 2017 4:24 am (PDT) . Posted by:

"Odhy" odhyz83_assasaky

Dear Master,Mohon bantuannya...1. bagaimana caranya agar saya bisa menggambil data di table nama berdasarkan listbox.2. bagimana merubah setting form kalender agar update bulan saat ini.untuk lebih jelas penjelasaanya saya lampirkan filenya....
atas bantuannya saya ucapkan banyak terima kasih.
Odhy. 

Mon Sep 18, 2017 4:25 am (PDT) . Posted by:

"Odhy" odhyz83_assasaky

Mohon maaf saya lampirkan ulang filenya....

Terima Kasih atas pencerahannya,   Odhy.

----- Forwarded Message ----- From: Odhy <odhyz83_assasaky@yahoo.com>To: BeExcel <belajar-excel@yahoogroups.com>Sent: ‎Monday‎, ‎September‎ ‎18‎, ‎2017‎ ‎01‎:‎50‎:‎29‎ ‎PMSubject: Help : List box by multiple table name
Dear Master,Mohon bantuannya...1. bagaimana caranya agar saya bisa menggambil data di table nama berdasarkan listbox.2. bagimana merubah setting form kalender agar update bulan saat ini.untuk lebih jelas penjelasaanya saya lampirkan filenya....
atas bantuannya saya ucapkan banyak terima kasih.
Odhy. 

Mon Sep 18, 2017 7:09 am (PDT) . Posted by:

"nangagus"

Dear Ody; Coba beberapa cekrip diubah:

1.  Cekrip pada UserForm_Activate()

dibuang bagian pendefinisian combobox2:

Me.ComboBox1.Clear
For Each cPart In ws.Range("area_MTM")
  With Me.ComboBox1
    .AddItem cPart.Value
    End With
 Next cPart

2. Buat Cekrip Baru pada ComboBox2_Change()

Private Sub ComboBox2_Change()
Dim cPart As Range
Dim ws As Worksheet
Dim nmProduct As String
Set ws = Worksheets("dbase")
Dim addr As String
addr = "area_" & ComboBox2.Value
Me.ComboBox1.Clear
For Each cPart In ws.Range(addr)
  With Me.ComboBox1
    .AddItem cPart.Value
    End With
 Next cPart
End Sub

3. Ubah Cekrip ComboBox1_Change() menjadi:

Dim adds As String
Dim a As Integer
a = ComboBox2.ListIndex
adds = "area_" & ComboBox2.Value
    Channel = Me.ComboBox1.Value
With Range(adds)
           Set c = .Find(Channel, LookIn:=xlValues)
        If Not c Is Nothing Then
            baris = c.Row
            Me.TextBox9.Value = Worksheets("dbase").Cells(baris,a * 5 +
2).Value
        Else
            MsgBox "Maaf, Channel Tidak ditemukan.."
        End If
    End With

    Jkendaraan = Me.ComboBox1.Value
    With Range(adds)
        Set c = .Find(Jkendaraan, LookIn:=xlValues)
        If Not c Is Nothing Then
            baris = c.Row
            Me.TextBox10.Value = Worksheets("dbase").Cells(baris, a * 5
+ 3).Value
        Else
            MsgBox "Maaf, Channel Tidak ditemukan.."
        End If
    End With

    npolisi = Me.ComboBox1.Value
    With Range(adds)
        Set c = .Find(npolisi, LookIn:=xlValues)
        If Not c Is Nothing Then
            baris = c.Row
            Me.TextBox11.Value = Worksheets("dbase").Cells(baris, a * 5
+ 4).Value
        Else
            MsgBox "Maaf, Channel Tidak ditemukan.."
        End If
    End With
End Sub

Salam

NangAgus

On 18/09/2017 14:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel] wrote:
> Mohon maaf saya lampirkan ulang filenya....
>
> Terima Kasih atas pencerahannya,   Odhy.
>
>
> ----- Forwarded Message -----
> *From:* Odhy <odhyz83_assasaky@yahoo.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* ‎Monday‎, ‎September‎ ‎18‎, ‎2017‎ ‎01‎:‎50‎:‎29‎ ‎PM
> *Subject:* Help : List box by multiple table name
>
> Dear Master,
> Mohon bantuannya...
> 1. bagaimana caranya agar saya bisa menggambil data di table nama
> berdasarkan listbox.
> 2. bagimana merubah setting form kalender agar update bulan saat ini.
> untuk lebih jelas penjelasaanya saya lampirkan filenya....
>
> atas bantuannya saya ucapkan banyak terima kasih.
>
> Odhy.
>
>
>

Mon Sep 18, 2017 8:35 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Odhy,

1. Tentang combobox berjenjang dengan sumber data yang sudah dibuatkan nama
range.
> Coba disempatkan melihat coretan tentang combobox yang dimulai dari sini
<http://b-excel.blogspot.co.id/2014/02/belajarvba-102-combobox-01.html>.
> Pada name manager, ada 3 nama range yang akan dijadikan isi combobox1,
berdasar isian di combobox2.
> Nama range tersebut diawali teks 'Area_' diikuti teks pilihan di combobox2
> User memilih combobox2 lebih dulu, lalu daftar dalam combobox1
menyesuaikan sesuai pilihan user di combobox2.

A. Nama range yang diawali 'Area_' hanya berisi 1 kolom
> ini satu kerugian karena combobox maupun listbox mampu menerima
banyak kolom.
> jadi, ubah formula refers to dari setiap nama range dengan awalan
'Area_' agar melingkupi 4 kolom dan baris yang tepat.
> contoh untuk nama range Area_DPS memiliki isi formula refers to :
=OFFSET(dbase!$F$2,1,0,COUNTA(dbase!$F:$F)-2,4)

B. jika combobox2 diganti pilihannya, maka combobox1 berubah daftar
pilihannya
> artinya, combobox2 event change (combobox2 berubah nilai nya) diisi
dengan baris perintah untuk mengisi daftar pilihan di combobox1.
> begini bunyinya :
combobox1.listindex= -1 'kosongkan nilai di combobox1
if combobox2.listindex<>-1 then 'combobox2 ada item yang
dipilih
combobox1.rowsource= "Area_" &
combobox2.text 'sumber data untuk daftar pilihan ditentukan baru
else

combobox1.rowsource=vbnullstring
'daftar pilihan dikosongkan (tanpa sumber data apapun)
endif

C. jika combobox1 diganti pilihannya oleh user, maka textbox9,10,11
berurutan sama dengan urutan kolom sumber data pilihan combobox1
dim lidx as long 'variabel indeks yang dipilih user di
combobox1
lidx=combobox1.listindex 'simpan nilai indeks yang
dipilih user di combobox1
if lidx<>-1 then 'user memilih salah satu item di
combobox1, maka isi textbox9,10,11 berdasar nomor kolom, yaitu kolom 2,3,4
dari sumber data
with range( combobox.rowsource ).resize(1).offset( lidx )
'pada area range sumber data pilihan combobox1, 1 baris saja, lompat
lidx baris
textbox9.text=.cells(1,2).text 'ambil kolom
ke-2 range sumber data
textbox10.text=.cells(1,3).text 'ambil
kolom ke-2 range sumber data
textbox11.text=.cells(1,4).text 'ambil
kolom ke-2 range sumber data
end with
else 'user tidak memilih apapun, maka kosongkan textbox9,10,11
textbox9.text=vbnullstring
textbox10.text=vbnullstring
textbox11.text=vbnullstring
endif

Untuk urusan menulis ke tabel penyimpanannya, silakan disusun sendiri ya...

2. set nilai awal calendar control (properti bernama value)
> calendar control ada di userform2 dengan nama control MonthView1
> calendar control dipanggil ketika userform1 control bernama
CommandButton4 di klik.
> artinya, event click dari control bernama CommandButton4 diisi proses
mengaktifkan userform2.
userform2.show 'begini bukan ?
> ketika userform2 sudah di-load (sebelum ditampilkan kepada user, alias
masih di-memory komputer -> disebut event initialize),
dilakukan pengaturan nilai calendar control.
> buat event initialize di userform2 lalu isi dengan :
monthview1.value=now

kalau monthview1 diklik (pilih salah satu tanggal), maka nilai tanggal akan
ditulis ke userform1 control textbox13
> berarti, kalau userform1 control textbox13 sudah berisi tanggal
hasil pilihan sebelumnya, maka nilai dasar monthview bukan hari ini,
tetapi di tanggal yang ada di textbox13 userform1
> artinya, baris perintah
monthview1.value=now
di event initialize userform2 di atas harus diubah menjadi :
if len( userform1.textbox13.text ) <> 0 then 'textbox13 di
userform1 gak kosong
if isdate( userform1.textbox13.text ) then 'textbox13
di userform1 berisi suatu nilai yang dapat diubah jadi bertipe date
monthview1.value=cdate( userform1.textbox13.text
) 'monthview1 diisi nilai bertipe date dari textbox13 di userform1
else 'textbox13 di userform1 berisi nilai, tetapi gak bisa
diubah jadi bertipe date
monthview1.value=now 'jadikan nilai waktu saat
ini sebagai nilai awal monthview1
endif
else 'textbox13 di userform1 kosong
monthview1.value=now 'jadikan nilai waktu saat ini
sebagai nilai awal monthview1
endif

Regards,
Kid

2017-09-18 13:50 GMT+07:00 Odhy odhyz83_assasaky@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Master,
> Mohon bantuannya...
> 1. bagaimana caranya agar saya bisa menggambil data di table nama
> berdasarkan listbox.
> 2. bagimana merubah setting form kalender agar update bulan saat ini.
> untuk lebih jelas penjelasaanya saya lampirkan filenya....
>
> atas bantuannya saya ucapkan banyak terima kasih.
>
> Odhy.
>
>
>
>

Mon Sep 18, 2017 11:08 am (PDT) . Posted by:

"nangagus"

Dear Ody,

1. Mohon bantuannya, bagaimanat caranya agar pada saat saya memilih
listbox Area,
Misal : Area --> DPS, maka nama salesman akan mengambil nama salesman di
tabel name ("area_DPS") dan sekaligus akan lookup: chaneel, Jenis
kendaraan dan No. polisinya…

Lebih baik belajar sendiri akan menjadikan ilmu kita lebih berasa
daripada dibuatkan langsung jadi, coba belajar tulisan mas Kid mulai
dari sini
<http://b-excel.blogspot.co.id/2014/02/belajarvba-102-combobox-01.html>jika
masih ada kesulitan dapat diposting kembali

2. Bagimana mensetting Form Kalender agar yang muncul adalah bulan saat ini,

Buat cekrip form initialize di UserForm2:

Private Sub UserForm_Initialize()
MonthView1.Value = Now
End Sub

salam

GoeZ

On 18/09/2017 14:09, Odhy odhyz83_assasaky@yahoo.com [belajar-excel] wrote:
> Mohon maaf saya lampirkan ulang filenya....
>
> Terima Kasih atas pencerahannya,   Odhy.
>
>
> ----- Forwarded Message -----
> *From:* Odhy <odhyz83_assasaky@yahoo.com>
> *To:* BeExcel <belajar-excel@yahoogroups.com>
> *Sent:* ‎Monday‎, ‎September‎ ‎18‎, ‎2017‎ ‎01‎:‎50‎:‎29‎ ‎PM
> *Subject:* Help : List box by multiple table name
>
> Dear Master,
> Mohon bantuannya...
> 1. bagaimana caranya agar saya bisa menggambil data di table nama
> berdasarkan listbox.
> 2. bagimana merubah setting form kalender agar update bulan saat ini.
> untuk lebih jelas penjelasaanya saya lampirkan filenya....
>
> atas bantuannya saya ucapkan banyak terima kasih.
>
> Odhy.
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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