Rabu, 15 Juni 2016

[belajar-excel] Digest Number 3884

15 Messages

Digest #3884
1a
Filter data dengan 2 kriteria by "Warsito Ito" warsitoito14
1b
Re: Filter data dengan 2 kriteria by "Toby kenzo" tobykenzo
3
Bls: [belajar-excel] Filter data dengan 2 kriteria by "Fahmi Syaifullah" fahmisyaifullah20
4.1
Data Validation by cheivory_bridge
5a
5d
Re: Kesalahan penulisan VBA [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
6a
Re: Tools - What-if Analysis Data Table by "Mr. Kid" nmkid.family@ymail.com
8a
Re: Send Email [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

Tue Jun 14, 2016 2:40 am (PDT) . Posted by:

"Warsito Ito" warsitoito14

Selamat siang para Master,,
Saya punya permasalahan dengan pemfilter data,Sya punya data inputan harian dengan data : Bulan,Nama barang,nomor barang,Proses /Status,Yang saya tanyakan bagaimana koding macronya apa bila saya ingin memfilter data tersebut berdasarkan 3 kriteria yaitu berdasarkan kriteria Bulan, Nama part & proses.(Kriteria tersebut ada pada combobox) dan hasil filter data ditampilkan pada listbox sesuai dengan hasil pencarian
Semoga para master dapat memberikan pencerahan atau bimbingan pada sya atas permasalahan yng sy hadapiSebelum dan sesudahnya saya Ucapkan Terima kasih.
Wasalam

Ito

Tue Jun 14, 2016 4:57 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Ito,

Dikasi contohnya aja biar bisa jelas apa yg anda maksud.

TerimaKasih.

Sent from Yahoo Mail on Android

Tue Jun 14, 2016 4:25 am (PDT) . Posted by:

edo_hanggoro

Dear Master,

Bagaimana caranya agar setiap kita membuka "Sheet1" (file terlampir) maka pada data validation di sel "D2" akan selalu merujuk pada item terakhir pada list data validation ?

Terima kasih

Edo


Tue Jun 14, 2016 7:33 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Hai Edo,
Coba gunakan code VBA ini pada Event Worksheet_Activate()
Sheet1.Range("D2").Value = Sheet1.Cells(Cells(1, 1).End(xlDown).Row, 1).Value

TerimaKasih

Pada Selasa, 14 Juni 2016 16:54, "Edo_Hanggoro@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Master,

Bagaimana caranya agar setiap kita membuka "Sheet1" (file terlampir) maka pada data validation di sel "D2" akan selalu merujuk pada item terakhir pada list data validation ?

Terima kasih

Edo

#yiv9694039073 #yiv9694039073 -- #yiv9694039073ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9694039073 #yiv9694039073ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9694039073 #yiv9694039073ygrp-mkp #yiv9694039073hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9694039073 #yiv9694039073ygrp-mkp #yiv9694039073ads {margin-bottom:10px;}#yiv9694039073 #yiv9694039073ygrp-mkp .yiv9694039073ad {padding:0 0;}#yiv9694039073 #yiv9694039073ygrp-mkp .yiv9694039073ad p {margin:0;}#yiv9694039073 #yiv9694039073ygrp-mkp .yiv9694039073ad a {color:#0000ff;text-decoration:none;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ygrp-lc {font-family:Arial;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ygrp-lc #yiv9694039073hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ygrp-lc .yiv9694039073ad {margin-bottom:10px;padding:0 0;}#yiv9694039073 #yiv9694039073actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9694039073 #yiv9694039073activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9694039073 #yiv9694039073activity span {font-weight:700;}#yiv9694039073 #yiv9694039073activity span:first-child {text-transform:uppercase;}#yiv9694039073 #yiv9694039073activity span a {color:#5085b6;text-decoration:none;}#yiv9694039073 #yiv9694039073activity span span {color:#ff7900;}#yiv9694039073 #yiv9694039073activity span .yiv9694039073underline {text-decoration:underline;}#yiv9694039073 .yiv9694039073attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9694039073 .yiv9694039073attach div a {text-decoration:none;}#yiv9694039073 .yiv9694039073attach img {border:none;padding-right:5px;}#yiv9694039073 .yiv9694039073attach label {display:block;margin-bottom:5px;}#yiv9694039073 .yiv9694039073attach label a {text-decoration:none;}#yiv9694039073 blockquote {margin:0 0 0 4px;}#yiv9694039073 .yiv9694039073bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9694039073 .yiv9694039073bold a {text-decoration:none;}#yiv9694039073 dd.yiv9694039073last p a {font-family:Verdana;font-weight:700;}#yiv9694039073 dd.yiv9694039073last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9694039073 dd.yiv9694039073last p span.yiv9694039073yshortcuts {margin-right:0;}#yiv9694039073 div.yiv9694039073attach-table div div a {text-decoration:none;}#yiv9694039073 div.yiv9694039073attach-table {width:400px;}#yiv9694039073 div.yiv9694039073file-title a, #yiv9694039073 div.yiv9694039073file-title a:active, #yiv9694039073 div.yiv9694039073file-title a:hover, #yiv9694039073 div.yiv9694039073file-title a:visited {text-decoration:none;}#yiv9694039073 div.yiv9694039073photo-title a, #yiv9694039073 div.yiv9694039073photo-title a:active, #yiv9694039073 div.yiv9694039073photo-title a:hover, #yiv9694039073 div.yiv9694039073photo-title a:visited {text-decoration:none;}#yiv9694039073 div#yiv9694039073ygrp-mlmsg #yiv9694039073ygrp-msg p a span.yiv9694039073yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9694039073 .yiv9694039073green {color:#628c2a;}#yiv9694039073 .yiv9694039073MsoNormal {margin:0 0 0 0;}#yiv9694039073 o {font-size:0;}#yiv9694039073 #yiv9694039073photos div {float:left;width:72px;}#yiv9694039073 #yiv9694039073photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9694039073 #yiv9694039073photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9694039073 #yiv9694039073reco-category {font-size:77%;}#yiv9694039073 #yiv9694039073reco-desc {font-size:77%;}#yiv9694039073 .yiv9694039073replbq {margin:4px;}#yiv9694039073 #yiv9694039073ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9694039073 #yiv9694039073ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9694039073 #yiv9694039073ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9694039073 #yiv9694039073ygrp-mlmsg select, #yiv9694039073 input, #yiv9694039073 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9694039073 #yiv9694039073ygrp-mlmsg pre, #yiv9694039073 code {font:115% monospace;}#yiv9694039073 #yiv9694039073ygrp-mlmsg * {line-height:1.22em;}#yiv9694039073 #yiv9694039073ygrp-mlmsg #yiv9694039073logo {padding-bottom:10px;}#yiv9694039073 #yiv9694039073ygrp-msg p a {font-family:Verdana;}#yiv9694039073 #yiv9694039073ygrp-msg p#yiv9694039073attach-count span {color:#1E66AE;font-weight:700;}#yiv9694039073 #yiv9694039073ygrp-reco #yiv9694039073reco-head {color:#ff7900;font-weight:700;}#yiv9694039073 #yiv9694039073ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ov li a {font-size:130%;text-decoration:none;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9694039073 #yiv9694039073ygrp-sponsor #yiv9694039073ov ul {margin:0;padding:0 0 0 8px;}#yiv9694039073 #yiv9694039073ygrp-text {font-family:Georgia;}#yiv9694039073 #yiv9694039073ygrp-text p {margin:0 0 1em 0;}#yiv9694039073 #yiv9694039073ygrp-text tt {font-size:120%;}#yiv9694039073 #yiv9694039073ygrp-vital ul li:last-child {border-right:none !important;}#yiv9694039073

Tue Jun 14, 2016 12:25 pm (PDT) . Posted by:

"Edo Hanggoro" edo_hanggoro

Dear Tobi,
Terima kasih atas bantuannya untuk kode VBA yang anda berikan. Saya ingin menanyakan satu hal lagi mengenai kode VBA tersebut jika seandainya listnya berada di lain sheet, bagaimana dengan kode VBA-nya?
Terima kasih
Edo

On Tuesday, June 14, 2016 9:33 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Edo,
Coba gunakan code VBA ini pada Event Worksheet_Activate()
Sheet1.Range("D2").Value = Sheet1.Cells(Cells(1, 1).End(xlDown).Row, 1).Value

TerimaKasih

Pada Selasa, 14 Juni 2016 16:54, "Edo_Hanggoro@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Master,

Bagaimana caranya agar setiap kita membuka "Sheet1" (file terlampir) maka pada data validation di sel "D2" akan selalu merujuk pada item terakhir pada list data validation ?

Terima kasih

Edo

#yiv2561252765 #yiv2561252765 -- #yiv2561252765ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2561252765 #yiv2561252765ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2561252765 #yiv2561252765ygrp-mkp #yiv2561252765hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2561252765 #yiv2561252765ygrp-mkp #yiv2561252765ads {margin-bottom:10px;}#yiv2561252765 #yiv2561252765ygrp-mkp .yiv2561252765ad {padding:0 0;}#yiv2561252765 #yiv2561252765ygrp-mkp .yiv2561252765ad p {margin:0;}#yiv2561252765 #yiv2561252765ygrp-mkp .yiv2561252765ad a {color:#0000ff;text-decoration:none;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ygrp-lc {font-family:Arial;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ygrp-lc #yiv2561252765hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ygrp-lc .yiv2561252765ad {margin-bottom:10px;padding:0 0;}#yiv2561252765 #yiv2561252765actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2561252765 #yiv2561252765activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2561252765 #yiv2561252765activity span {font-weight:700;}#yiv2561252765 #yiv2561252765activity span:first-child {text-transform:uppercase;}#yiv2561252765 #yiv2561252765activity span a {color:#5085b6;text-decoration:none;}#yiv2561252765 #yiv2561252765activity span span {color:#ff7900;}#yiv2561252765 #yiv2561252765activity span .yiv2561252765underline {text-decoration:underline;}#yiv2561252765 .yiv2561252765attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2561252765 .yiv2561252765attach div a {text-decoration:none;}#yiv2561252765 .yiv2561252765attach img {border:none;padding-right:5px;}#yiv2561252765 .yiv2561252765attach label {display:block;margin-bottom:5px;}#yiv2561252765 .yiv2561252765attach label a {text-decoration:none;}#yiv2561252765 blockquote {margin:0 0 0 4px;}#yiv2561252765 .yiv2561252765bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2561252765 .yiv2561252765bold a {text-decoration:none;}#yiv2561252765 dd.yiv2561252765last p a {font-family:Verdana;font-weight:700;}#yiv2561252765 dd.yiv2561252765last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2561252765 dd.yiv2561252765last p span.yiv2561252765yshortcuts {margin-right:0;}#yiv2561252765 div.yiv2561252765attach-table div div a {text-decoration:none;}#yiv2561252765 div.yiv2561252765attach-table {width:400px;}#yiv2561252765 div.yiv2561252765file-title a, #yiv2561252765 div.yiv2561252765file-title a:active, #yiv2561252765 div.yiv2561252765file-title a:hover, #yiv2561252765 div.yiv2561252765file-title a:visited {text-decoration:none;}#yiv2561252765 div.yiv2561252765photo-title a, #yiv2561252765 div.yiv2561252765photo-title a:active, #yiv2561252765 div.yiv2561252765photo-title a:hover, #yiv2561252765 div.yiv2561252765photo-title a:visited {text-decoration:none;}#yiv2561252765 div#yiv2561252765ygrp-mlmsg #yiv2561252765ygrp-msg p a span.yiv2561252765yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2561252765 .yiv2561252765green {color:#628c2a;}#yiv2561252765 .yiv2561252765MsoNormal {margin:0 0 0 0;}#yiv2561252765 o {font-size:0;}#yiv2561252765 #yiv2561252765photos div {float:left;width:72px;}#yiv2561252765 #yiv2561252765photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2561252765 #yiv2561252765photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2561252765 #yiv2561252765reco-category {font-size:77%;}#yiv2561252765 #yiv2561252765reco-desc {font-size:77%;}#yiv2561252765 .yiv2561252765replbq {margin:4px;}#yiv2561252765 #yiv2561252765ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2561252765 #yiv2561252765ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2561252765 #yiv2561252765ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2561252765 #yiv2561252765ygrp-mlmsg select, #yiv2561252765 input, #yiv2561252765 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2561252765 #yiv2561252765ygrp-mlmsg pre, #yiv2561252765 code {font:115% monospace;}#yiv2561252765 #yiv2561252765ygrp-mlmsg * {line-height:1.22em;}#yiv2561252765 #yiv2561252765ygrp-mlmsg #yiv2561252765logo {padding-bottom:10px;}#yiv2561252765 #yiv2561252765ygrp-msg p a {font-family:Verdana;}#yiv2561252765 #yiv2561252765ygrp-msg p#yiv2561252765attach-count span {color:#1E66AE;font-weight:700;}#yiv2561252765 #yiv2561252765ygrp-reco #yiv2561252765reco-head {color:#ff7900;font-weight:700;}#yiv2561252765 #yiv2561252765ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ov li a {font-size:130%;text-decoration:none;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2561252765 #yiv2561252765ygrp-sponsor #yiv2561252765ov ul {margin:0;padding:0 0 0 8px;}#yiv2561252765 #yiv2561252765ygrp-text {font-family:Georgia;}#yiv2561252765 #yiv2561252765ygrp-text p {margin:0 0 1em 0;}#yiv2561252765 #yiv2561252765ygrp-text tt {font-size:120%;}#yiv2561252765 #yiv2561252765ygrp-vital ul li:last-child {border-right:none !important;}#yiv2561252765

Tue Jun 14, 2016 10:27 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

Hai Edo,
Codenya tinggal di ganti aja, misal di Sheet2 maka code yang ada tulisannya Sheet1 di ganti dengan Sheet2 dan seterusnya. di perhatikan juga untuk data validation, kalo datanya di kolom 2, ya di ganti di kolom 2.
TerimaKasih.

Pada Rabu, 15 Juni 2016 0:22, "Edo Hanggoro Edo_Hanggoro@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Tobi,
Terima kasih atas bantuannya untuk kode VBA yang anda berikan. Saya ingin menanyakan satu hal lagi mengenai kode VBA tersebut jika seandainya listnya berada di lain sheet, bagaimana dengan kode VBA-nya?
Terima kasih
Edo

On Tuesday, June 14, 2016 9:33 PM, "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Hai Edo,
Coba gunakan code VBA ini pada Event Worksheet_Activate()
Sheet1.Range("D2").Value = Sheet1.Cells(Cells(1, 1).End(xlDown).Row, 1).Value

TerimaKasih

Pada Selasa, 14 Juni 2016 16:54, "Edo_Hanggoro@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Dear Master,

Bagaimana caranya agar setiap kita membuka "Sheet1" (file terlampir) maka pada data validation di sel "D2" akan selalu merujuk pada item terakhir pada list data validation ?

Terima kasih

Edo

#yiv0343809837 #yiv0343809837 -- #yiv0343809837ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0343809837 #yiv0343809837ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0343809837 #yiv0343809837ygrp-mkp #yiv0343809837hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0343809837 #yiv0343809837ygrp-mkp #yiv0343809837ads {margin-bottom:10px;}#yiv0343809837 #yiv0343809837ygrp-mkp .yiv0343809837ad {padding:0 0;}#yiv0343809837 #yiv0343809837ygrp-mkp .yiv0343809837ad p {margin:0;}#yiv0343809837 #yiv0343809837ygrp-mkp .yiv0343809837ad a {color:#0000ff;text-decoration:none;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ygrp-lc {font-family:Arial;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ygrp-lc #yiv0343809837hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ygrp-lc .yiv0343809837ad {margin-bottom:10px;padding:0 0;}#yiv0343809837 #yiv0343809837actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0343809837 #yiv0343809837activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0343809837 #yiv0343809837activity span {font-weight:700;}#yiv0343809837 #yiv0343809837activity span:first-child {text-transform:uppercase;}#yiv0343809837 #yiv0343809837activity span a {color:#5085b6;text-decoration:none;}#yiv0343809837 #yiv0343809837activity span span {color:#ff7900;}#yiv0343809837 #yiv0343809837activity span .yiv0343809837underline {text-decoration:underline;}#yiv0343809837 .yiv0343809837attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0343809837 .yiv0343809837attach div a {text-decoration:none;}#yiv0343809837 .yiv0343809837attach img {border:none;padding-right:5px;}#yiv0343809837 .yiv0343809837attach label {display:block;margin-bottom:5px;}#yiv0343809837 .yiv0343809837attach label a {text-decoration:none;}#yiv0343809837 blockquote {margin:0 0 0 4px;}#yiv0343809837 .yiv0343809837bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0343809837 .yiv0343809837bold a {text-decoration:none;}#yiv0343809837 dd.yiv0343809837last p a {font-family:Verdana;font-weight:700;}#yiv0343809837 dd.yiv0343809837last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0343809837 dd.yiv0343809837last p span.yiv0343809837yshortcuts {margin-right:0;}#yiv0343809837 div.yiv0343809837attach-table div div a {text-decoration:none;}#yiv0343809837 div.yiv0343809837attach-table {width:400px;}#yiv0343809837 div.yiv0343809837file-title a, #yiv0343809837 div.yiv0343809837file-title a:active, #yiv0343809837 div.yiv0343809837file-title a:hover, #yiv0343809837 div.yiv0343809837file-title a:visited {text-decoration:none;}#yiv0343809837 div.yiv0343809837photo-title a, #yiv0343809837 div.yiv0343809837photo-title a:active, #yiv0343809837 div.yiv0343809837photo-title a:hover, #yiv0343809837 div.yiv0343809837photo-title a:visited {text-decoration:none;}#yiv0343809837 div#yiv0343809837ygrp-mlmsg #yiv0343809837ygrp-msg p a span.yiv0343809837yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0343809837 .yiv0343809837green {color:#628c2a;}#yiv0343809837 .yiv0343809837MsoNormal {margin:0 0 0 0;}#yiv0343809837 o {font-size:0;}#yiv0343809837 #yiv0343809837photos div {float:left;width:72px;}#yiv0343809837 #yiv0343809837photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0343809837 #yiv0343809837photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0343809837 #yiv0343809837reco-category {font-size:77%;}#yiv0343809837 #yiv0343809837reco-desc {font-size:77%;}#yiv0343809837 .yiv0343809837replbq {margin:4px;}#yiv0343809837 #yiv0343809837ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0343809837 #yiv0343809837ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0343809837 #yiv0343809837ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0343809837 #yiv0343809837ygrp-mlmsg select, #yiv0343809837 input, #yiv0343809837 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0343809837 #yiv0343809837ygrp-mlmsg pre, #yiv0343809837 code {font:115% monospace;}#yiv0343809837 #yiv0343809837ygrp-mlmsg * {line-height:1.22em;}#yiv0343809837 #yiv0343809837ygrp-mlmsg #yiv0343809837logo {padding-bottom:10px;}#yiv0343809837 #yiv0343809837ygrp-msg p a {font-family:Verdana;}#yiv0343809837 #yiv0343809837ygrp-msg p#yiv0343809837attach-count span {color:#1E66AE;font-weight:700;}#yiv0343809837 #yiv0343809837ygrp-reco #yiv0343809837reco-head {color:#ff7900;font-weight:700;}#yiv0343809837 #yiv0343809837ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ov li a {font-size:130%;text-decoration:none;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0343809837 #yiv0343809837ygrp-sponsor #yiv0343809837ov ul {margin:0;padding:0 0 0 8px;}#yiv0343809837 #yiv0343809837ygrp-text {font-family:Georgia;}#yiv0343809837 #yiv0343809837ygrp-text p {margin:0 0 1em 0;}#yiv0343809837 #yiv0343809837ygrp-text tt {font-size:120%;}#yiv0343809837 #yiv0343809837ygrp-vital ul li:last-child {border-right:none !important;}#yiv0343809837

Tue Jun 14, 2016 8:30 am (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

Assalamualaikum wr.wb
Pak ito. Pakai pemahaman orang newbie yaa macam saya .
Andai database ada di range A3:E40 (dengan A3 sbg header)Lalu kriteria dimasukkan di range G5:I6 (dengan G5 headernya) panjang dri range bisa disesuaikan.hasil ingin diletakkan di range G8:K8 (ini hanya untuk headernya.
maka ditulis rumus di G9 adalah=small(if(($A$4:$A$40=$G$6)*($B$4:$B$40=H6)*($C$5:$C$40=$I$6),row($A$4:$A$40)-row($A$3)),row(1:1))Jangan lupa pake tongkat magic excel ctrl + shift+Enter (ini baru menghasilkan nmr rujukan yg dicari yaa. Kalao mau mengambil data yg dicari tambahin fungsi index didepannya)index udh paham lah yaa..
Kriteria yg mnjadi logika sih if (A4:A40bla bla) sampe tanda koma ",". Harus sesuai dengan kriteria yg diinginkan. Jgn tumpang tindih karna akan mnyebabkan fungsi mnjadi #NA (hasil tidak ditemukan).
tanda asterik "*" itu bisa menggantikan fungsi and. Sama seperti ampersand "&" yg menghandel concatenate.
Fungsi row itu maksudnya jika hasil true maka akan menghasilkan nilai urut dari satu sampe data habis.row(1:1) fungsi small akan mengambil data ke 1. Jika dicopy kebawah akan otomatis menjadi row(2:2).bisa juga diSerarch digoogle excel kid masuk ke bab formula filtering data. Nah itu om kid jelasin cara filter data.
Kalao bingung pake rumus. Tab data pada bagian filter pilih advanced filter atau bisa menekan (ctrl+l) kalo salah tmbhkan shift. Centang copy to another location-)isian pertama (entah apa itu blangnya) pilih database yg pgn di filter,-)isian selanjtnya (criteria kalo gk salah) blok yg jadi kriteria (kalo dari dta di atas G5:I6) inget harus sama headernya yak.
-)isian ke tiga itu klik di G8:K8 (untuk bagian headernya keseluruhan agar sih advance filter memfilter keseluruhan database) Klik ok.. muncul deh 
bingung yaa. Maklum lah baru blajar saya juga pak ito. :)kalo salah berarti saya harus belajar . Mdah2an guru lain bisa menjelaskannya..
wassalam.

Dikirim dari Yahoo Mail di Android

Pada Sel, 14 Jun 2016 pada 15:25, Warsito Ito warsitoito14@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> menulis:  

Selamat siang para Master,,
Saya punya permasalahan dengan pemfilter data,Sya punya data inputan harian dengan data : Bulan,Nama barang,nomor barang,Proses /Status,Yang saya tanyakan bagaimana koding macronya apa bila saya ingin memfilter data tersebut berdasarkan 3 kriteria yaitu berdasarkan kriteria Bulan, Nama part & proses.(Kriteria tersebut ada pada combobox) dan hasil filter data ditampilkan pada listbox sesuai dengan hasil pencarian
Semoga para master dapat memberikan pencerahan atau bimbingan pada sya atas permasalahan yng sy hadapiSebelum dan sesudahnya saya Ucapkan Terima kasih.
Wasalam

Ito

Tue Jun 14, 2016 12:25 pm (PDT) . Posted by:

cheivory_bridge

Hai Para Master


Assalaamu'alaikum wr wb


Mohon pencerahannya ..


Apakah bisa jika salah satu pilihan yang ada di data validation tunggal maupun bertingkat otomatis hilang jika pilihan tersebut telah dipilih ? Jika bisa bagaimana ya caranya ?




Case terlampir




Terima kasih


wassalaamu&#39;alaikum wr wb


ari

Tue Jun 14, 2016 6:49 pm (PDT) . Posted by:

"Nang Agus"

Asalamualaikum wrahmatullah,

Kepada Member B-Excel.

Saya membuat sebuah perintah VBA. Perintah tersebut dapat dijalankan dari
sheet1 namun tidak dapat dijalankan dari sheet6, Manakah penulisan yang
salah?

Sub Etung() Dim kl As String Dim i As Integer Dim baris As Integer Dim a As
Integer Dim it As Integer Dim z As Integer Dim itu As Integer baris =
Sheet1.Range("A10000&quot;).End(xlUp).row z = 7
Sheet1.Range("Q9:Q1000").ClearContents For i = 9 To baris it = 0 For a = 1
To 11 If Sheet1.Cells(i, a + 3) < Sheet3.Cells(29 + a, 5 +
kelase(Sheet1.Cells(i, 1))) Then it = it + 1 Else End If Next a If (it
> 3 And Len(Sheet1.Cells(i, 3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i,
17) = z & Format(itu, "00") Else If (Sheet1.Cells(i, 15) <
Sheet3.Cells(41, 5 + kelase(Sheet1.Cells(i, 1))) And Len(Sheet1.Cells(i,
3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i, 17) = z &
Format(itu, "00") Else End If End If Next i End Sub
atas perhatiannya diucapkan terima kasih.
Wasalamualaikum warahmatullah.

NangAgus

Tue Jun 14, 2016 7:09 pm (PDT) . Posted by:

"Nang Agus"

Mohon maaf ada ketidak cocokan antara tulisan di email dan di file, yang
benar penulisan VBAnya:
Sub Etung()
Dim kl As String
Dim i As Integer
Dim baris As Integer
Dim a As Integer
Dim it As Integer
Dim z As Integer
Dim itu As Integer
baris = Sheet1.Range("A10000").End(xlUp).row
z = 7
Sheet1.Range("Q9:Q1000").ClearContents
For i = 9 To baris
it = 0
For a = 1 To 11
If Sheet1.Cells(i, a + 3) < *Sheet6*.Cells(39 + a, 5 +
kelase(Sheet1.Cells(i, 1))) Then
it = it + 1
Else
End If
Next a
If (it > 3 And Len(Sheet1.Cells(i, 3)) > 2) Then
itu = itu + 1
Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")
Else
If (Sheet1.Cells(i, 15) < *Sheet6*.Cells(51, 5 + kelase(Sheet1.Cells(i,
1))) And Len(Sheet1.Cells(i, 3)) > 2) Then
itu = itu + 1
Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")
Else
End If
End If
Next i
End Sub

manakah kesalahannya?
dapat dijalankan dari sheet 1 namun tidak dapat dijalankan dari sheet6.

On Wed, Jun 15, 2016 at 8:48 AM, Nang Agus nangagus@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Asalamualaikum wrahmatullah,
>
> Kepada Member B-Excel.
>
> Saya membuat sebuah perintah VBA. Perintah tersebut dapat dijalankan dari
> sheet1 namun tidak dapat dijalankan dari sheet6, Manakah penulisan yang
> salah?
>
> Sub Etung() Dim kl As String Dim i As Integer Dim baris As Integer Dim a As
> Integer Dim it As Integer Dim z As Integer Dim itu As Integer baris =
> Sheet1.Range("A10000&quot;).End(xlUp).row z = 7
> Sheet1.Range("Q9:Q1000").ClearContents For i = 9 To baris it = 0 For a =
> 1 To 11 If Sheet1.Cells(i, a + 3) < Sheet3.Cells(29 + a, 5 +
> kelase(Sheet1.Cells(i, 1))) Then it = it + 1 Else End If Next a If
> (it > 3 And Len(Sheet1.Cells(i, 3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i,
> 17) = z & Format(itu, "00") Else If (Sheet1.Cells(i, 15) <
> Sheet3.Cells(41, 5 + kelase(Sheet1.Cells(i, 1))) And Len(Sheet1.Cells(i,
> 3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i, 17) = z &
> Format(itu, "00") Else End If End If Next i End Sub
> atas perhatiannya diucapkan terima kasih.
> Wasalamualaikum warahmatullah.
>
> NangAgus
>
>
>

Tue Jun 14, 2016 10:23 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Mas Nang Agus,
Coba di tambahkan :Sheet1.Actvate sebelum code Sheet1.Range("Q9:Q1000").ClearContents
TerimaKasih.

Pada Rabu, 15 Juni 2016 9:10, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Mohon maaf ada ketidak cocokan antara tulisan di email dan di file, yang benar penulisan VBAnya:
Sub Etung()
Dim kl As String
Dim i As Integer
Dim baris As Integer
Dim a As Integer
Dim it As Integer
Dim z As Integer
Dim itu As Integer
baris = Sheet1.Range("A10000").End(xlUp).row
z = 7
Sheet1.Range("Q9:Q1000").ClearContents
For i = 9 To baris
it = 0
 For a = 1 To 11
 If Sheet1.Cells(i, a + 3) < Sheet6.Cells(39 + a, 5 + kelase(Sheet1.Cells(i, 1))) Then
 it = it + 1
 Else
 End If
 Next a
 If (it > 3 And Len(Sheet1.Cells(i, 3)) > 2) Then
  itu = itu + 1
 Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")
 Else
 If (Sheet1.Cells(i, 15) < Sheet6.Cells(51, 5 + kelase(Sheet1.Cells(i, 1))) And Len(Sheet1.Cells(i, 3)) > 2) Then
  itu = itu + 1
 Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")
 Else
 End If
 End If
 Next i
End Sub

manakah kesalahannya?
dapat dijalankan dari sheet 1 namun tidak dapat dijalankan dari sheet6.

On Wed, Jun 15, 2016 at 8:48 AM, Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Asalamualaikum wrahmatullah,

Kepada Member B-Excel.

Saya membuat sebuah perintah VBA. Perintah tersebut dapat dijalankan dari sheet1 namun tidak dapat dijalankan dari sheet6, Manakah penulisan yang salah?

Sub Etung() Dim kl As String Dim i As Integer Dim baris As Integer Dim a As Integer Dim it As Integer Dim z As Integer Dim itu As Integer baris = Sheet1.Range("A10000&quot;).End(xlUp).row z = 7 Sheet1.Range("Q9:Q1000").ClearContents For i = 9 To baris it = 0  For a = 1 To 11  If Sheet1.Cells(i, a + 3) < Sheet3.Cells(29 + a, 5 + kelase(Sheet1.Cells(i, 1))) Then  it = it + 1  Else  End If  Next a  If (it > 3 And Len(Sheet1.Cells(i, 3)) > 2) Then   itu = itu + 1  Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")  Else  If (Sheet1.Cells(i, 15) < Sheet3.Cells(41, 5 + kelase(Sheet1.Cells(i, 1))) And Len(Sheet1.Cells(i, 3)) > 2) Then   itu = itu + 1  Sheets("kopi").Cells(i, 17) = z & Format(itu, "00")  Else  End If  End If  Next i End Sub
atas perhatiannya diucapkan terima kasih.
Wasalamualaikum warahmatullah.

NangAgus

#yiv5220571794 #yiv5220571794 -- #yiv5220571794ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv5220571794 #yiv5220571794ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv5220571794 #yiv5220571794ygrp-mkp #yiv5220571794hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv5220571794 #yiv5220571794ygrp-mkp #yiv5220571794ads {margin-bottom:10px;}#yiv5220571794 #yiv5220571794ygrp-mkp .yiv5220571794ad {padding:0 0;}#yiv5220571794 #yiv5220571794ygrp-mkp .yiv5220571794ad p {margin:0;}#yiv5220571794 #yiv5220571794ygrp-mkp .yiv5220571794ad a {color:#0000ff;text-decoration:none;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ygrp-lc {font-family:Arial;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ygrp-lc #yiv5220571794hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ygrp-lc .yiv5220571794ad {margin-bottom:10px;padding:0 0;}#yiv5220571794 #yiv5220571794actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv5220571794 #yiv5220571794activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv5220571794 #yiv5220571794activity span {font-weight:700;}#yiv5220571794 #yiv5220571794activity span:first-child {text-transform:uppercase;}#yiv5220571794 #yiv5220571794activity span a {color:#5085b6;text-decoration:none;}#yiv5220571794 #yiv5220571794activity span span {color:#ff7900;}#yiv5220571794 #yiv5220571794activity span .yiv5220571794underline {text-decoration:underline;}#yiv5220571794 .yiv5220571794attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv5220571794 .yiv5220571794attach div a {text-decoration:none;}#yiv5220571794 .yiv5220571794attach img {border:none;padding-right:5px;}#yiv5220571794 .yiv5220571794attach label {display:block;margin-bottom:5px;}#yiv5220571794 .yiv5220571794attach label a {text-decoration:none;}#yiv5220571794 blockquote {margin:0 0 0 4px;}#yiv5220571794 .yiv5220571794bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv5220571794 .yiv5220571794bold a {text-decoration:none;}#yiv5220571794 dd.yiv5220571794last p a {font-family:Verdana;font-weight:700;}#yiv5220571794 dd.yiv5220571794last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv5220571794 dd.yiv5220571794last p span.yiv5220571794yshortcuts {margin-right:0;}#yiv5220571794 div.yiv5220571794attach-table div div a {text-decoration:none;}#yiv5220571794 div.yiv5220571794attach-table {width:400px;}#yiv5220571794 div.yiv5220571794file-title a, #yiv5220571794 div.yiv5220571794file-title a:active, #yiv5220571794 div.yiv5220571794file-title a:hover, #yiv5220571794 div.yiv5220571794file-title a:visited {text-decoration:none;}#yiv5220571794 div.yiv5220571794photo-title a, #yiv5220571794 div.yiv5220571794photo-title a:active, #yiv5220571794 div.yiv5220571794photo-title a:hover, #yiv5220571794 div.yiv5220571794photo-title a:visited {text-decoration:none;}#yiv5220571794 div#yiv5220571794ygrp-mlmsg #yiv5220571794ygrp-msg p a span.yiv5220571794yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv5220571794 .yiv5220571794green {color:#628c2a;}#yiv5220571794 .yiv5220571794MsoNormal {margin:0 0 0 0;}#yiv5220571794 o {font-size:0;}#yiv5220571794 #yiv5220571794photos div {float:left;width:72px;}#yiv5220571794 #yiv5220571794photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv5220571794 #yiv5220571794photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv5220571794 #yiv5220571794reco-category {font-size:77%;}#yiv5220571794 #yiv5220571794reco-desc {font-size:77%;}#yiv5220571794 .yiv5220571794replbq {margin:4px;}#yiv5220571794 #yiv5220571794ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv5220571794 #yiv5220571794ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv5220571794 #yiv5220571794ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv5220571794 #yiv5220571794ygrp-mlmsg select, #yiv5220571794 input, #yiv5220571794 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv5220571794 #yiv5220571794ygrp-mlmsg pre, #yiv5220571794 code {font:115% monospace;}#yiv5220571794 #yiv5220571794ygrp-mlmsg * {line-height:1.22em;}#yiv5220571794 #yiv5220571794ygrp-mlmsg #yiv5220571794logo {padding-bottom:10px;}#yiv5220571794 #yiv5220571794ygrp-msg p a {font-family:Verdana;}#yiv5220571794 #yiv5220571794ygrp-msg p#yiv5220571794attach-count span {color:#1E66AE;font-weight:700;}#yiv5220571794 #yiv5220571794ygrp-reco #yiv5220571794reco-head {color:#ff7900;font-weight:700;}#yiv5220571794 #yiv5220571794ygrp-reco {margin-bottom:20px;padding:0px;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ov li a {font-size:130%;text-decoration:none;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv5220571794 #yiv5220571794ygrp-sponsor #yiv5220571794ov ul {margin:0;padding:0 0 0 8px;}#yiv5220571794 #yiv5220571794ygrp-text {font-family:Georgia;}#yiv5220571794 #yiv5220571794ygrp-text p {margin:0 0 1em 0;}#yiv5220571794 #yiv5220571794ygrp-text tt {font-size:120%;}#yiv5220571794 #yiv5220571794ygrp-vital ul li:last-child {border-right:none !important;}#yiv5220571794

Wed Jun 15, 2016 12:55 am (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Nang,

Biasanya hal seperti ini terjadi jika ada background process yang bekerja
saat kode VBA sedang dalam proses.
Biasanya juga, mengatur Application.ScreenUpdating di set False di awal
proses kemudian mengembalikannya ke True sebelum proses selesai (mencapai
end sub), dapat mencegah background process seperti itu. Lagi pula, set
screenupdating juga dapat mempercepat proses kerja VBA karena mencegah
redraw layar.

Andai penggunaan screenupdating tidak menyelesaikan masalah, maka perlu
dicari penyebabnya. Misal, jika penyebabnya adalah formula yang berantai
panjang, maka dapat menggunakan setting calculation untuk di manual lebih
dulu, baru di automatic lagi sesaat sebelum proses selesai. Setting
calculation ini juga dapat mempercepat kerja VBA bila VBA tidak membutuhkan
kalkulasi Excel.

Terkadang, event di sebuah worksheet atau workbook yang membuat proses
berbelok sejenak tapi tidak kembali ke tempat semula. Properti EnableEvents
yang di set False sebelum proses dan dikembalikan True sesaat akan selesai
dapat mencegah hal ini. Bila events nya adalah milik sebuah activex
control, maka perlu cara yang sedikit berbeda untuk mencegah bekerjanya
events.

Terkadang juga, background process menghasilkan pesan sesuatu di layar yang
membutuhkan respon, sehingga proses terhenti. Untuk hal ini, properti
DisplayAlerts yang di set False dan dikembalikan True diakhir proses dapat
digunakan.

Jadi, bila sering dilihat, biasanya ada blok yang berbunyi begini di awal
prosedur :

with application
.screenupdating=false
.enableevents=false
.displayalerts=false
.calculation=xlcalculationmanual 'KHUSUS jika kalkulasi oleh Excel
tidak dibutuhkan dalam proses VBA
end with

dan diakhir proses (sebelum End Sub atau semacamnya) ada blok pengaktifan
kembali seperti :
with application
.calculation=xlcalculationautomatic 'KHUSUS jika di atas ada
pengaturan calculation ke manual
.enableevents=false
.screenupdating=false
.displayalerts=falseend with
end with

Dua blok itu bukan untuk mempercepat proses VBA yang terkadang tidak
dibutuhkan.
Tapi 2 blok itu memiliki fungsi khusus yang sekilas telah dijabarkan di
atas sana.
Karena fungsi-fungsi khusus tersebutlah maka bisa dikatakan proses menjadi
lebih cepat.

Jadi, sekali lagi, 2 blok itu BUKAN untuk mempercepat kerja VBA, TETAPI,
karena 2 blok itu menonaktifkan hal-hal yang bisa menganggu proses maka
proses VBA menjadi lebih cepat.

----------
kalau hal di atas masih belum bisa menyelesaikan masalah, berarti perlu
dicoba *ditambahkan *proses untuk melokalisir kerja. Yaitu dengan melakukan
proses dari luar sheet tersebut. Misalnya dengan mengaktifkan sheet lain
lebih dulu, barulah nanti kembali ke sheet tersebut saat selesai.
----------

oh iya, conditional formatting termasuk di dalam background process. Tapi
kalau masalahnya karena conditional formatting bisa diselesaikan dengan
screenupdating.

Coba deh dicek lagi dan tidak ada ruginya mengatur lingkungan kerja dengan
2 blok di atas.

Wassalamu'alaikum wr wb
Kid

On Wed, Jun 15, 2016 at 8:48 AM, Nang Agus nangagus@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Asalamualaikum wrahmatullah,
>
> Kepada Member B-Excel.
>
> Saya membuat sebuah perintah VBA. Perintah tersebut dapat dijalankan dari
> sheet1 namun tidak dapat dijalankan dari sheet6, Manakah penulisan yang
> salah?
>
> Sub Etung() Dim kl As String Dim i As Integer Dim baris As Integer Dim a As
> Integer Dim it As Integer Dim z As Integer Dim itu As Integer baris =
> Sheet1.Range("A10000&quot;).End(xlUp).row z = 7
> Sheet1.Range("Q9:Q1000").ClearContents For i = 9 To baris it = 0 For a =
> 1 To 11 If Sheet1.Cells(i, a + 3) < Sheet3.Cells(29 + a, 5 +
> kelase(Sheet1.Cells(i, 1))) Then it = it + 1 Else End If Next a If
> (it > 3 And Len(Sheet1.Cells(i, 3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i,
> 17) = z & Format(itu, "00") Else If (Sheet1.Cells(i, 15) <
> Sheet3.Cells(41, 5 + kelase(Sheet1.Cells(i, 1))) And Len(Sheet1.Cells(i,
> 3)) > 2) Then itu = itu + 1 Sheets("kopi").Cells(i, 17) = z &
> Format(itu, "00") Else End If End If Next i End Sub
> atas perhatiannya diucapkan terima kasih.
> Wasalamualaikum warahmatullah.
>
> NangAgus
>
>
>

Tue Jun 14, 2016 11:34 pm (PDT) . Posted by:

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

wa'alaikumussalam wr wb

Hai Iman,

Addin tersebut memang dibuat dengan batasan tersebut.
Sebenarnya Anda bisa menggunakan array formula block untuk kebutuhan yang
mirip demikian.

Wassalamu'alaikum wr wb
Kid

2016-06-14 16:01 GMT+07:00 idz.iman@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Master Group Belajar Excel.
>
> Assalammualaikum.
> Selamat menjalankan ibadah puasa bagi yang menjalankannya.
>
> Master, mau tanya.
> saya lagi belajar menggunakan tools "What-if Analysis" pada excel.
> pertanyaan saya, mengapa kita tidak bisa memakai referensi dari sheet yang
> berbeda?
> apakah tools itu memang hanya digunakan di dalam 1 sheet yang sama?
>
> mohon pencerahannya.
>
> Jazakallah Khairan.
>
> Salam
> Iman DZ
>
>
>
>

Wed Jun 15, 2016 12:19 am (PDT) . Posted by:

"Dede Sulaeman"

Mungkin dengan formula ini di cell F5:

=IF(H5="";"";COUNTIF(H$5:$H5;H5))

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 04 Juni 2016 11:12
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Re: Membuat Nomor Urut Otomatis Restart dengan kriteria tertentu [1 Attachment]

terima kasih ..

Saya mohon pencerahan lagi ..

kalau kolom acuan itu terdapat rumusnya , bagaimana rumus nomer urutnya ?

kasus terlampir ..

terima kasih

Wed Jun 15, 2016 1:09 am (PDT) . Posted by:

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

Hai DD,

Aneh juga kalau beneran tidak bisa kirim lebih dari 6 account imil tujuan.
Coba dicek lagi, siapa tahu menambahkan karakter titik koma diakhir daftar
akun imil tujuan atau cc bisa membuat hasil yang berbeda.

Regards,
Kid

2016-06-14 8:22 GMT+07:00 'Dede Sulaeman'
dede_sulaeman@pinusmerahabadi.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear BeExceller,
>
>
>
> Mohon masukannya soal masalah ini.
>
> Terlampir adalah file untuk email otomatis yang sedikit mengalami masalah
> untuk kolom "To" dan kolom "Cc".
>
> Email tidak akan terkirim kalau kolom "To" atau kolom "Cc" berjumlah lebih
> dari 6 account.
>
> Harapannya adalah, tidak ada batasan jumlah untuk kolom "To" atau kolom
> "Cc".
>
>
>
> Demikian dan semoga tidak kesulitan untuk memahami penjelasan dari saya,
> mohon pencerahannya terima kasih.
>
>
>
> Salam,
>
> DD
>
>
>
============================================================
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:

Poskan Komentar