[belajar-excel] Digest Number 3442

Milis Belajar Microsoft Excel Group

15 Messages

Digest #3442

1.1

Re: Copy Paste Active dan Deactive Worksheet by "nurani alkena" alkenanurani

1.2

Re: Copy Paste Active dan Deactive Worksheet by "Mr. Kid" nmkid.family@ymail.com

1.3

Re: Copy Paste Active dan Deactive Worksheet by "Toby kenzo" tobykenzo

1.4

Menyatukan 2 atau 3 baris menjadi 1 baris data by "Ahmad Syaifullah Lubis" syaifullah

1.5

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment] by "Nang Agus"

1.6

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment] by "Nang Agus"

1.7

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment] by "Ahmad Syaifullah Lubis" syaifullah

1.8

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data by "Ahmad Syaifullah Lubis" syaifullah

1.9

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data by "Ahmad Syaifullah Lubis" syaifullah

2a

Droplist By criteria by "Subroto, Matzen"

2b

Re: Droplist By criteria [1 Attachment] by "hendrik karnadi" hendrikkarnadi

2c

Re: Droplist By criteria [3 Attachments] by "Subroto, Matzen"

3

Mengambil keterangan dari suatu kode by lukmanibrahim931

4a

unique data by "It Dpm" it_dpm

4b

Re: unique data [1 Attachment] by "hendrik karnadi" hendrikkarnadi

Messages

1.1

Re: Copy Paste Active dan Deactive Worksheet

Sun May 24, 2015 4:37 am (PDT) . Posted by:

"nurani alkena" alkenanurani

Private Sub CommandButton2_Click()'Tombol EditDim myCode As VariantmyCode = InputBox("Please Insert your Password to Edit this Worksheet..", "Your Password")If myCode = "123" ThenMsgBox "Good...your Password is Match", vbInformation, "Your Password"Sheet1.Unprotect ("123")ElseMsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _"You Can not Edit this Worksheet", vbCritical, " Your Password"End If
End Sub
Private Sub CommandButton3_Click()'Tombol LockSheet1.Protect ("123")End Sub
Private Sub CommandButton4_Click()' Tombol CopyRange("B1:E358").CopyEnd Sub

untuk ke3 tombol diatas

On Sunday, May 24, 2015 5:18 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Kalau bisa, dicopas kesini prosedur workbook open, event click si tombol enter, dan event click si tombol yang hanya sekali pakai tersebut.

Bolehkan copas script prosedur tersebut diatas kesini ?

2015-05-24 20:11 GMT+10:00 nurani alkena alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  mr... sorry program nya sudah bisa.ketika perintah unprotectsheet  pada command button enter saya hilangkan. dia tetap terproteksi.

thanks
tp yang command button hanya bisa diklik satu kali ketika ingin diklik kembali dia tidak akan bisa mengulangi perintah tersebut. dan perubahan yang menunjukan bahwa kita sudah memilih commandbutton itu blm bisa dilakukan .mohon bantuannya.
you are the best teacher. 

On Sunday, May 24, 2015 5:04 PM, "nurani alkena alkenanurani@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  mr......sudah saya coba seperti apa yang dikatakan menaruh perintah proteksi awal di workbook open. maaf .... mungkin penjelasan saya kurang lengkap.ketika saya menekan tombol enter untuk memilih list yang lain, worksheet tsb tidak terproteksi kembali. harus menekan tombol lock untuk memproteksi ws tsb. saya menginginkan ws tsb tetap terproteksi walau saya menekan tombol enter, copy atau maximize dn minize.
maaf merepotkan :-(terima kasih
ini lampirannya

On Sunday, May 24, 2015 4:09 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  oh jadi kasusnya tetap tentang penggunaan outlining dalam keadaan sheet terproteksi ya...

Sepertinya ada yang tidak pas peletakannya...

coba begini : (pastikan semuanya dicek ulang ya)
1. unprotect seluruh sheet
2. pastikan sudah punya prosedur seperti ProteksiAwal tadi ya

3. lihat di event workbook open (Ingat, workbook open bukan selain open), pastikan ada perintah memanggil prosedur ProteksiAwal disana.
     > Kenapa ? Supaya prosedur proteksiawal dijalankan saat workbook pertama kali dibuka oleh user
4. pastikan tidak ada pemanggilang prosedur proteksiawal di event milik workbook lainnya, seperti di event activate, beforeclose, beforeclose, dsb.
     > jika ada, buang baris pemanggilan proteksiawal tersebut

5. cek disemua prosedur yang ada (dimanapun ada prosedur, lakukanlah cek ulang) kecuali pada prosedur ProteksiAwal tentang baris-baris yang melakukan protect sheet
          > semua baris ini dibuang saja (dimanapun dia berada)
          > biasanya bentuknya begini :
                sheets("nama sheetnya").protect    'tapi tidak ada userinterfaceonly
6. semua baris proteksi yang dibuang di nomor 5 tadi, diganti dengan baris untuk memanggil prosedur bernama ProteksiAwal

Sampai disini, mestinya tidak diperlukan lagi tombol lock yang Anda sebut, alias tombol tersebut bisa Anda buang.

Saya ingin sheet tetap terproteksi dan maximize n minimize tetap bisa dilakukan tanpa menekan tombol lock.

Proses copy dengan VBA (kalau ndak salah ingat, diawal-awal kasus ini ada proses Copy yang telah Anda buat) tetap akan bekerja dengan baik walau worksheet diproteksi, karena proses proteksi dilakukan oleh prosedur ProteksiAwal yang menambahkan parameter userinterfaceonly bernilai TRUE.

Tetapi, user tidak bisa melakukan copy dan apapun yang tidak sesuai dengan settingan proteksi Anda melalui ribbon Review -> group Changes -> Protect Sheet.
Cara mengatur apa saja yang bisa diakses oleh user adalah dengan melakukan proteksi manual melalui ribbon Review -> group Changes -> protect sheet
Anda bisa mencentang apa yang menurut Anda boleh dilakukan oleh user. Masukkan password dan ikuti langkahnya, lalu tekan OK sampai kembali ke worksheet.
Berhubung pada kasus ini nantinya proses proteksi worksheet diserahkan kepada prosedur ProteksiAwal, maka Anda harus segera meng-unprotect kembali usai mengubah setting opsi proteksi tadi (yang di bold di atas)
Save workbook.

Wassalam,
Kid.

2015-05-24 18:37 GMT+10:00 nurani alkena alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 
| Maaf pak... maksd saya minimize dan maximize row. yg group n ungroup itu. Seperti gambar yg saya kirim sebelumnya.Saya ingin maximize n minimize row tetap bisa dilakukan walau sheet terproteksi. Saya sudah mencoba menggunakan proteksiawal. Cmn pas awal saja bisa maximize n minimize dengan status sheet terproteksi. Ketika kedua kali dn seterusnya saya coba maximize n minimize, sheetnya tdk terproteksi lg. harus menekan tombol lock dl.Saya ingin sheet tetap terproteksi dan maximize n minimize tetap bisa dilakukan tanpa menekan tombol lock. 
Sent from Yahoo Mail on Android
| From:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Date:Sun, May 24, 2015 at 15:10
Subject:Re: [belajar-excel] Re: Copy Paste Active dan Deactive Worksheet

  Sebentar, coba diluruskan dulu...

1. hide unhide row yang dimaksud adalah blok seluruh row lalu klik kanan pilih hide atau unhide ?
2. atau maksud hide unhide disini adalah shrink dan expand dengan outlining yang Anda tanyakan sejak awal ?

Sejak awal, Anda menanyakan tentang worksheet tetap ter-protect tapi tetap bisa menggunakan outlining untuk kegiatan shrink outline dan expand outline.

Kasusnya sudah berubah menjadi hide unhide row dengan context menu hide atau masih tetap sama dengan shrink dan expand pada outlining ?

2015-05-24 17:12 GMT+10:00 nurani alkena alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

 
| Mr.   Ternyata hide n unhide roq nya cmn bsa dilakukan satu kali. Saya ingin hude n unhidenya bsa dilakukan ketika di protectsheet. Jd ketika row tsb di unhide gak berubah status worksheetnya dr protect sheet menjadi unprotect. Jd protect sheet nya tetap walau kita unhide row. 
Thanks.

Sent from Yahoo Mail on Android
| From:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Date:Sun, May 24, 2015 at 13:08
Subject:Re: [belajar-excel] Re: Copy Paste Active dan Deactive Worksheet

  Batasnya 1 kali kan ya...
Asumsi : menggunakan activex control bernama command button
Dalam event click si tombol, beri proses pen-disable-an si tombol (property enabled=false).

Wassalam,
Kid

2015-05-24 15:27 GMT+10:00 alkenanurani@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>:

  It's Work... Thanks MR. YOU ARE THE BEST ONE
MR...i wanna ask againabout command button
saya ingin command button edit hanya satu kali dilakukan proses click. ketika diclick yang kedua. maka command button"edit" tidak bisa melakukan proses edit kembali. bagaimana pengkodean nya. begitupun untuk command button lock dan copy. thanks. dan ada perubahan ketika kita menekan command tersebut,tandanya berupa perubahan warna atau shapes pada command button tsb terima kasih

|

|

|

|

#yiv0493999677 #yiv0493999677 -- #yiv0493999677ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0493999677 #yiv0493999677ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0493999677 #yiv0493999677ygrp-mkp #yiv0493999677hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0493999677 #yiv0493999677ygrp-mkp #yiv0493999677ads {margin-bottom:10px;}#yiv0493999677 #yiv0493999677ygrp-mkp .yiv0493999677ad {padding:0 0;}#yiv0493999677 #yiv0493999677ygrp-mkp .yiv0493999677ad p {margin:0;}#yiv0493999677 #yiv0493999677ygrp-mkp .yiv0493999677ad a {color:#0000ff;text-decoration:none;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ygrp-lc {font-family:Arial;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ygrp-lc #yiv0493999677hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ygrp-lc .yiv0493999677ad {margin-bottom:10px;padding:0 0;}#yiv0493999677 #yiv0493999677actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0493999677 #yiv0493999677activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0493999677 #yiv0493999677activity span {font-weight:700;}#yiv0493999677 #yiv0493999677activity span:first-child {text-transform:uppercase;}#yiv0493999677 #yiv0493999677activity span a {color:#5085b6;text-decoration:none;}#yiv0493999677 #yiv0493999677activity span span {color:#ff7900;}#yiv0493999677 #yiv0493999677activity span .yiv0493999677underline {text-decoration:underline;}#yiv0493999677 .yiv0493999677attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0493999677 .yiv0493999677attach div a {text-decoration:none;}#yiv0493999677 .yiv0493999677attach img {border:none;padding-right:5px;}#yiv0493999677 .yiv0493999677attach label {display:block;margin-bottom:5px;}#yiv0493999677 .yiv0493999677attach label a {text-decoration:none;}#yiv0493999677 blockquote {margin:0 0 0 4px;}#yiv0493999677 .yiv0493999677bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0493999677 .yiv0493999677bold a {text-decoration:none;}#yiv0493999677 dd.yiv0493999677last p a {font-family:Verdana;font-weight:700;}#yiv0493999677 dd.yiv0493999677last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0493999677 dd.yiv0493999677last p span.yiv0493999677yshortcuts {margin-right:0;}#yiv0493999677 div.yiv0493999677attach-table div div a {text-decoration:none;}#yiv0493999677 div.yiv0493999677attach-table {width:400px;}#yiv0493999677 div.yiv0493999677file-title a, #yiv0493999677 div.yiv0493999677file-title a:active, #yiv0493999677 div.yiv0493999677file-title a:hover, #yiv0493999677 div.yiv0493999677file-title a:visited {text-decoration:none;}#yiv0493999677 div.yiv0493999677photo-title a, #yiv0493999677 div.yiv0493999677photo-title a:active, #yiv0493999677 div.yiv0493999677photo-title a:hover, #yiv0493999677 div.yiv0493999677photo-title a:visited {text-decoration:none;}#yiv0493999677 div#yiv0493999677ygrp-mlmsg #yiv0493999677ygrp-msg p a span.yiv0493999677yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0493999677 .yiv0493999677green {color:#628c2a;}#yiv0493999677 .yiv0493999677MsoNormal {margin:0 0 0 0;}#yiv0493999677 o {font-size:0;}#yiv0493999677 #yiv0493999677photos div {float:left;width:72px;}#yiv0493999677 #yiv0493999677photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0493999677 #yiv0493999677photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0493999677 #yiv0493999677reco-category {font-size:77%;}#yiv0493999677 #yiv0493999677reco-desc {font-size:77%;}#yiv0493999677 .yiv0493999677replbq {margin:4px;}#yiv0493999677 #yiv0493999677ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0493999677 #yiv0493999677ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0493999677 #yiv0493999677ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0493999677 #yiv0493999677ygrp-mlmsg select, #yiv0493999677 input, #yiv0493999677 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0493999677 #yiv0493999677ygrp-mlmsg pre, #yiv0493999677 code {font:115% monospace;}#yiv0493999677 #yiv0493999677ygrp-mlmsg * {line-height:1.22em;}#yiv0493999677 #yiv0493999677ygrp-mlmsg #yiv0493999677logo {padding-bottom:10px;}#yiv0493999677 #yiv0493999677ygrp-msg p a {font-family:Verdana;}#yiv0493999677 #yiv0493999677ygrp-msg p#yiv0493999677attach-count span {color:#1E66AE;font-weight:700;}#yiv0493999677 #yiv0493999677ygrp-reco #yiv0493999677reco-head {color:#ff7900;font-weight:700;}#yiv0493999677 #yiv0493999677ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ov li a {font-size:130%;text-decoration:none;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0493999677 #yiv0493999677ygrp-sponsor #yiv0493999677ov ul {margin:0;padding:0 0 0 8px;}#yiv0493999677 #yiv0493999677ygrp-text {font-family:Georgia;}#yiv0493999677 #yiv0493999677ygrp-text p {margin:0 0 1em 0;}#yiv0493999677 #yiv0493999677ygrp-text tt {font-size:120%;}#yiv0493999677 #yiv0493999677ygrp-vital ul li:last-child {border-right:none !important;}#yiv0493999677

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.2

Re: Copy Paste Active dan Deactive Worksheet

Sun May 24, 2015 5:19 am (PDT) . Posted by:

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

Ok...

Tentang :
1. 'Tombol Edit
> katanya user ndak boleh edit, kok diberi tombol edit ?
> kalau range nya ada yang berformula dan user mengedit formulanya,
malah bisa salah edit...
> btw, prosedur berikut :

Private Sub CommandButton2_Click()
'Tombol Edit
Dim myCode As Variant
myCode = InputBox("Please Insert your Password to Edit this
Worksheet..", "Your Password")
If myCode = "123" Then
MsgBox "Good...your Password is Match", vbInformation, "Your
Password"
Sheet1.Unprotect ("123")
Else
MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
"You Can not Edit this Worksheet", vbCritical, " Your
Password"
End If
End Sub

Catatan :
a. penggunaan tipe data variant pada baris :
Dim myCode As Variant
termasuk berlebihan, karena hanya digunakan untuk menampung data yang pasti
text hasil inputbox nya VB
sebaiknya set tipe datanya menjadi string saja. Maka baris ini diganti
menjadi :
dim mycode as string

b. inputbox yang digunakan adalah inputbox milik VB yang berisi tombol OK,
Cancel, dan close dialog (x).
<baris mulai IF blabla sampai Endif
Dari script di atas, ketika user menekan cancel atau close dialog, maka
yang diproses adalah bagian Else dari blok IF yang berisi script penampilan
pesan ke user dengan MsgBox.
Akan lebih baik bila user menekan Cancel tidak mengeluarkan pesan apa-apa.
Hal ini bisa mengurangi rasa terganggunya user dengan pesan yang muncul.
Inputbox nya VB punya 3 output, yaitu :
1. empty -> ketika user mengklik cancel atau close dialog :: dicek dengan
isi pointer si variabel. Ingat, di VBA nilai pointer adalah addressnya yang
bertipe long
2. nullstring -> ketika user tidak mengisi apa-apa dalam area input text
lalu menekan OK
3. teks yang di input dalam area input text -> ketika user mengisi suatu
teks dalam area input text lalu menekan OK

Jadi, susunan blok if-nya menjadi : (dengan tipe data myCode adalah string
ya)
if strptr(mycode)=0 then 'kalo user klik cancel atau close dialog
'do nothing
Elseif lenb(mycode)=0 then 'user tidak mengisi apa-apa lalu menekan
OK
'do nothing
elseIf myCode = "123" Then 'user mengisi teks berbunyi 123 lalu
menekan OK
MsgBox "Good...your Password is Match", vbInformation, "Your
Password"
Sheet1.Unprotect ("123") '-> proses unprotect, berarti akan ada
proses protect *yang harus* menggunakan proteksiawal
else 'user mengisi suatu teks yang bukan berbunyi 123 lalu menekan OK
MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
"You Can not Edit this Worksheet", vbCritical, " Your
Password"
End If

Kasus :
Ijin edit hanya 1 kali, berarti setelah tombol ini ditekan dan isian di
inputbox adalah benar berbunyi teks 123, maka tombol edit tidak boleh
digunakan alias di-disable.

Langkah solusi :
a. tepat setelah baris unprotect, lakukan proses pen-disable-an tombol.
Tombolnya bernama CommandButton2. Baris kodenya :
CommandButton2.enabled=false 'harus dipikirkan dimana
meng-enable kembali (set TRUE) si tombol

b. karena tombol harus ter-enable kembali suatu saat tertentu, maka
nanti diprosedur yang menuntut ter-enable-nya si tombol diberi baris kode
berbunyi :
CommandButton2.enabled=true
*** misal di event workbook open atau ketika user mengubah suatu
nilai tertentu

2. 'Tombol Lock
> kalau ndak salah duga, tombol ini dimaksudkan untuk mem-protect
kembali setelah user melakukan edit
> prosedur berikut :

Private Sub CommandButton3_Click()
'Tombol Lock
Sheet1.Protect ("123")
End Sub

Catatan :
karena sudah ada prosedur yang bertugas memproteksi, maka baris kode
protect yang ada dibuang dan diganti dengan memanggil prosedur yang
bertugas memproteksi. Bahasan di email sebelumnya, prosedur yang bertugas
memproteksi bernama ProteksiAwal. Jadi, prosedur ini diubah menjadi :

Private Sub CommandButton3_Click()
'Tombol Lock
'Sheet1.Protect ("123") '-> buang saja
ProteksiAwal 'ndak perlu pakai Call seperti Call ProteksiAwal,
karena jenis prosedurnya adalah Sub (void kalau di C dan genrenya)
End Sub

3. ' Tombol Copy
> prosedur ini tidak terlalu banyak membawa masalah walaupun setting
proteksinya adalah noselection sekalipun, karena prosedur proteksi awal
sudah menetapkan nilai parameter userinterfaceonly adalah True.
> prosedur berikut :

Private Sub CommandButton4_Click()
' Tombol Copy
Range("B1:E358").Copy
End Sub

Catatan :
a. kalau yang akan di-copy adalah baris-baris yang tampak saja, ubah agar
yang dirujuk adalah visible cells only (sudah kenal perintah Goto (CTRL G)
-> klik Special -> Visible Only bukan)
Range("b1:e358").specialcells(xlvisibleonly).copy

b. hati-hati kalau ada range yang berisi formula dan absolute reference
(tanda $ dalam rujukan range di formula) nya tidak ditata dengan baik,
karena begitu di-paste di tempat lain di instansi Excel yang sama,
formulanya bisa berubah dan hasil paste jadi salah kalkulasi.
Contoh :
- area yang di-copy mulai b1 sampai e358.
- di range b1 ada formula berbunyi =sheetblabla!gj17
- user mempaste ke sheet lain bernama sheetblibliblibli pada range c2
- maka formula di b1 akan berubah menjadi =sheetblabla!gk18

*** simpulan ***
Jadi, proses otomasi bukan sekedar memilih yang mudah untuk dilakukan,
tetapi sebaiknya diawali agar proses yang dilakukan user bisa menghasilkan
data yang tetap baik dan benar meskipun user tidak menyadari bahwa proses
yang dilakukannya bisa mengakibatkan kesalahan pada data yang dihasilkan.

Wassalam,
Kid

2015-05-24 21:31 GMT+10:00 nurani alkena alkenanurani@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Private Sub CommandButton2_Click()
> 'Tombol Edit
> Dim myCode As Variant
> myCode = InputBox("Please Insert your Password to Edit this Worksheet..",
> "Your Password")
> If myCode = "123" Then
> MsgBox "Good...your Password is Match", vbInformation, "Your Password"
> Sheet1.Unprotect ("123")
> Else
> MsgBox "Sorry...Your Password is not Match !!!" & vbCrLf & _
> "You Can not Edit this Worksheet", vbCritical, " Your Password"
> End If
>
> End Sub
>
> Private Sub CommandButton3_Click()
> 'Tombol Lock
> Sheet1.Protect ("123")
> End Sub
>
> Private Sub CommandButton4_Click()
> ' Tombol Copy
> Range("B1:E358").Copy
> End Sub
>
>
> untuk ke3 tombol diatas
>
>
>
>
> On Sunday, May 24, 2015 5:18 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> Kalau bisa, dicopas kesini prosedur workbook open, event click si tombol
> enter, dan event click si tombol yang hanya sekali pakai tersebut.
>
> Bolehkan copas script prosedur tersebut diatas kesini ?
>
>
>
>
>
>
> 2015-05-24 20:11 GMT+10:00 nurani alkena alkenanurani@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> mr... sorry program nya sudah bisa.
> ketika perintah unprotectsheet pada command button enter saya hilangkan.
> dia tetap terproteksi.
>
>
> thanks
>
> tp yang command button hanya bisa diklik satu kali ketika ingin diklik
> kembali dia tidak akan bisa mengulangi perintah tersebut. dan perubahan
> yang menunjukan bahwa kita sudah memilih commandbutton itu *blm bisa
> dilakukan *.
> mohon bantuannya.
>
> you are the best teacher.
>
>
>
>
>
> On Sunday, May 24, 2015 5:04 PM, "nurani alkena alkenanurani@yahoo.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> mr......sudah saya coba seperti apa yang dikatakan menaruh perintah
> proteksi awal di workbook open.
> maaf .... mungkin penjelasan saya kurang lengkap.
> ketika saya menekan tombol enter untuk memilih list yang lain, worksheet
> tsb tidak terproteksi kembali. harus menekan tombol lock untuk memproteksi
> ws tsb. saya menginginkan ws tsb tetap terproteksi walau saya menekan
> tombol enter, copy atau maximize dn minize.
>
> maaf merepotkan :-(
> terima kasih
>
> ini lampirannya
>
>
>
> On Sunday, May 24, 2015 4:09 PM, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:
>
>
>
> oh jadi kasusnya tetap tentang penggunaan outlining dalam keadaan sheet
> terproteksi ya...
>
> Sepertinya ada yang tidak pas peletakannya...
>
> coba begini : (pastikan semuanya dicek ulang ya)
> 1. unprotect seluruh sheet
> 2. pastikan sudah punya prosedur seperti ProteksiAwal tadi ya
>
> 3. lihat di event workbook open (Ingat, workbook open bukan selain open),
> pastikan ada perintah memanggil prosedur ProteksiAwal disana.
> > Kenapa ? Supaya prosedur proteksiawal dijalankan saat workbook
> pertama kali dibuka oleh user
> 4. pastikan tidak ada pemanggilang prosedur proteksiawal di event milik
> workbook lainnya, seperti di event activate, beforeclose, beforeclose, dsb.
> > jika ada, buang baris pemanggilan proteksiawal tersebut
>
> 5. cek disemua prosedur yang ada (dimanapun ada prosedur, lakukanlah cek
> ulang) kecuali pada prosedur ProteksiAwal tentang baris-baris yang
> melakukan protect sheet
> > semua baris ini dibuang saja (dimanapun dia berada)
> > biasanya bentuknya begini :
> sheets("nama sheetnya").protect 'tapi tidak ada
> userinterfaceonly
> 6. semua baris proteksi yang dibuang di nomor 5 tadi, diganti dengan baris
> untuk memanggil prosedur bernama ProteksiAwal
>
> Sampai disini, mestinya tidak diperlukan lagi tombol lock yang Anda sebut,
> alias tombol tersebut bisa Anda buang.
>
> Saya ingin sheet tetap terproteksi dan maximize n minimize tetap bisa
> dilakukan *tanpa menekan tombol lock*.
>
>
> Proses copy dengan VBA (kalau ndak salah ingat, diawal-awal kasus ini ada
> proses Copy yang telah Anda buat) tetap akan bekerja dengan baik walau
> worksheet diproteksi, karena proses proteksi dilakukan oleh prosedur
> ProteksiAwal yang menambahkan parameter userinterfaceonly bernilai TRUE.
>
> Tetapi, user tidak bisa melakukan copy dan apapun yang tidak sesuai dengan
> settingan proteksi Anda melalui ribbon Review -> group Changes -> Protect
> Sheet.
>
> *Cara mengatur apa saja yang bisa diakses oleh user adalah dengan
> melakukan proteksi manual melalui ribbon Review -> group Changes -> protect
> sheet*
>
> *Anda bisa mencentang apa yang menurut Anda boleh dilakukan oleh user.
> Masukkan password dan ikuti langkahnya, lalu tekan OK sampai kembali ke
> worksheet.*
> Berhubung pada kasus ini nantinya proses proteksi worksheet diserahkan
> kepada prosedur ProteksiAwal, maka Anda harus segera meng-unprotect kembali
> usai mengubah setting opsi proteksi tadi (yang di bold di atas)
> Save workbook.
>
>
>
> Wassalam,
> Kid.
>
>
>
>
>
> 2015-05-24 18:37 GMT+10:00 nurani alkena alkenanurani@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Maaf pak... maksd saya minimize dan maximize row. yg group n ungroup
> itu. Seperti gambar yg saya kirim sebelumnya.
> Saya ingin maximize n minimize row tetap bisa dilakukan walau sheet
> terproteksi. Saya sudah mencoba menggunakan proteksiawal. Cmn pas awal saja
> bisa maximize n minimize dengan status sheet terproteksi. Ketika kedua kali
> dn seterusnya saya coba maximize n minimize, sheetnya tdk terproteksi lg.
> harus menekan tombol lock dl.
> Saya ingin sheet tetap terproteksi dan maximize n minimize tetap bisa
> dilakukan tanpa menekan tombol lock.
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
> ------------------------------
> *From*:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Date*:Sun, May 24, 2015 at 15:10
>
> *Subject*:Re: [belajar-excel] Re: Copy Paste Active dan Deactive Worksheet
>
>
> Sebentar, coba diluruskan dulu...
>
> 1. hide unhide row yang dimaksud adalah blok seluruh row lalu klik kanan
> pilih hide atau unhide ?
> 2. atau maksud hide unhide disini adalah shrink dan expand dengan
> outlining yang Anda tanyakan sejak awal ?
>
> Sejak awal, Anda menanyakan tentang worksheet tetap ter-protect tapi tetap
> bisa menggunakan outlining untuk kegiatan shrink outline dan expand outline.
>
> Kasusnya sudah berubah menjadi hide unhide row dengan context menu hide
> atau masih tetap sama dengan shrink dan expand pada outlining ?
>
>
>
>
>
>
>
> 2015-05-24 17:12 GMT+10:00 nurani alkena alkenanurani@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
> Mr. Ternyata hide n unhide roq nya cmn bsa dilakukan satu kali. Saya
> ingin hude n unhidenya bsa dilakukan ketika di protectsheet. Jd ketika row
> tsb di unhide gak berubah status worksheetnya dr protect sheet menjadi
> unprotect. Jd protect sheet nya tetap walau kita unhide row.
>
> Thanks.
>
>
> Sent from Yahoo Mail on Android
> <https://overview.mail.yahoo.com/mobile/?.src=Android>
> ------------------------------
> *From*:"'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *Date*:Sun, May 24, 2015 at 13:08
> *Subject*:Re: [belajar-excel] Re: Copy Paste Active dan Deactive Worksheet
>
>
> Batasnya 1 kali kan ya...
> Asumsi : menggunakan activex control bernama command button
> Dalam event click si tombol, beri proses pen-disable-an si tombol
> (property enabled=false).
>
> Wassalam,
> Kid
>
>
>
>
>
>
>
> 2015-05-24 15:27 GMT+10:00 alkenanurani@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> It's Work...
> Thanks MR.
> YOU ARE THE BEST ONE
> MR...
> i wanna ask again
> about command button
>
> saya ingin command button edit hanya satu kali dilakukan proses click.
> ketika diclick yang kedua. maka command button"edit" tidak bisa melakukan
> proses edit kembali. bagaimana pengkodean nya. begitupun untuk command
> button lock dan copy. thanks. dan ada perubahan ketika kita menekan command
> tersebut,tandanya berupa perubahan warna atau shapes pada command button
> tsb
> terima kasih
>
>
>
>
>
>
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.3

Re: Copy Paste Active dan Deactive Worksheet

Sun May 24, 2015 7:09 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Ani,

Mungkin ini bisa membantu,
# Outline active pada saat protect cells
# Range (B9:G358) terprotect
# Bottom Lock & Unlock tdk di gunakan
# Max & min Coulumns active (Cell terprotect)
# Passwordnya 123

TerimaKasih.

Sent from Yahoo Mail on Android

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.4

Menyatukan 2 atau 3 baris menjadi 1 baris data

Sun May 24, 2015 10:12 pm (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear BeExceller,

Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.5

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment]

Sun May 24, 2015 10:52 pm (PDT) . Posted by:

"Nang Agus"

Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x

2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear BeExceller,
>
> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
> kerepotan dalam menyatukannya menjadi 1 baris.
> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>
> terima kasih,
>
> ASL
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.6

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment]

Sun May 24, 2015 11:07 pm (PDT) . Posted by:

"Nang Agus"

Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:

Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If

Next x

End Sub

2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:

> Mungkinkah macro begini?
> Option Explicit
> Sub kopi()
> Dim baris As Integer, tinggi As Integer, x As Integer
> Dim wadah As String
> tinggi = Range("c1000000").End(xlUp).Row
> For x = tinggi To 7 Step -1
> If Cells(x, 1).Value = 0 Then
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = ""
> Else
> wadah = Cells(x, 3).Value & wadah
> Cells(x, 3).Value = wadah
> wadah = ""
> End If
> Next x
>
> 2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>> Dear BeExceller,
>>
>> Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya
>> biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya
>> kerepotan dalam menyatukannya menjadi 1 baris.
>> Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
>>
>> terima kasih,
>>
>> ASL
>>
>>
>>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.7

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment]

Mon May 25, 2015 12:15 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Nanang,
macronya jalan, namun kolomnya ada yang tidak sinkron, yaitu kolom E nya seharusnya terangkat ke 1 baris.seperti yang saya tandanya dengan tanda panah ke atas.terima kasih,ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 12:52:24 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data [1 Attachment]

Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x

2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear BeExceller,

Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.8

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data

Mon May 25, 2015 12:15 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Mr Nang Agus,macronya sudah berhasil dengan baik.cuman tambahin dikit lagi boleh gak ya... ? gimana kalau macronya berjalan untuk semua sheet yang ada, sehingga sekali pencet macronya berjalan dari satu sheet ke sheet yang lainnya untuk membuat 2 atau 3 baris menjadi 1 baris, begitu Mr Nang Agus.
terima kasih,ASL
To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 13:07:02 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data

Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:

Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If

Next x

End Sub

2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x

2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear BeExceller,

Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

1.9

Re: Menyatukan 2 atau 3 baris menjadi 1 baris data

Mon May 25, 2015 12:55 am (PDT) . Posted by:

"Ahmad Syaifullah Lubis" syaifullah

Dear Mr Nang Agus,bisa sekalian diberikan keterangan scriptnya, biar saya dapat memahaminya.
Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If
Next x
End Sub

terima kasih,ASL

To: belajar-excel@yahoogroups.com
From: belajar-excel@yahoogroups.com
Date: Mon, 25 May 2015 13:07:02 +0700
Subject: Re: [belajar-excel] Menyatukan 2 atau 3 baris menjadi 1 baris data

Mohon maaf ada yang ketinggalan untuk kolom E, mungkin cekripnya begini:

Option Explicit
Sub kopi()
Dim baris As Long, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
If Cells(x, 5).Value <> 0 Then
baris = Cells(x, 5).Value
Cells(x, 5).Value = ""
End If
Else

wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
Cells(x, 5).Value = baris
End If

Next x

End Sub

2015-05-25 12:52 GMT+07:00 Nang Agus <nangagus@gmail.com>:
Mungkinkah macro begini?
Option Explicit
Sub kopi()
Dim baris As Integer, tinggi As Integer, x As Integer
Dim wadah As String
tinggi = Range("c1000000").End(xlUp).Row
For x = tinggi To 7 Step -1
If Cells(x, 1).Value = 0 Then
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = ""
Else
wadah = Cells(x, 3).Value & wadah
Cells(x, 3).Value = wadah
wadah = ""
End If
Next x

2015-05-25 10:11 GMT+07:00 Ahmad Syaifullah Lubis syaifullah@hotmail.com [belajar-excel] <belajar-excel@yahoogroups.com>:

Dear BeExceller,

Saya mendapatkan data yang cukup membuat saya kewalahan, di mana data2nya biasanya hanya 1 baris, tetapi terkadang ada 2 atau 3 baris, sehingga saya kerepotan dalam menyatukannya menjadi 1 baris.Mohon diberikan macro yang bisa mengatasi masalah saya tsb.
terima kasih,
ASL

Reply to sender . Reply to group . Reply via Web Post . All Messages (34) . Top ^

2a

Droplist By criteria

Sun May 24, 2015 10:11 pm (PDT) . Posted by:

"Subroto, Matzen"

Dear Master Excel,

Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi

Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan

Terima Kasih

Matzen

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2b

Re: Droplist By criteria [1 Attachment]

Sun May 24, 2015 10:50 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pilih satu dari tiga warisan si mbah.
Salam,HK
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment]

  Dear Master Excel,   Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi   Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan     Terima Kasih   Matzen   #yiv2714624415 #yiv2714624415 -- #yiv2714624415ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv2714624415 #yiv2714624415ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv2714624415 #yiv2714624415ygrp-mkp #yiv2714624415hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv2714624415 #yiv2714624415ygrp-mkp #yiv2714624415ads {margin-bottom:10px;}#yiv2714624415 #yiv2714624415ygrp-mkp .yiv2714624415ad {padding:0 0;}#yiv2714624415 #yiv2714624415ygrp-mkp .yiv2714624415ad p {margin:0;}#yiv2714624415 #yiv2714624415ygrp-mkp .yiv2714624415ad a {color:#0000ff;text-decoration:none;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ygrp-lc {font-family:Arial;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ygrp-lc #yiv2714624415hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ygrp-lc .yiv2714624415ad {margin-bottom:10px;padding:0 0;}#yiv2714624415 #yiv2714624415actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv2714624415 #yiv2714624415activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv2714624415 #yiv2714624415activity span {font-weight:700;}#yiv2714624415 #yiv2714624415activity span:first-child {text-transform:uppercase;}#yiv2714624415 #yiv2714624415activity span a {color:#5085b6;text-decoration:none;}#yiv2714624415 #yiv2714624415activity span span {color:#ff7900;}#yiv2714624415 #yiv2714624415activity span .yiv2714624415underline {text-decoration:underline;}#yiv2714624415 .yiv2714624415attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv2714624415 .yiv2714624415attach div a {text-decoration:none;}#yiv2714624415 .yiv2714624415attach img {border:none;padding-right:5px;}#yiv2714624415 .yiv2714624415attach label {display:block;margin-bottom:5px;}#yiv2714624415 .yiv2714624415attach label a {text-decoration:none;}#yiv2714624415 blockquote {margin:0 0 0 4px;}#yiv2714624415 .yiv2714624415bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv2714624415 .yiv2714624415bold a {text-decoration:none;}#yiv2714624415 dd.yiv2714624415last p a {font-family:Verdana;font-weight:700;}#yiv2714624415 dd.yiv2714624415last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv2714624415 dd.yiv2714624415last p span.yiv2714624415yshortcuts {margin-right:0;}#yiv2714624415 div.yiv2714624415attach-table div div a {text-decoration:none;}#yiv2714624415 div.yiv2714624415attach-table {width:400px;}#yiv2714624415 div.yiv2714624415file-title a, #yiv2714624415 div.yiv2714624415file-title a:active, #yiv2714624415 div.yiv2714624415file-title a:hover, #yiv2714624415 div.yiv2714624415file-title a:visited {text-decoration:none;}#yiv2714624415 div.yiv2714624415photo-title a, #yiv2714624415 div.yiv2714624415photo-title a:active, #yiv2714624415 div.yiv2714624415photo-title a:hover, #yiv2714624415 div.yiv2714624415photo-title a:visited {text-decoration:none;}#yiv2714624415 div#yiv2714624415ygrp-mlmsg #yiv2714624415ygrp-msg p a span.yiv2714624415yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv2714624415 .yiv2714624415green {color:#628c2a;}#yiv2714624415 .yiv2714624415MsoNormal {margin:0 0 0 0;}#yiv2714624415 o {font-size:0;}#yiv2714624415 #yiv2714624415photos div {float:left;width:72px;}#yiv2714624415 #yiv2714624415photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv2714624415 #yiv2714624415photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv2714624415 #yiv2714624415reco-category {font-size:77%;}#yiv2714624415 #yiv2714624415reco-desc {font-size:77%;}#yiv2714624415 .yiv2714624415replbq {margin:4px;}#yiv2714624415 #yiv2714624415ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv2714624415 #yiv2714624415ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv2714624415 #yiv2714624415ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv2714624415 #yiv2714624415ygrp-mlmsg select, #yiv2714624415 input, #yiv2714624415 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv2714624415 #yiv2714624415ygrp-mlmsg pre, #yiv2714624415 code {font:115% monospace;}#yiv2714624415 #yiv2714624415ygrp-mlmsg * {line-height:1.22em;}#yiv2714624415 #yiv2714624415ygrp-mlmsg #yiv2714624415logo {padding-bottom:10px;}#yiv2714624415 #yiv2714624415ygrp-msg p a {font-family:Verdana;}#yiv2714624415 #yiv2714624415ygrp-msg p#yiv2714624415attach-count span {color:#1E66AE;font-weight:700;}#yiv2714624415 #yiv2714624415ygrp-reco #yiv2714624415reco-head {color:#ff7900;font-weight:700;}#yiv2714624415 #yiv2714624415ygrp-reco {margin-bottom:20px;padding:0px;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ov li a {font-size:130%;text-decoration:none;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv2714624415 #yiv2714624415ygrp-sponsor #yiv2714624415ov ul {margin:0;padding:0 0 0 8px;}#yiv2714624415 #yiv2714624415ygrp-text {font-family:Georgia;}#yiv2714624415 #yiv2714624415ygrp-text p {margin:0 0 1em 0;}#yiv2714624415 #yiv2714624415ygrp-text tt {font-size:120%;}#yiv2714624415 #yiv2714624415ygrp-vital ul li:last-child {border-right:none !important;}#yiv2714624415

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2c

Re: Droplist By criteria [3 Attachments]

Mon May 25, 2015 12:15 am (PDT) . Posted by:

"Subroto, Matzen"

Mantab, Terima kasih memories si mbah, semoga ilmu nya jadi ilmu yang manfaat


Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan


Terima Kasih

Matzen



From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2015 12:50
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Droplist By criteria [3 Attachments]


Pilih satu dari tiga warisan si mbah.

Salam,
HK

________________________________
From: "'Subroto, Matzen' matzen.subroto@akzonobel.com<mailto:matzen.subroto@akzonobel.com> [belajar-excel]" <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>>
To: belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>
Sent: Monday, 25 May 2015, 11:16
Subject: [belajar-excel] Droplist By criteria [1 Attachment]


Dear Master Excel,

Mohon pencerahannya untuk droplist by criteria, ketika saya create awalan list, maka yang muncul hanya list yang sesuai dengan awalan hurup tadi

Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan


Terima Kasih

Matzen




__________________________________________________________
This email has been scanned for Viruses and Spam. For more information
please contact your local Business Unit Information Security representative.
__________________________________________________________

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

3

Mengambil keterangan dari suatu kode

Mon May 25, 2015 12:14 am (PDT) . Posted by:

lukmanibrahim931

gimana misalnya ada G1D014001 dan G1C014001,, kita mau tentukan secara otomatis bahwa G1D014001 itu matematika dan G1C014001 itu fisika..?

Reply to sender . Reply to group . Reply via Web Post . All Messages (1) . Top ^

4a

unique data

Mon May 25, 2015 12:16 am (PDT) . Posted by:

"It Dpm" it_dpm

dear para master Excel,
Mohon bantuan atas pertanyaan bagaimana caranya supaya data di kolom D hanya menampilkan data unique (tidak duplikat dan juga tidak kosong) dari kolom B secara dinamis, jadi ketika kita mengubah data di kolom B maka otomatis di kolom D menyesuaikan. terima kasih(contoh file terlampir)

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

4b

Re: unique data [1 Attachment]

Mon May 25, 2015 12:54 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Lagi2 ini warisan si mbah,Copas Macro ini di module1...
Function LOUV(D As Range)   '----------------------------------------------------------   ' membuat daftar unique value berdasarkan range data   ' coded by siti Vi / feb2006, di bluewater /recoded: 1jul2007, di jkt   '----------------------------------------------------------   Dim A(), x(), v, n As Integer, p As Integer, q As Integer, r As Integer   ReDim A(1 To D.Cells.Count)   For n = 1 To UBound(A): A(n) = D.Cells(n): Next n   For n = 1 To UBound(A) - 1      For q = UBound(A) To n + 1 Step -1         p = q - 1         If A(p) > A(q) Then            v = A(p): A(p) = A(q): A(q) = v         Else            If A(p) = A(q) Then A(q) = ""         End If      Next q   Next n   For n = 1 To UBound(A)      If Not A(n) = "" Then         r = r + 1: ReDim Preserve x(1 To r): x(r) = A(n)      End If   Next n   LOUV = WorksheetFunction.Transpose(x)End Function
Blok/sorot sel D1 s/d D175Pada formula bar ketik : = Louv(B1:B176) dan akhiri dengan menekan toambol Ctrl Shift Enter (array formula--> sehingga pada formula bar akan tertulis tanda { } pada awal dan akhir formula.
tanda #N/A menunjukkan data sdh tidak ada
Selamat mencoba.
Salam,HK
NB : agar tidak harus berulang2 menghapus/menulis formula (UDF) di atas maka sebaiknya rangenya disorot sekaligus, mis s/d 1000 baris sekaligus.
From: "It Dpm it_dpm@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 25 May 2015, 13:33
Subject: [belajar-excel] unique data [1 Attachment]

  dear para master Excel,
Mohon bantuan atas pertanyaan bagaimana caranya supaya data di kolom D hanya menampilkan data unique (tidak duplikat dan juga tidak kosong) dari kolom B secara dinamis, jadi ketika kita mengubah data di kolom B maka otomatis di kolom D menyesuaikan. terima kasih(contoh file terlampir)

#yiv9871869353 #yiv9871869353 -- #yiv9871869353ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9871869353 #yiv9871869353ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9871869353 #yiv9871869353ygrp-mkp #yiv9871869353hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9871869353 #yiv9871869353ygrp-mkp #yiv9871869353ads {margin-bottom:10px;}#yiv9871869353 #yiv9871869353ygrp-mkp .yiv9871869353ad {padding:0 0;}#yiv9871869353 #yiv9871869353ygrp-mkp .yiv9871869353ad p {margin:0;}#yiv9871869353 #yiv9871869353ygrp-mkp .yiv9871869353ad a {color:#0000ff;text-decoration:none;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ygrp-lc {font-family:Arial;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ygrp-lc #yiv9871869353hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ygrp-lc .yiv9871869353ad {margin-bottom:10px;padding:0 0;}#yiv9871869353 #yiv9871869353actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9871869353 #yiv9871869353activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9871869353 #yiv9871869353activity span {font-weight:700;}#yiv9871869353 #yiv9871869353activity span:first-child {text-transform:uppercase;}#yiv9871869353 #yiv9871869353activity span a {color:#5085b6;text-decoration:none;}#yiv9871869353 #yiv9871869353activity span span {color:#ff7900;}#yiv9871869353 #yiv9871869353activity span .yiv9871869353underline {text-decoration:underline;}#yiv9871869353 .yiv9871869353attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9871869353 .yiv9871869353attach div a {text-decoration:none;}#yiv9871869353 .yiv9871869353attach img {border:none;padding-right:5px;}#yiv9871869353 .yiv9871869353attach label {display:block;margin-bottom:5px;}#yiv9871869353 .yiv9871869353attach label a {text-decoration:none;}#yiv9871869353 blockquote {margin:0 0 0 4px;}#yiv9871869353 .yiv9871869353bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9871869353 .yiv9871869353bold a {text-decoration:none;}#yiv9871869353 dd.yiv9871869353last p a {font-family:Verdana;font-weight:700;}#yiv9871869353 dd.yiv9871869353last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9871869353 dd.yiv9871869353last p span.yiv9871869353yshortcuts {margin-right:0;}#yiv9871869353 div.yiv9871869353attach-table div div a {text-decoration:none;}#yiv9871869353 div.yiv9871869353attach-table {width:400px;}#yiv9871869353 div.yiv9871869353file-title a, #yiv9871869353 div.yiv9871869353file-title a:active, #yiv9871869353 div.yiv9871869353file-title a:hover, #yiv9871869353 div.yiv9871869353file-title a:visited {text-decoration:none;}#yiv9871869353 div.yiv9871869353photo-title a, #yiv9871869353 div.yiv9871869353photo-title a:active, #yiv9871869353 div.yiv9871869353photo-title a:hover, #yiv9871869353 div.yiv9871869353photo-title a:visited {text-decoration:none;}#yiv9871869353 div#yiv9871869353ygrp-mlmsg #yiv9871869353ygrp-msg p a span.yiv9871869353yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9871869353 .yiv9871869353green {color:#628c2a;}#yiv9871869353 .yiv9871869353MsoNormal {margin:0 0 0 0;}#yiv9871869353 o {font-size:0;}#yiv9871869353 #yiv9871869353photos div {float:left;width:72px;}#yiv9871869353 #yiv9871869353photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv9871869353 #yiv9871869353photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9871869353 #yiv9871869353reco-category {font-size:77%;}#yiv9871869353 #yiv9871869353reco-desc {font-size:77%;}#yiv9871869353 .yiv9871869353replbq {margin:4px;}#yiv9871869353 #yiv9871869353ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9871869353 #yiv9871869353ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9871869353 #yiv9871869353ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9871869353 #yiv9871869353ygrp-mlmsg select, #yiv9871869353 input, #yiv9871869353 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9871869353 #yiv9871869353ygrp-mlmsg pre, #yiv9871869353 code {font:115% monospace;}#yiv9871869353 #yiv9871869353ygrp-mlmsg * {line-height:1.22em;}#yiv9871869353 #yiv9871869353ygrp-mlmsg #yiv9871869353logo {padding-bottom:10px;}#yiv9871869353 #yiv9871869353ygrp-msg p a {font-family:Verdana;}#yiv9871869353 #yiv9871869353ygrp-msg p#yiv9871869353attach-count span {color:#1E66AE;font-weight:700;}#yiv9871869353 #yiv9871869353ygrp-reco #yiv9871869353reco-head {color:#ff7900;font-weight:700;}#yiv9871869353 #yiv9871869353ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ov li a {font-size:130%;text-decoration:none;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9871869353 #yiv9871869353ygrp-sponsor #yiv9871869353ov ul {margin:0;padding:0 0 0 8px;}#yiv9871869353 #yiv9871869353ygrp-text {font-family:Georgia;}#yiv9871869353 #yiv9871869353ygrp-text p {margin:0 0 1em 0;}#yiv9871869353 #yiv9871869353ygrp-text tt {font-size:120%;}#yiv9871869353 #yiv9871869353ygrp-vital ul li:last-child {border-right:none !important;}#yiv9871869353

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

============================================================
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
---------------------------------------------------------------------

Visit Your Group

• New Members 8

• Privacy • Unsubscribe • Terms of Use