Kamis, 16 Oktober 2014

[belajar-excel] Digest Number 3138

15 Messages

Digest #3138
1a
1b
2b
2c
Re: Validasi input data by "heru mulyono"
2d
Re: Validasi input data by "Bagus" bagus4bls
3
Macro Email by "Dede Sulaeman"
4a
Mencari data Untuk CheckBox by "ris ha" har1sn.excel
5
form commisioning by "Samsudin"
6d
Re: menginput data secara otomatis dengan satu key by "Mr. Kid" nmkid.family@ymail.com

Messages

Wed Oct 15, 2014 8:09 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Alhamdulillah sudah terpecahkan. Semoga Alloh Swt memberikan imbalan yang besar dari kasus yang kecil ini. Amin
Terima kasih Mas Suyono
Wa'alaikum salam
Haris


On Thursday, October 16, 2014 9:26 AM, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Assalamu'alaikum.   Coba seperti ini, semoga membantu.   Private Sub TextBox1_Change() If Len(TextBox1.Text) = TextBox1.MaxLength Then     CommandButton1.SetFocus End If End Sub   Wasalam Suyono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:59 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Pengkondisian MaxLength pada TextBox     Assalamu'alaikum.   Dear para master semua, semoga Alloh Swt selalu menjaga kesehatandan kemampuan para master, demi orang-orang seperti saya yang sangatmembutuhkan pencerahan dan solusi atas setiap kasus excel dan VBA yang sedangdihadapi. Amin   Kali ini, sangat mempunyai kasus seperti berikut Saya ingin mengkondisikan pada TextBox, jika TextBox telah terisi3 digit number maka setfokus akan langsung beralih pada CommandButton.Bagaimanakah caranya?   Saya sudah mencoba merubah MaxLength pada jendela propertiesTextBox menjadi 3 kemudian saya ketik macro seperti dibawah, tetapi tatkalaTexBox sudah berisi 3 digit number, set fokus tidak berlahi padaCommandButton1.   If TexBox1.MaxLength = true then CommandButton1.SetFocus End If   Terima kasih   Salam Haris #yiv7521547932 #yiv7521547932 -- #yiv7521547932ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7521547932 #yiv7521547932ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7521547932 #yiv7521547932ygrp-mkp #yiv7521547932hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv7521547932 #yiv7521547932ygrp-mkp #yiv7521547932ads {margin-bottom:10px;}#yiv7521547932 #yiv7521547932ygrp-mkp .yiv7521547932ad {padding:0 0;}#yiv7521547932 #yiv7521547932ygrp-mkp .yiv7521547932ad p {margin:0;}#yiv7521547932 #yiv7521547932ygrp-mkp .yiv7521547932ad a {color:#0000ff;text-decoration:none;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ygrp-lc {font-family:Arial;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ygrp-lc #yiv7521547932hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ygrp-lc .yiv7521547932ad {margin-bottom:10px;padding:0 0;}#yiv7521547932 #yiv7521547932actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7521547932 #yiv7521547932activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7521547932 #yiv7521547932activity span {font-weight:700;}#yiv7521547932 #yiv7521547932activity span:first-child {text-transform:uppercase;}#yiv7521547932 #yiv7521547932activity span a {color:#5085b6;text-decoration:none;}#yiv7521547932 #yiv7521547932activity span span {color:#ff7900;}#yiv7521547932 #yiv7521547932activity span .yiv7521547932underline {text-decoration:underline;}#yiv7521547932 .yiv7521547932attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv7521547932 .yiv7521547932attach div a {text-decoration:none;}#yiv7521547932 .yiv7521547932attach img {border:none;padding-right:5px;}#yiv7521547932 .yiv7521547932attach label {display:block;margin-bottom:5px;}#yiv7521547932 .yiv7521547932attach label a {text-decoration:none;}#yiv7521547932 blockquote {margin:0 0 0 4px;}#yiv7521547932 .yiv7521547932bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv7521547932 .yiv7521547932bold a {text-decoration:none;}#yiv7521547932 dd.yiv7521547932last p a {font-family:Verdana;font-weight:700;}#yiv7521547932 dd.yiv7521547932last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7521547932 dd.yiv7521547932last p span.yiv7521547932yshortcuts {margin-right:0;}#yiv7521547932 div.yiv7521547932attach-table div div a {text-decoration:none;}#yiv7521547932 div.yiv7521547932attach-table {width:400px;}#yiv7521547932 div.yiv7521547932file-title a, #yiv7521547932 div.yiv7521547932file-title a:active, #yiv7521547932 div.yiv7521547932file-title a:hover, #yiv7521547932 div.yiv7521547932file-title a:visited {text-decoration:none;}#yiv7521547932 div.yiv7521547932photo-title a, #yiv7521547932 div.yiv7521547932photo-title a:active, #yiv7521547932 div.yiv7521547932photo-title a:hover, #yiv7521547932 div.yiv7521547932photo-title a:visited {text-decoration:none;}#yiv7521547932 div#yiv7521547932ygrp-mlmsg #yiv7521547932ygrp-msg p a span.yiv7521547932yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7521547932 .yiv7521547932green {color:#628c2a;}#yiv7521547932 .yiv7521547932MsoNormal {margin:0 0 0 0;}#yiv7521547932 o {font-size:0;}#yiv7521547932 #yiv7521547932photos div {float:left;width:72px;}#yiv7521547932 #yiv7521547932photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv7521547932 #yiv7521547932photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7521547932 #yiv7521547932reco-category {font-size:77%;}#yiv7521547932 #yiv7521547932reco-desc {font-size:77%;}#yiv7521547932 .yiv7521547932replbq {margin:4px;}#yiv7521547932 #yiv7521547932ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv7521547932 #yiv7521547932ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7521547932 #yiv7521547932ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv7521547932 #yiv7521547932ygrp-mlmsg select, #yiv7521547932 input, #yiv7521547932 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv7521547932 #yiv7521547932ygrp-mlmsg pre, #yiv7521547932 code {font:115% monospace;}#yiv7521547932 #yiv7521547932ygrp-mlmsg * {line-height:1.22em;}#yiv7521547932 #yiv7521547932ygrp-mlmsg #yiv7521547932logo {padding-bottom:10px;}#yiv7521547932 #yiv7521547932ygrp-msg p a {font-family:Verdana;}#yiv7521547932 #yiv7521547932ygrp-msg p#yiv7521547932attach-count span {color:#1E66AE;font-weight:700;}#yiv7521547932 #yiv7521547932ygrp-reco #yiv7521547932reco-head {color:#ff7900;font-weight:700;}#yiv7521547932 #yiv7521547932ygrp-reco {margin-bottom:20px;padding:0px;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ov li a {font-size:130%;text-decoration:none;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv7521547932 #yiv7521547932ygrp-sponsor #yiv7521547932ov ul {margin:0;padding:0 0 0 8px;}#yiv7521547932 #yiv7521547932ygrp-text {font-family:Georgia;}#yiv7521547932 #yiv7521547932ygrp-text p {margin:0 0 1em 0;}#yiv7521547932 #yiv7521547932ygrp-text tt {font-size:120%;}#yiv7521547932 #yiv7521547932ygrp-vital ul li:last-child {border-right:none !important;}#yiv7521547932

Wed Oct 15, 2014 8:30 pm (PDT) . Posted by:

"ris ha" har1sn.excel

Ehhh bentar ding, ada 1 lagi yang ingin saya tanyakan.
Adakah Macronya untuk berpindah dari TextBox1 ke CommandButton1 dengan cara tekan TAB. Artinya dari TextBox saya mau berpindah ke CommandButton dengan cara tekan tombol TAB. Yang saya alami dari TextBox1 > saya tekan TAB > malah pindah ke TextBox2, sesuai urutan pada saat saya buat aplikasinya.
Terima kasih
Salam
Haris


On Thursday, October 16, 2014 10:02 AM, ris ha <har1sn.excel@yahoo.com> wrote:


Alhamdulillah sudah terpecahkan. Semoga Alloh Swt memberikan imbalan yang besar dari kasus yang kecil ini. Amin
Terima kasih Mas Suyono
Wa'alaikum salam
Haris


On Thursday, October 16, 2014 9:26 AM, "SUYONO reza.suyono@lge.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Assalamu'alaikum.   Coba seperti ini, semoga membantu.   Private Sub TextBox1_Change() If Len(TextBox1.Text) = TextBox1.MaxLength Then     CommandButton1.SetFocus End If End Sub   Wasalam Suyono From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:59 AM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Pengkondisian MaxLength pada TextBox     Assalamu'alaikum.   Dear para master semua, semoga Alloh Swt selalu menjaga kesehatandan kemampuan para master, demi orang-orang seperti saya yang sangatmembutuhkan pencerahan dan solusi atas setiap kasus excel dan VBA yang sedangdihadapi. Amin   Kali ini, sangat mempunyai kasus seperti berikut Saya ingin mengkondisikan pada TextBox, jika TextBox telah terisi3 digit number maka setfokus akan langsung beralih pada CommandButton.Bagaimanakah caranya?   Saya sudah mencoba merubah MaxLength pada jendela propertiesTextBox menjadi 3 kemudian saya ketik macro seperti dibawah, tetapi tatkalaTexBox sudah berisi 3 digit number, set fokus tidak berlahi padaCommandButton1.   If TexBox1.MaxLength = true then CommandButton1.SetFocus End If   Terima kasih   Salam Haris #yiv9969815438 -- #yiv9969815438ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9969815438 #yiv9969815438ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9969815438 #yiv9969815438ygrp-mkp #yiv9969815438hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9969815438 #yiv9969815438ygrp-mkp #yiv9969815438ads {margin-bottom:10px;}#yiv9969815438 #yiv9969815438ygrp-mkp .yiv9969815438ad {padding:0 0;}#yiv9969815438 #yiv9969815438ygrp-mkp .yiv9969815438ad p {margin:0;}#yiv9969815438 #yiv9969815438ygrp-mkp .yiv9969815438ad a {color:#0000ff;text-decoration:none;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ygrp-lc {font-family:Arial;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ygrp-lc #yiv9969815438hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ygrp-lc .yiv9969815438ad {margin-bottom:10px;padding:0 0;}#yiv9969815438 #yiv9969815438actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9969815438 #yiv9969815438activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9969815438 #yiv9969815438activity span {font-weight:700;}#yiv9969815438 #yiv9969815438activity span:first-child {text-transform:uppercase;}#yiv9969815438 #yiv9969815438activity span a {color:#5085b6;text-decoration:none;}#yiv9969815438 #yiv9969815438activity span span {color:#ff7900;}#yiv9969815438 #yiv9969815438activity span .yiv9969815438underline {text-decoration:underline;}#yiv9969815438 .yiv9969815438attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9969815438 .yiv9969815438attach div a {text-decoration:none;}#yiv9969815438 .yiv9969815438attach img {border:none;padding-right:5px;}#yiv9969815438 .yiv9969815438attach label {display:block;margin-bottom:5px;}#yiv9969815438 .yiv9969815438attach label a {text-decoration:none;}#yiv9969815438 blockquote {margin:0 0 0 4px;}#yiv9969815438 .yiv9969815438bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9969815438 .yiv9969815438bold a {text-decoration:none;}#yiv9969815438 dd.yiv9969815438last p a {font-family:Verdana;font-weight:700;}#yiv9969815438 dd.yiv9969815438last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9969815438 dd.yiv9969815438last p span.yiv9969815438yshortcuts {margin-right:0;}#yiv9969815438 div.yiv9969815438attach-table div div a {text-decoration:none;}#yiv9969815438 div.yiv9969815438attach-table {width:400px;}#yiv9969815438 div.yiv9969815438file-title a, #yiv9969815438 div.yiv9969815438file-title a:active, #yiv9969815438 div.yiv9969815438file-title a:hover, #yiv9969815438 div.yiv9969815438file-title a:visited {text-decoration:none;}#yiv9969815438 div.yiv9969815438photo-title a, #yiv9969815438 div.yiv9969815438photo-title a:active, #yiv9969815438 div.yiv9969815438photo-title a:hover, #yiv9969815438 div.yiv9969815438photo-title a:visited {text-decoration:none;}#yiv9969815438 div#yiv9969815438ygrp-mlmsg #yiv9969815438ygrp-msg p a span.yiv9969815438yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9969815438 .yiv9969815438green {color:#628c2a;}#yiv9969815438 .yiv9969815438MsoNormal {margin:0 0 0 0;}#yiv9969815438 o {font-size:0;}#yiv9969815438 #yiv9969815438photos div {float:left;width:72px;}#yiv9969815438 #yiv9969815438photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9969815438 #yiv9969815438photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9969815438 #yiv9969815438reco-category {font-size:77%;}#yiv9969815438 #yiv9969815438reco-desc {font-size:77%;}#yiv9969815438 .yiv9969815438replbq {margin:4px;}#yiv9969815438 #yiv9969815438ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9969815438 #yiv9969815438ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9969815438 #yiv9969815438ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9969815438 #yiv9969815438ygrp-mlmsg select, #yiv9969815438 input, #yiv9969815438 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9969815438 #yiv9969815438ygrp-mlmsg pre, #yiv9969815438 code {font:115% monospace;}#yiv9969815438 #yiv9969815438ygrp-mlmsg * {line-height:1.22em;}#yiv9969815438 #yiv9969815438ygrp-mlmsg #yiv9969815438logo {padding-bottom:10px;}#yiv9969815438 #yiv9969815438ygrp-msg p a {font-family:Verdana;}#yiv9969815438 #yiv9969815438ygrp-msg p#yiv9969815438attach-count span {color:#1E66AE;font-weight:700;}#yiv9969815438 #yiv9969815438ygrp-reco #yiv9969815438reco-head {color:#ff7900;font-weight:700;}#yiv9969815438 #yiv9969815438ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ov li a {font-size:130%;text-decoration:none;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9969815438 #yiv9969815438ygrp-sponsor #yiv9969815438ov ul {margin:0;padding:0 0 0 8px;}#yiv9969815438 #yiv9969815438ygrp-text {font-family:Georgia;}#yiv9969815438 #yiv9969815438ygrp-text p {margin:0 0 1em 0;}#yiv9969815438 #yiv9969815438ygrp-text tt {font-size:120%;}#yiv9969815438 #yiv9969815438ygrp-vital ul li:last-child {border-right:none !important;}#yiv9969815438

Wed Oct 15, 2014 8:36 pm (PDT) . Posted by:

"Nang Agus"

Coba dibuka UserForm, kemudian klik *V*iew, T*a*b Order.

On Thu, Oct 16, 2014 at 10:11 AM, ris ha har1sn.excel@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Ehhh bentar ding, ada 1 lagi yang ingin saya tanyakan.
>
> Adakah Macronya untuk berpindah dari TextBox1 ke CommandButton1 dengan
> cara tekan TAB. Artinya dari TextBox saya mau berpindah ke CommandButton
> dengan cara tekan tombol TAB. Yang saya alami dari TextBox1 > saya tekan
> TAB > malah pindah ke TextBox2, sesuai urutan pada saat saya buat
> aplikasinya.
>
> Terima kasih
>
> Salam
> Haris
>
>
> On Thursday, October 16, 2014 10:02 AM, ris ha <har1sn.excel@yahoo.com>
> wrote:
>
>
> Alhamdulillah sudah terpecahkan. Semoga Alloh Swt memberikan imbalan yang
> besar dari kasus yang kecil ini. Amin
>
> Terima kasih Mas Suyono
>
> Wa'alaikum salam
> Haris
>
>
> On Thursday, October 16, 2014 9:26 AM, "SUYONO reza.suyono@lge.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Assalamu'alaikum.
>
> Coba seperti ini, semoga membantu.
>
> Private Sub TextBox1_Change()
> If Len(TextBox1.Text) = TextBox1.MaxLength Then
> CommandButton1.SetFocus
> End If
> End Sub
>
> Wasalam
> Suyono
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, October 16, 2014 8:59 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Pengkondisian MaxLength pada TextBox
>
>
> Assalamu'alaikum.
>
> Dear para master semua, semoga Alloh Swt selalu menjaga kesehatan dan
> kemampuan para master, demi orang-orang seperti saya yang sangat
> membutuhkan pencerahan dan solusi atas setiap kasus excel dan VBA yang
> sedang dihadapi. Amin
>
> Kali ini, sangat mempunyai kasus seperti berikut
> Saya ingin mengkondisikan pada TextBox, jika TextBox telah terisi 3
> digit number maka setfokus akan langsung beralih pada CommandButton.
> Bagaimanakah caranya?
>
> Saya sudah mencoba merubah MaxLength pada jendela properties TextBox
> menjadi 3 kemudian saya ketik macro seperti dibawah, tetapi tatkala TexBox
> sudah berisi 3 digit number, set fokus tidak berlahi pada CommandButton1.
>
> *If TexBox1.MaxLength = true then*
> *CommandButton1.SetFocus*
> *End If*
>
> Terima kasih
>
> Salam
> Haris
>
>
>
>
>
>

Wed Oct 15, 2014 8:30 pm (PDT) . Posted by:

"heru mulyono"

TerimaKasih Mas Nang Agus atas bantuannya.
Memang seperti itu yang saya maksud.
sekali lagi maturnuwun.

Pada 16 Oktober 2014 10.06, Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>

> Seperti inikah yang dimaksud?
>
> 2014-10-16 9:26 GMT+07:00 heru mulyono hmulyono24@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Yth, para pakar excel
>> mohon pencerahannya untuk permasalahan terlampir
>>
>> terimakasih
>>
>>
>
>

Wed Oct 15, 2014 8:46 pm (PDT) . Posted by:

"Nang Agus"

Untuk Pak Heru Mulyono,

Data Validation untuk yang jumlah 100 masih keliru pak!
coba hapus ketiga tiganya dan isi sebuah angka, maka akan ditolak karena
jumlahnya tidak 100.

yang benar data validationnya adalah :
=OR(AND(COUNTA(L6:N6)<3,SUM(L6:N6)<=100),AND(COUNTA(L6:N6)=3,SUM(L6:N6)=100))
silahkan diganti

Wasalam

2014-10-16 10:26 GMT+07:00 heru mulyono hmulyono24@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> TerimaKasih Mas Nang Agus atas bantuannya.
> Memang seperti itu yang saya maksud.
> sekali lagi maturnuwun.
>
>
> Pada 16 Oktober 2014 10.06, Nang Agus nangagus@gmail.com [belajar-excel] <
> belajar-excel@yahoogroups.com> menulis:
>
>>
>>
>> Seperti inikah yang dimaksud?
>>
>> 2014-10-16 9:26 GMT+07:00 heru mulyono hmulyono24@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> Yth, para pakar excel
>>> mohon pencerahannya untuk permasalahan terlampir
>>>
>>> terimakasih
>>>
>>>
>>
>
>

Wed Oct 15, 2014 10:44 pm (PDT) . Posted by:

"heru mulyono"

Mas Nang Agus
Terimakasih atas bantuannya...

setelah saya coba rumus tadi, kemudian saya isikan
prosentasenya...teernyata masih ada masalah,
yaitu jika sel prosentase tersebut dihapus semuanya (3 kolom) kemudian
diisi dari sebelah kiri (misal, 20,30 60) seharusnya muncul peringatan
karena jumlahnya tidak sama dengan 100, tetapi setelah saya coba tidak
muncul peringatan....
demikian, sekali lagi terimakasih

Pada 16 Oktober 2014 10.46, Nang Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> menulis:

>
>
> Untuk Pak Heru Mulyono,
>
> Data Validation untuk yang jumlah 100 masih keliru pak!
> coba hapus ketiga tiganya dan isi sebuah angka, maka akan ditolak karena
> jumlahnya tidak 100.
>
> yang benar data validationnya adalah :
>
> =OR(AND(COUNTA(L6:N6)<3,SUM(L6:N6)<=100),AND(COUNTA(L6:N6)=3,SUM(L6:N6)=100))
> silahkan diganti
>
> Wasalam
>
>
>
> 2014-10-16 10:26 GMT+07:00 heru mulyono hmulyono24@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> TerimaKasih Mas Nang Agus atas bantuannya.
>> Memang seperti itu yang saya maksud.
>> sekali lagi maturnuwun.
>>
>>
>> Pada 16 Oktober 2014 10.06, Nang Agus nangagus@gmail.com [belajar-excel]
>> <belajar-excel@yahoogroups.com> menulis:
>>
>>>
>>>
>>> Seperti inikah yang dimaksud?
>>>
>>> 2014-10-16 9:26 GMT+07:00 heru mulyono hmulyono24@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> Yth, para pakar excel
>>>> mohon pencerahannya untuk permasalahan terlampir
>>>>
>>>> terimakasih
>>>>
>>>>
>>>
>>
>
>

Wed Oct 15, 2014 11:21 pm (PDT) . Posted by:

"Bagus" bagus4bls

Coba untuk rujukan rangenya dijadikan absolute dengan diberi tanda dolar "$"

=OR(AND(COUNTA($L6:$N6)<3,SUM($L6:$N6)<=100),AND(COUNTA($L6:$N6)=3,SUM($L6:$N6)=100))

Wassalam

~ Bagus ~

----- Original Message -----
From: heru mulyono hmulyono24@gmail.com [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Thursday, October 16, 2014 11:42 AM
Subject: Re: [belajar-excel] Validasi input data

Mas Nang Agus

Terimakasih atas bantuannya...

setelah saya coba rumus tadi, kemudian saya isikan prosentasenya...teernyata masih ada masalah,

yaitu jika sel prosentase tersebut dihapus semuanya (3 kolom) kemudian diisi dari sebelah kiri (misal, 20,30 60) seharusnya muncul peringatan karena jumlahnya tidak sama dengan 100, tetapi setelah saya coba tidak muncul peringatan....

demikian, sekali lagi terimakasih

Pada 16 Oktober 2014 10.46, Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

Untuk Pak Heru Mulyono,

Data Validation untuk yang jumlah 100 masih keliru pak!

coba hapus ketiga tiganya dan isi sebuah angka, maka akan ditolak karena jumlahnya tidak 100.

yang benar data validationnya adalah :
=OR(AND(COUNTA(L6:N6)<3,SUM(L6:N6)<=100),AND(COUNTA(L6:N6)=3,SUM(L6:N6)=100))

silahkan diganti

Wasalam

2014-10-16 10:26 GMT+07:00 heru mulyono hmulyono24@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

TerimaKasih Mas Nang Agus atas bantuannya.

Memang seperti itu yang saya maksud.
sekali lagi maturnuwun.

Pada 16 Oktober 2014 10.06, Nang Agus nangagus@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

Seperti inikah yang dimaksud?

2014-10-16 9:26 GMT+07:00 heru mulyono hmulyono24@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Yth, para pakar excel

mohon pencerahannya untuk permasalahan terlampir

terimakasih

Wed Oct 15, 2014 10:49 pm (PDT) . Posted by:

"Dede Sulaeman"

Dear Para Master,

Mohon bantuannya.

Saya ada sedikit masalah pada saat mau mengirimkan email beserta lampiran
dengan menggunakan macro, file ini memang saya copy paste dari PC saya di
divisi lain.

Seperti biasa saya siapkan file di drive C:\Monitoring Bad
Stock\"file".xlsx (terdapat 3 file)

Pada saat saya klik button ke dua (02 Email all file) ada peringatan
seperti gambar dibawah :

Kemudian saya klik button debug, dan muncul gambar seperti dibawah ini :

Inilah yang membuat saya bingung.

Mohon pencerahan atas kasus saya ini, saya lampirkan file "modul.doc" itu
berisi code module1-nya.

Salam,

Dede

________________________________
This e-mail and any files transmitted with it are confidential and intended
solely for the use of the individual to whom it is addressed. If you have
received this email in error please send it back to the person that sent it
to you. Any views or opinions presented are solely those of its author and
do not necessarily represent those of NABATI or any of its subsidiary
companies. Unauthorized publication, use, dissemination, forwarding,
printing or copying of this email and its associated attachments is
strictly prohibited.

Thu Oct 16, 2014 12:35 am (PDT) . Posted by:

"ris ha" har1sn.excel

Assalamu'alaikum.
Salam sukses untuk para master semua.
Kali ini, saya mau bertanya terkait mencari data, kemudian data tersebut muncul pada CheckBox yang kita buat. Saya telah membuat pendarian data, yang ditampilkan pada TextBox dengan macro spt dibawah
Dim CariProduk As String
CariProduk = Me.NoKP.Value
If Trim(CariProduk) <> "" Then
       With Sheets("ItemCOQ").Range("A2:A1048576";)
        Set C = .Find(CariProduk, LookIn:=xlValues)
                         
        If Not C Is Nothing Then
        Application.Goto C, True
        If C = "" Then
        Sheets("ItemCOQ").Range("A1").Select
        End If
        baris = C.Row
        Me.ProdukKP.Value = Worksheets("ItemCOQ").Cells(baris, 2).ValueElse
        Me.ProdukKP.Value = "Produk Tidak Ada"

Kemudian saya ingin memunculkan data pengetesan yang ditampilkan pada CheckBox sebagaimana gambar terlampir. Misal No urut 002 Item TestCheckBox Appearance tercentangCheckBox Colour ASTM tercentangCheckBox Density tercentangCheckBox Total Base Number tidak tercentangCheckBox Viscosity Kinematic 40 tidak tercentangCheckBox Viscosity Kinematic 100 tercentang
Mohon pencerahan pada para master excel semua. Terima kasih
Salam Haris

Thu Oct 16, 2014 2:07 am (PDT) . Posted by:

"SUYONO"

Assalamu'alaikum.

Pa haris berhubung tidak ada file yang di lampirkan, saya tentukan sendiri kalau nomor urut pada kolom A.


Private Sub CommandButton1_Click()
Dim CariProduk As String
CariProduk = Me.NoKP.Value
If Trim(CariProduk) <> "" Then
With Sheets("ItemCOQ").Range("A2:A1048576")
Set C = .Find(CariProduk, LookIn:=xlValues)
If Not C Is Nothing Then
Application.Goto C, True
If C = "" Then
Sheets("ItemCOQ").Range("A1").Select
End If
baris = C.Row
Me.ProdukKP.Value = Worksheets("ItemCOQ").Cells(baris, 2).Value
TestCheckBox (ActiveCell.Row)
Else
MsgBox " Nomor urut tidak ada", vbCritical

End If
End With
Else
Me.ProdukKP.Value = "Produk Tidak Ada"
End If
End Sub
' fungsi untuk pengecekan cell dengan nama checkbox
Public Function ValChb(Rng As Range, cbox As String) As Boolean
If Rng.Value = cbox Then
ValChb = True
Else
ValChb = False
End If
End Function

Sub TestCheckBox(IdxRow As Integer)
With Sheets("ItemCOQ")
CheckBox1.Value = ValChb(.Cells(IdxRow, 2), CheckBox1.Caption)
CheckBox2.Value = ValChb(.Cells(IdxRow, 3), CheckBox2.Caption)
CheckBox3.Value = ValChb(.Cells(IdxRow, 4), CheckBox3.Caption)
CheckBox4.Value = ValChb(.Cells(IdxRow, 5), CheckBox4.Caption)
CheckBox5.Value = ValChb(.Cells(IdxRow, 6), CheckBox5.Caption)
CheckBox6.Value = ValChb(.Cells(IdxRow, 6), CheckBox6.Caption)
End With
End Sub

Wasalam

Suyono
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 1:34 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mencari data Untuk CheckBox [1 Attachment]


Assalamu'alaikum.

Salam sukses untuk para master semua.

Kali ini, saya mau bertanya terkait mencari data, kemudian data tersebut muncul pada CheckBox yang kita buat. Saya telah membuat pendarian data, yang ditampilkan pada TextBox dengan macro spt dibawah

Dim CariProduk As String
CariProduk = Me.NoKP.Value
If Trim(CariProduk) <> "" Then
With Sheets("ItemCOQ").Range("A2:A1048576";)
Set C = .Find(CariProduk, LookIn:=xlValues)

If Not C Is Nothing Then
Application.Goto C, True
If C = "" Then
Sheets("ItemCOQ").Range("A1").Select
End If
baris = C.Row
Me.ProdukKP.Value = Worksheets("ItemCOQ").Cells(baris, 2).Value
Else
Me.ProdukKP.Value = "Produk Tidak Ada"

Kemudian saya ingin memunculkan data pengetesan yang ditampilkan pada CheckBox sebagaimana gambar terlampir. Misal No urut 002
Item Test
CheckBox Appearance tercentang
CheckBox Colour ASTM tercentang
CheckBox Density tercentang
CheckBox Total Base Number tidak tercentang
CheckBox Viscosity Kinematic 40 tidak tercentang
CheckBox Viscosity Kinematic 100 tercentang

Mohon pencerahan pada para master excel semua. Terima kasih

Salam Haris






Thu Oct 16, 2014 12:35 am (PDT) . Posted by:

"Samsudin"

وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ
Dear Master Excel,

Saya punya masalah sebagai berikut :

Bagaimana cara memasukan rumus untuk melihat data masuk dalam 4 kategori :
1. 6.000 jam untuk Alat umur <16.000 jam atau <4 Tahun
2. 4.000 jam untuk Alat umur >16.000 jam atau >4 Tahun
3. 200.000 km untuk Alat umur <4 Tahun yang tidak memiliki Hour Meter (HM)
4. 100.000 km untuk Alat umur >4 Tahun yang tidak memiliki Hour Meter (HM)

Sehingga kita akan mengetahui kapan unit tersebut harus decommissioning :

TANGGAL PELAKSANAAN

:



NO REGISTRASI :



PELAKSANA / ATPM

:



COMMISSIONING SELANJUTNYA

CONTROL NO

:



HM



MODEL

:



KM



HM

:



Ketentuan umur Commissioning (GBP2-SOP-PM05-REV.01 Pasal 6.17) :
1. 6.000 jam untuk Alat umur <16.000 jam atau <4 Tahun
2. 4.000 jam untuk Alat umur >16.000 jam atau >4 Tahun
3. 200.000 km untuk Alat umur <4 Tahun yang tidak memiliki Hour Meter (HM)
4. 100.000 km untuk Alat umur >4 Tahun yang tidak memiliki Hour Meter (HM)
5. Untuk alat yang terjadi kecelakaan akan di commissioning ulang tergantung dari hasil rekomendasi investigasi kecelakaan

KM

:



TAHUN PEMBUATAN

:



PEMILIK ALAT

:



KATEGORI UMUR

:





















Dan bagaimana rumus untuk membuat no registrasi otomatis berdasarkan no, bulan, tahun, dan kode perusahan dan disambung dengan kode model unit seperti : 0001/III/GBP-LV/2012

Dan terima kasih sebelumnya.
وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ
Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE952.46672A70] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: Samsudin
Sent: Thursday, October 16, 2014 10:50 AM
To: 'belajar-excel@yahoogroups.com'
Subject: RE: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]

Dear Pak Agus,

Terima kasih

Hormat saya,

Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE952.46672A70] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 10:46 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]




Wa'alaykum salam warohmatullohi wabarokatuhu

Pak Samsudin;

Sila lihat file terlampir
semoga sesuai harapan


Wassalam
~ Bagus ~

----- Original Message -----
From: Samsudin samsudin@bayan.com.sg [belajar-excel]<mailto:samsudin@bayan.com.sg%20[belajar-excel]>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, October 16, 2014 9:14 AM
Subject: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]


وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ
Dikarenakan saya baru bergabung dengan milis belajar-excel dan saya tidak mengerti bagaimana cara mengirim posting seputar masalah excel maka saya mengirim melalui email ini dan berikut masalah saya hadapi.
Data ini berasal dari pemakaian harian dan saya ingin mengetahui pemakaian barang dengan kunci pencarian GIN, dimana form tersebut tersedia hanya 15 item nama barang :
GIN

GIN14-4580

Control No

PGS400-15

Date

01-Sep-2014

Category

FIL


No

Code No

Descriprion

Qty

Unit

Cost

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15


Total

$ -

Bagaimana caranya data tersebut bisa dinput kedalam form tersebut secara otomatis dari data sebelahnya.
Sebelumnya saya mengucapkan terima kasih.
وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ
Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE952.46672A70] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:04 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] UserForm Login [1 Attachment]


Coba file ini dibuka, salah satu passwordnya "Tempe" :D

kemudian coba isi sheet form, trus simpan, lakukan bersamaan di beberapa kompie.

On 15/10/2014 22:17, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak DP,


File yang saya buat untuk di share itu ekstensinya itu .xlsm dan .xlsb, dan ternyata tidak bisa untuk di share karena mengandung unsur VBnya,
maaf pak, tapi saya belum ngerti dengan maksud bpk yang ini : " kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi ".


Mohon penjelasannya ya Pak..maklum saya belajar excel hanya tabrak sana dan tabrak sini,,hehe


Terima kasih
On Wednesday, October 15, 2014 9:40 AM, "De Premor de@premor.net<mailto:de@premor.net> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Apakah format file workbook yang di shared tersebut mendukung makro (xlsm atau xlsb) ?
Pada Shared workbook vba nya tidak dapat diedit, kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi.

Rgds,
[dp]

On 14/10/2014 18:56, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak Kid,
it works, terima kasih bnyk ya pak atas bantuannya..
o ia pak..tujuan saya buat login form adalah untuk mengkombinasikan dengan workbook yang di shared..namun ternyata worksbook yang di shared tidak dpat membaca kode VBAnya ya..
Bgamaimana caranya pak agar excel ini dpt di pakai multi user, tapi di kombinasikan dengan login form yang kita sudah buat ?
Salam,
R
On Monday, October 13, 2014 7:52 PM, "belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

trima kasih banyak Pak NangAgus untuk bantuannya..
untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,
Mohon bantuannya ya Pak..
Regards
Ronny S
On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com<mailto:nangagus@gmail.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Dear Belajar Excel,
1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub

2.
Private sub userform_terminate ()
Me.Hide
End sub
Wasalam
NangAgus
2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:

Selamat malam rekan2 pecinta excel,
Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang saya temui,
1. Bgaimana caranya agar Pada saat pertama kli userform muncul, hanya sheet
Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
2. Untuk terminate userform, saya hanya memakain VBA code seperti di bawah ini :
Private sub userform_terminate ()
Thisworkbook.close 1
End sub
Tapi pada saat saya mengisi user name dan juga password, yang ada malah excel langsung tertutup.
Mohon bantuannya ya teman2 smuanya,
Terima kasih sebelummnya..

----------------------------------------------------------



This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.



----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Thu Oct 16, 2014 12:56 am (PDT) . Posted by:

"Samsudin"

Dear Master Excel,

Pada kolom 2 rumus aslinya : =IFERROR(INDEX(D$2:D$112,SMALL(IF($M$1=$C$2:$C$112,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") diubah menjadi = =IFERROR(INDEX(D$2:D$1026,SMALL(IF($M$1=$C$2:$C$1026,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") dst disini diubah karena penambahan data, akan tetapi setelah kita cek ternyata tampilan berbeda dengan sebelum data ditambah dan rumus diubah, mohon pencerahannya.

Hormat saya,

Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE953.DF800460] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 10:46 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]




Wa'alaykum salam warohmatullohi wabarokatuhu

Pak Samsudin;

Sila lihat file terlampir
semoga sesuai harapan


Wassalam
~ Bagus ~

----- Original Message -----
From: Samsudin samsudin@bayan.com.sg [belajar-excel]<mailto:samsudin@bayan.com.sg%20[belajar-excel]>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, October 16, 2014 9:14 AM
Subject: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]


وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ
Dikarenakan saya baru bergabung dengan milis belajar-excel dan saya tidak mengerti bagaimana cara mengirim posting seputar masalah excel maka saya mengirim melalui email ini dan berikut masalah saya hadapi.
Data ini berasal dari pemakaian harian dan saya ingin mengetahui pemakaian barang dengan kunci pencarian GIN, dimana form tersebut tersedia hanya 15 item nama barang :
GIN

GIN14-4580

Control No

PGS400-15

Date

01-Sep-2014

Category

FIL


No

Code No

Descriprion

Qty

Unit

Cost

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15


Total

$ -

Bagaimana caranya data tersebut bisa dinput kedalam form tersebut secara otomatis dari data sebelahnya.
Sebelumnya saya mengucapkan terima kasih.
وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ
Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE953.DF800460] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:04 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] UserForm Login [1 Attachment]


Coba file ini dibuka, salah satu passwordnya "Tempe" :D

kemudian coba isi sheet form, trus simpan, lakukan bersamaan di beberapa kompie.


On 15/10/2014 22:17, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak DP,



File yang saya buat untuk di share itu ekstensinya itu .xlsm dan .xlsb, dan ternyata tidak bisa untuk di share karena mengandung unsur VBnya,
maaf pak, tapi saya belum ngerti dengan maksud bpk yang ini : " kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi ".



Mohon penjelasannya ya Pak..maklum saya belajar excel hanya tabrak sana dan tabrak sini,,hehe



Terima kasih
On Wednesday, October 15, 2014 9:40 AM, "De Premor de@premor.net<mailto:de@premor.net> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Apakah format file workbook yang di shared tersebut mendukung makro (xlsm atau xlsb) ?
Pada Shared workbook vba nya tidak dapat diedit, kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi.

Rgds,
[dp]


On 14/10/2014 18:56, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak Kid,
it works, terima kasih bnyk ya pak atas bantuannya..
o ia pak..tujuan saya buat login form adalah untuk mengkombinasikan dengan workbook yang di shared..namun ternyata worksbook yang di shared tidak dpat membaca kode VBAnya ya..
Bgamaimana caranya pak agar excel ini dpt di pakai multi user, tapi di kombinasikan dengan login form yang kita sudah buat ?
Salam,
R
On Monday, October 13, 2014 7:52 PM, "belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

trima kasih banyak Pak NangAgus untuk bantuannya..
untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,
Mohon bantuannya ya Pak..
Regards
Ronny S
On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com<mailto:nangagus@gmail.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Dear Belajar Excel,
1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub

2.
Private sub userform_terminate ()
Me.Hide
End sub
Wasalam
NangAgus
2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:

Selamat malam rekan2 pecinta excel,
Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang saya temui,
1. Bgaimana caranya agar Pada saat pertama kli userform muncul, hanya sheet
Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
2. Untuk terminate userform, saya hanya memakain VBA code seperti di bawah ini :
Private sub userform_terminate ()
Thisworkbook.close 1
End sub
Tapi pada saat saya mengisi user name dan juga password, yang ada malah excel langsung tertutup.
Mohon bantuannya ya teman2 smuanya,
Terima kasih sebelummnya..

----------------------------------------------------------



This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.



----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Thu Oct 16, 2014 1:19 am (PDT) . Posted by:

"Bagus" bagus4bls

Pak Samsudin;

Ini adalah Array formula..
jadi setelah rumusnya dirubah jangan hanya ditekan Enter saja, tekan 3 tombol (Ctrl+Shift+Enter)

Coba pada pada M5, tekan tombol F2.
lalu tekan tombol Ctrl dan tombol Shift, jangan dilepas dulu 2 tombol tsb. (Ctrl+Shift)
Lalu tekan tombol Enter.
maka formulanya akan ada tambahan kurung kurawal {}

Oia, jika indexnya dirubah menjadi $D$2:$D$1026, maka pada row juga demikian row($C$2:$C$1026)

Wassalam

~ Bagus ~

----- Original Message -----
From: Samsudin samsudin@bayan.com.sg [belajar-excel]
To: belajar-excel@yahoogroups.com
Sent: Thursday, October 16, 2014 2:25 PM
Subject: RE: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]

Dear Master Excel,

Pada kolom 2 rumus aslinya : =IFERROR(INDEX(D$2:D$112,SMALL(IF($M$1=$C$2:$C$112,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") diubah menjadi = =IFERROR(INDEX(D$2:D$1026,SMALL(IF($M$1=$C$2:$C$1026,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") dst disini diubah karena penambahan data, akan tetapi setelah kita cek ternyata tampilan berbeda dengan sebelum data ditambah dan rumus diubah, mohon pencerahannya.

Hormat saya,

Samsudin, ST

P&M Dept Head

PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)

O: +62 542 875 860 Ext :61519 |

M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg

P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!

ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 10:46 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]



Wa'alaykum salam warohmatullohi wabarokatuhu

Pak Samsudin;

Sila lihat file terlampir

semoga sesuai harapan

Wassalam

~ Bagus ~

----- Original Message -----

From: Samsudin samsudin@bayan.com.sg [belajar-excel]

To: belajar-excel@yahoogroups.com

Sent: Thursday, October 16, 2014 9:14 AM

Subject: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]

وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ

Dikarenakan saya baru bergabung dengan milis belajar-excel dan saya tidak mengerti bagaimana cara mengirim posting seputar masalah excel maka saya mengirim melalui email ini dan berikut masalah saya hadapi.

Data ini berasal dari pemakaian harian dan saya ingin mengetahui pemakaian barang dengan kunci pencarian GIN, dimana form tersebut tersedia hanya 15 item nama barang :

GIN
GIN14-4580
Control No
PGS400-15

Date
01-Sep-2014
Category
FIL


No
Code No
Descriprion
Qty
Unit
Cost

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Total
$ -


Bagaimana caranya data tersebut bisa dinput kedalam form tersebut secara otomatis dari data sebelahnya.

Sebelumnya saya mengucapkan terima kasih.

وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ

Samsudin, ST

P&M Dept Head

PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)

O: +62 542 875 860 Ext :61519 |

M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg

P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!

ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:04 AM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] UserForm Login [1 Attachment]

Coba file ini dibuka, salah satu passwordnya "Tempe" :D

kemudian coba isi sheet form, trus simpan, lakukan bersamaan di beberapa kompie.

On 15/10/2014 22:17, belajar excell belajar.excell@yahoo.com [belajar-excel] wrote:

Pak DP,

File yang saya buat untuk di share itu ekstensinya itu .xlsm dan .xlsb, dan ternyata tidak bisa untuk di share karena mengandung unsur VBnya,

maaf pak, tapi saya belum ngerti dengan maksud bpk yang ini : " kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi ".

Mohon penjelasannya ya Pak..maklum saya belajar excel hanya tabrak sana dan tabrak sini,,hehe

Terima kasih

On Wednesday, October 15, 2014 9:40 AM, "De Premor de@premor.net [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Apakah format file workbook yang di shared tersebut mendukung makro (xlsm atau xlsb) ?
Pada Shared workbook vba nya tidak dapat diedit, kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi.

Rgds,
[dp]

On 14/10/2014 18:56, belajar excell belajar.excell@yahoo.com [belajar-excel] wrote:

Pak Kid,

it works, terima kasih bnyk ya pak atas bantuannya..

o ia pak..tujuan saya buat login form adalah untuk mengkombinasikan dengan workbook yang di shared..namun ternyata worksbook yang di shared tidak dpat membaca kode VBAnya ya..

Bgamaimana caranya pak agar excel ini dpt di pakai multi user, tapi di kombinasikan dengan login form yang kita sudah buat ?

Salam,

R

On Monday, October 13, 2014 7:52 PM, "belajar excell belajar.excell@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

trima kasih banyak Pak NangAgus untuk bantuannya..

untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,

Mohon bantuannya ya Pak..

Regards

Ronny S

On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:

Dear Belajar Excel,

1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden

end sub

2.

Private sub userform_terminate ()

Me.Hide

End sub

Wasalam

NangAgus

2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Selamat malam rekan2 pecinta excel,

Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang saya temui,

1. Bgaimana caranya agar Pada saat pertama kli userform muncul, hanya sheet
Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?

2. Untuk terminate userform, saya hanya memakain VBA code seperti di bawah ini :

Private sub userform_terminate ()

Thisworkbook.close 1

End sub

Tapi pada saat saya mengisi user name dan juga password, yang ada malah excel langsung tertutup.

Mohon bantuannya ya teman2 smuanya,

Terima kasih sebelummnya..

---------------------------------------------------------- This message (including any attachments) contains confidential information intendedfor a specific individual and purpose, and is protected by law. If you are not theintended recipient, you should delete this message and hereby notified that anydisclosure, copying, or distribution of this message (or any part thereof), or thetaking of any action based on it, is strictly prohibited. No liability or responsibilityis accepted if information or data is, for whatever reason corrupted or does not reachits intended recipient. No warranty is given that this email is free of viruses. Theviews expressed in this email are, unless otherwise stated, those of the author andnot those of the Company or its management. The Company reserves the right to monitor,intercept and block emails addressed to its users or take any other action in accordancewith its email use policy.

----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Thu Oct 16, 2014 2:24 am (PDT) . Posted by:

"Samsudin"

Dear Pak Agus,

Setelah jalankan cara seperti dibawah kenapa masih tetap tidak bisa dan bagaimana caranya menuliskan rumus array sehingga muncul kurung kurawal karena di laptop saya ini tidak bisa muncul dan perintah tekan tekan tombol F2.
lalu tekan tombol Ctrl dan tombol Shift, jangan dilepas dulu 2 tombol tsb. (Ctrl+Shift)
Lalu tekan tombol Enter, juga tidak muncul kurung kurawal.

Bagaimana cara yang bisa dilakukan pada latop saya, sebagai informasi saya menggunakan Microsoft office 2010.

Hormat saya,

Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE961.61DFF340] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 4:21 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menginput data secara otomatis dengan satu key




Pak Samsudin;

Ini adalah Array formula..
jadi setelah rumusnya dirubah jangan hanya ditekan Enter saja, tekan 3 tombol (Ctrl+Shift+Enter)

Coba pada pada M5, tekan tombol F2.
lalu tekan tombol Ctrl dan tombol Shift, jangan dilepas dulu 2 tombol tsb. (Ctrl+Shift)
Lalu tekan tombol Enter.
maka formulanya akan ada tambahan kurung kurawal {}

Oia, jika indexnya dirubah menjadi $D$2:$D$1026, maka pada row juga demikian row($C$2:$C$1026)


Wassalam
~ Bagus ~
----- Original Message -----
From: Samsudin samsudin@bayan.com.sg [belajar-excel]<mailto:samsudin@bayan.com.sg%20[belajar-excel]>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, October 16, 2014 2:25 PM
Subject: RE: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]


Dear Master Excel,
Pada kolom 2 rumus aslinya : =IFERROR(INDEX(D$2:D$112,SMALL(IF($M$1=$C$2:$C$112,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") diubah menjadi = =IFERROR(INDEX(D$2:D$1026,SMALL(IF($M$1=$C$2:$C$1026,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"") dst disini diubah karena penambahan data, akan tetapi setelah kita cek ternyata tampilan berbeda dengan sebelum data ditambah dan rumus diubah, mohon pencerahannya.
Hormat saya,
Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE961.61DFF340] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 10:46 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]



Wa'alaykum salam warohmatullohi wabarokatuhu
Pak Samsudin;
Sila lihat file terlampir
semoga sesuai harapan
Wassalam
~ Bagus ~
----- Original Message -----
From: Samsudin samsudin@bayan.com.sg [belajar-excel]<mailto:samsudin@bayan.com.sg%20[belajar-excel]>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Thursday, October 16, 2014 9:14 AM
Subject: [belajar-excel] menginput data secara otomatis dengan satu key [1 Attachment]

وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ
Dikarenakan saya baru bergabung dengan milis belajar-excel dan saya tidak mengerti bagaimana cara mengirim posting seputar masalah excel maka saya mengirim melalui email ini dan berikut masalah saya hadapi.
Data ini berasal dari pemakaian harian dan saya ingin mengetahui pemakaian barang dengan kunci pencarian GIN, dimana form tersebut tersedia hanya 15 item nama barang :
GIN

GIN14-4580

Control No

PGS400-15

Date

01-Sep-2014

Category

FIL


No

Code No

Descriprion

Qty

Unit

Cost

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15


Total

$ -

Bagaimana caranya data tersebut bisa dinput kedalam form tersebut secara otomatis dari data sebelahnya.
Sebelumnya saya mengucapkan terima kasih.
وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ
Samsudin, ST
P&M Dept Head

[cid:image001.jpg@01CFE961.61DFF340] PT. GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)
O: +62 542 875 860 Ext :61519 |
M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg<mailto:samsudin@bayan.com.sg>
P Save a tree & save energy. Don't print this e-mail unless it's really necessary. Go Green !!!
ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
From: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com> [mailto:belajar-excel@yahoogroups.com]
Sent: Thursday, October 16, 2014 8:04 AM
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Subject: Re: [belajar-excel] UserForm Login [1 Attachment]


Coba file ini dibuka, salah satu passwordnya "Tempe" :D

kemudian coba isi sheet form, trus simpan, lakukan bersamaan di beberapa kompie.



On 15/10/2014 22:17, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak DP,




File yang saya buat untuk di share itu ekstensinya itu .xlsm dan .xlsb, dan ternyata tidak bisa untuk di share karena mengandung unsur VBnya,
maaf pak, tapi saya belum ngerti dengan maksud bpk yang ini : " kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi ".




Mohon penjelasannya ya Pak..maklum saya belajar excel hanya tabrak sana dan tabrak sini,,hehe




Terima kasih
On Wednesday, October 15, 2014 9:40 AM, "De Premor de@premor.net<mailto:de@premor.net> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Apakah format file workbook yang di shared tersebut mendukung makro (xlsm atau xlsb) ?
Pada Shared workbook vba nya tidak dapat diedit, kalau ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba / formnya, kemudian baru di share lagi.

Rgds,
[dp]



On 14/10/2014 18:56, belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] wrote:

Pak Kid,
it works, terima kasih bnyk ya pak atas bantuannya..
o ia pak..tujuan saya buat login form adalah untuk mengkombinasikan dengan workbook yang di shared..namun ternyata worksbook yang di shared tidak dpat membaca kode VBAnya ya..
Bgamaimana caranya pak agar excel ini dpt di pakai multi user, tapi di kombinasikan dengan login form yang kita sudah buat ?
Salam,
R
On Monday, October 13, 2014 7:52 PM, "belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

trima kasih banyak Pak NangAgus untuk bantuannya..
untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada saat kita klik tanda x itu, workbook akan otomatis tertutup dengan sendirinya,
Mohon bantuannya ya Pak..
Regards
Ronny S
On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com<mailto:nangagus@gmail.com> [belajar-excel]" <belajar-excel@yahoogroups.com><mailto:belajar-excel@yahoogroups.com> wrote:

Dear Belajar Excel,
1. Coba dibuat pada object workbook dengan prosedur open:
Private Sub Workbook_Open()
Sheet1.visible = xlSheetVeryHidden
Sheet3.visible = xlSheetVeryHidden
Sheet4.visible = xlSheetVeryHidden
Sheet5.visible = xlSheetVeryHidden
Sheet6.visible = xlSheetVeryHidden
end sub

2.
Private sub userform_terminate ()
Me.Hide
End sub
Wasalam
NangAgus
2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com<mailto:belajar.excell@yahoo.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>:

Selamat malam rekan2 pecinta excel,
Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang saya temui,
1. Bgaimana caranya agar Pada saat pertama kli userform muncul, hanya sheet
Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
2. Untuk terminate userform, saya hanya memakain VBA code seperti di bawah ini :
Private sub userform_terminate ()
Thisworkbook.close 1
End sub
Tapi pada saat saya mengisi user name dan juga password, yang ada malah excel langsung tertutup.
Mohon bantuannya ya teman2 smuanya,
Terima kasih sebelummnya..

----------------------------------------------------------



This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.


----------------------------------------------------------



This message (including any attachments) contains confidential information intended

for a specific individual and purpose, and is protected by law. If you are not the

intended recipient, you should delete this message and hereby notified that any

disclosure, copying, or distribution of this message (or any part thereof), or the

taking of any action based on it, is strictly prohibited. No liability or responsibility

is accepted if information or data is, for whatever reason corrupted or does not reach

its intended recipient. No warranty is given that this email is free of viruses. The

views expressed in this email are, unless otherwise stated, those of the author and

not those of the Company or its management. The Company reserves the right to monitor,

intercept and block emails addressed to its users or take any other action in accordance

with its email use policy.



----------------------------------------------------------

This message (including any attachments) contains confidential information intended
for a specific individual and purpose, and is protected by law. If you are not the
intended recipient, you should delete this message and hereby notified that any
disclosure, copying, or distribution of this message (or any part thereof), or the
taking of any action based on it, is strictly prohibited. No liability or responsibility
is accepted if information or data is, for whatever reason corrupted or does not reach
its intended recipient. No warranty is given that this email is free of viruses. The
views expressed in this email are, unless otherwise stated, those of the author and
not those of the Company or its management. The Company reserves the right to monitor,
intercept and block emails addressed to its users or take any other action in accordance
with its email use policy.

Thu Oct 16, 2014 2:32 am (PDT) . Posted by:

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

Array formula ? Coba jalan-jalan kesini
<http://excel-mr-kid.blogspot.com/2011/03/array-formula-kenalan-yuuuk.html>.

2014-10-16 19:51 GMT+11:00 Samsudin samsudin@bayan.com.sg [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear Pak Agus,
>
>
>
> Setelah jalankan cara seperti dibawah kenapa masih tetap tidak bisa dan
> bagaimana caranya menuliskan rumus array sehingga muncul kurung kurawal
> karena di laptop saya ini tidak bisa muncul dan perintah tekan tekan tombol
> F2.
>
> lalu tekan tombol Ctrl dan tombol Shift, jangan dilepas dulu 2 tombol tsb.
> (Ctrl+Shift)
>
> Lalu tekan tombol Enter, juga tidak muncul kurung kurawal.
>
>
>
> Bagaimana cara yang bisa dilakukan pada latop saya, sebagai informasi saya
> menggunakan Microsoft office 2010.
>
>
>
> *Hormat saya,*
>
>
>
> *Samsudin, ST*
>
> *P&M Dept Head*
>
>
>
> *[image: Description: Description: cid:image002.jpg@01CB3234.2DD4F390] **PT.
> GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)*
>
> O: +62 542 875 860 Ext :61519 |
>
> M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg
>
> P Save a tree & save energy. Don't print this e-mail unless it's
> really necessary. Go Green !!!
>
> ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* Thursday, October 16, 2014 4:21 PM
>
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] menginput data secara otomatis dengan satu
> key
>
>
>
>
>
> 
>
> Pak Samsudin;
>
>
>
> Ini adalah Array formula..
>
> jadi setelah rumusnya dirubah jangan hanya ditekan Enter saja, tekan 3
> tombol (Ctrl+Shift+Enter)
>
>
>
> Coba pada pada M5, tekan tombol F2.
>
> lalu tekan tombol Ctrl dan tombol Shift, jangan dilepas dulu 2 tombol tsb.
> (Ctrl+Shift)
>
> Lalu tekan tombol Enter.
>
> maka formulanya akan ada tambahan kurung kurawal {}
>
>
>
> Oia, jika indexnya dirubah menjadi $D$2:$D$1026, maka pada row juga
> demikian row($C$2:$C$1026)
>
>
>
>
>
> Wassalam
>
> ~ Bagus ~
>
> ----- Original Message -----
>
> *From:* Samsudin samsudin@bayan.com.sg [belajar-excel]
> <samsudin@bayan.com.sg%20[belajar-excel]>
>
> *To:* belajar-excel@yahoogroups.com
>
> *Sent:* Thursday, October 16, 2014 2:25 PM
>
> *Subject:* RE: [belajar-excel] menginput data secara otomatis dengan satu
> key [1 Attachment]
>
>
>
>
>
> Dear Master Excel,
>
> Pada kolom 2 rumus aslinya :
> =IFERROR(INDEX(D$2:D$112,SMALL(IF($M$1=$C$2:$C$112,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"")
> diubah menjadi =
> =IFERROR(INDEX(D$2:D$1026,SMALL(IF($M$1=$C$2:$C$1026,ROW($C$2:$C$112)-ROW($C$1)),ROW(1:1))),"")
> dst disini diubah karena penambahan data, akan tetapi setelah kita cek
> ternyata tampilan berbeda dengan sebelum data ditambah dan rumus diubah,
> mohon pencerahannya.
>
> *Hormat saya,*
>
> *Samsudin, ST*
>
> *P&M Dept Head*
>
>
>
> *[image: Description: Description: cid:image002.jpg@01CB3234.2DD4F390] **PT.
> GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)*
>
> O: +62 542 875 860 Ext :61519 |
>
> M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg
>
> P Save a tree & save energy. Don't print this e-mail unless it's
> really necessary. Go Green !!!
>
> ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Thursday, October 16, 2014 10:46 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] menginput data secara otomatis dengan satu
> key [1 Attachment]
>
>
>
> 
>
> Wa'alaykum salam warohmatullohi wabarokatuhu
>
> Pak Samsudin;
>
> Sila lihat file terlampir
>
> semoga sesuai harapan
>
> Wassalam
>
> ~ Bagus ~
>
> ----- Original Message -----
>
> *From:* Samsudin samsudin@bayan.com.sg [belajar-excel]
> <samsudin@bayan.com.sg%20[belajar-excel]>
>
> *To:* belajar-excel@yahoogroups.com
>
> *Sent:* Thursday, October 16, 2014 9:14 AM
>
> *Subject:* [belajar-excel] menginput data secara otomatis dengan satu key
> [1 Attachment]
>
>
>
> *وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ عَلَيْكُمْ السَّلاَمُ*
>
> Dikarenakan saya baru bergabung dengan milis belajar-excel dan saya tidak
> mengerti bagaimana cara mengirim posting seputar masalah excel maka saya
> mengirim melalui email ini dan berikut masalah saya hadapi.
>
> Data ini berasal dari pemakaian harian dan saya ingin mengetahui pemakaian
> barang dengan kunci pencarian GIN, dimana form tersebut tersedia hanya 15
> item nama barang :
>
> *GIN*
>
> GIN14-4580
>
> *Control No*
>
> PGS400-15
>
> *Date*
>
> 01-Sep-2014
>
> *Category*
>
> FIL
>
> *No*
>
> *Code No*
>
> *Descriprion*
>
> *Qty*
>
> *Unit*
>
> *Cost*
>
> 1
>
> 2
>
> 3
>
> 4
>
> 5
>
> 6
>
> 7
>
> 8
>
> 9
>
> 10
>
> 11
>
> 12
>
> 13
>
> 14
>
> 15
>
> *Total*
>
> *$ - *
>
> Bagaimana caranya data tersebut bisa dinput kedalam form tersebut secara
> otomatis dari data sebelahnya.
>
> Sebelumnya saya mengucapkan terima kasih.
>
> *وَبَرَكَاتُهُ اللهِ وَرَحْمَةُ َلَيْكُمْ السَّلاَمُوَ*
>
> *Samsudin, ST*
>
> *P&M Dept Head*
>
>
>
> *[image: Description: Description: cid:image002.jpg@01CB3234.2DD4F390] **PT.
> GUNUNGBAYAN PRATAMACOAL (Bayan Group Resources)*
>
> O: +62 542 875 860 Ext :61519 |
>
> M: +62 811 2810 068 | +62 813 6914 7150 | email: samsudin@bayan.com.sg
>
> P Save a tree & save energy. Don't print this e-mail unless it's
> really necessary. Go Green !!!
>
> ISO 9001 : 2008| ISO 14001 : 2004 | OHSAS 18001 : 2007
>
> *From:* belajar-excel@yahoogroups.com [
> mailto:belajar-excel@yahoogroups.com <belajar-excel@yahoogroups.com>]
> *Sent:* Thursday, October 16, 2014 8:04 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* Re: [belajar-excel] UserForm Login [1 Attachment]
>
>
>
> Coba file ini dibuka, salah satu passwordnya "Tempe" :D
>
> kemudian coba isi sheet form, trus simpan, lakukan bersamaan di beberapa
> kompie.
>
>
>
> On 15/10/2014 22:17, belajar excell belajar.excell@yahoo.com
> [belajar-excel] wrote:
>
>
>
> Pak DP,
>
>
>
>
>
> File yang saya buat untuk di share itu ekstensinya itu .xlsm dan .xlsb,
> dan ternyata tidak bisa untuk di share karena mengandung unsur VBnya,
>
> maaf pak, tapi saya belum ngerti dengan maksud bpk yang ini : " kalau
> ingin menambahkan code VBA musti di matikan dulu fitur shared nya, baru
> ditambahkan code vba / formnya, kemudian baru di share lagi ".
>
>
>
>
>
> Mohon penjelasannya ya Pak..maklum saya belajar excel hanya tabrak sana
> dan tabrak sini,,hehe
>
>
>
>
>
> Terima kasih
>
> On Wednesday, October 15, 2014 9:40 AM, "De Premor de@premor.net
> [belajar-excel]" <belajar-excel@yahoogroups.com>
> <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Apakah format file workbook yang di shared tersebut mendukung makro (xlsm
> atau xlsb) ?
> Pada Shared workbook vba nya tidak dapat diedit, kalau ingin menambahkan
> code VBA musti di matikan dulu fitur shared nya, baru ditambahkan code vba
> / formnya, kemudian baru di share lagi.
>
> Rgds,
> [dp]
>
>
>
> On 14/10/2014 18:56, belajar excell belajar.excell@yahoo.com
> [belajar-excel] wrote:
>
>
>
> Pak Kid,
>
> it works, terima kasih bnyk ya pak atas bantuannya..
>
> o ia pak..tujuan saya buat login form adalah untuk mengkombinasikan dengan
> workbook yang di shared..namun ternyata worksbook yang di shared tidak dpat
> membaca kode VBAnya ya..
>
> Bgamaimana caranya pak agar excel ini dpt di pakai multi user, tapi di
> kombinasikan dengan login form yang kita sudah buat ?
>
> Salam,
>
> R
>
> On Monday, October 13, 2014 7:52 PM, "belajar excell
> belajar.excell@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
> <belajar-excel@yahoogroups.com> wrote:
>
>
>
> trima kasih banyak Pak NangAgus untuk bantuannya..
>
> untuk nomor dua itu mksd saya ada tanda "x" pada user name Pak, jadi pada
> saat kita klik tanda x itu, workbook akan otomatis tertutup dengan
> sendirinya,
>
> Mohon bantuannya ya Pak..
>
> Regards
>
> Ronny S
>
> On Monday, October 13, 2014 8:30 AM, "Nang Agus nangagus@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com>
> <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Dear Belajar Excel,
>
> 1. Coba dibuat pada object workbook dengan prosedur open:
> Private Sub Workbook_Open()
> Sheet1.visible = xlSheetVeryHidden
> Sheet3.visible = xlSheetVeryHidden
> Sheet4.visible = xlSheetVeryHidden
> Sheet5.visible = xlSheetVeryHidden
> Sheet6.visible = xlSheetVeryHidden
>
> end sub
>
> 2.
>
> Private sub userform_terminate ()
>
> Me.Hide
>
> End sub
>
> Wasalam
>
> NangAgus
>
> 2014-10-12 19:28 GMT+07:00 belajar excell belajar.excell@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Selamat malam rekan2 pecinta excel,
>
> Pada saat ini saya sedang membuat userform, tapi ada beberapa kendala yang
> saya temui,
>
> 1. Bgaimana caranya agar Pada saat pertama kli userform muncul,
> hanya sheet
> Hal Dep saja yang keliatan, dan sheet yang lainnya tersembunyi ?
>
> 2. Untuk terminate userform, saya hanya memakain VBA code seperti
> di bawah ini :
>
> Private sub userform_terminate ()
>
> Thisworkbook.close 1
>
> End sub
>
> Tapi pada saat saya mengisi user name dan juga password,
> yang ada malah excel langsung tertutup.
>
> Mohon bantuannya ya teman2 smuanya,
>
> Terima kasih sebelummnya..
>
> ----------------------------------------------------------
>
>
>
> This message (including any attachments) contains confidential information intended
>
> for a specific individual and purpose, and is protected by law. If you are not the
>
> intended recipient, you should delete this message and hereby notified that any
>
> disclosure, copying, or distribution of this message (or any part thereof), or the
>
> taking of any action based on it, is strictly prohibited. No liability or responsibility
>
> is accepted if information or data is, for whatever reason corrupted or does not reach
>
> its intended recipient. No warranty is given that this email is free of viruses. The
>
> views expressed in this email are, unless otherwise stated, those of the author and
>
> not those of the Company or its management. The Company reserves the right to monitor,
>
> intercept and block emails addressed to its users or take any other action in accordance
>
> with its email use policy.
>
> ----------------------------------------------------------
>
>
>
> This message (including any attachments) contains confidential information intended
>
> for a specific individual and purpose, and is protected by law. If you are not the
>
> intended recipient, you should delete this message and hereby notified that any
>
> disclosure, copying, or distribution of this message (or any part thereof), or the
>
> taking of any action based on it, is strictly prohibited. No liability or responsibility
>
> is accepted if information or data is, for whatever reason corrupted or does not reach
>
> its intended recipient. No warranty is given that this email is free of viruses. The
>
> views expressed in this email are, unless otherwise stated, those of the author and
>
> not those of the Company or its management. The Company reserves the right to monitor,
>
> intercept and block emails addressed to its users or take any other action in accordance
>
> with its email use policy.
>
> ----------------------------------------------------------
>
> This message (including any attachments) contains confidential information intended
> for a specific individual and purpose, and is protected by law. If you are not the
> intended recipient, you should delete this message and hereby notified that any
> disclosure, copying, or distribution of this message (or any part thereof), or the
> taking of any action based on it, is strictly prohibited. No liability or responsibility
> is accepted if information or data is, for whatever reason corrupted or does not reach
> its intended recipient. No warranty is given that this email is free of viruses. The
> views expressed in this email are, unless otherwise stated, those of the author and
> not those of the Company or its management. The Company reserves the right to monitor,
> intercept and block emails addressed to its users or take any other action in accordance
> with its email use policy.
>
>
>
============================================================
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