Selasa, 04 September 2018

[belajar-excel] Digest Number 4587

9 Messages

Digest #4587
1a
Re: Pembuatan Label secara otomatis [1 Attachment] by "hendrik karnadi" hendrikkarnadi
1b
2a
Re: merekap data tanggal [1 Attachment] by "hendrik karnadi" hendrikkarnadi
2b
Re: merekap data tanggal [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
2c
Re: merekap data tanggal by "Pak Cik Lukman"
4b
Re: Membuat susunan objek tersusun vertikal by "Mr. Kid" nmkid.family@ymail.com
5
Nama userform dijadikan variable by "Tio Adi Bayu Adjie"

Messages

Tue Sep 4, 2018 1:38 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Jatmiko,Coba Copas VBA ini di VBE Sheet (di Module) file terkait,
Option ExplicitSub Looping()
    'Deklarasi Variabel    Dim rng As Range, n As Integer, i As Integer    'Menghapus hasil sebelumnya    Range("J3", Range("J3").End(xlDown)).Resize(, 4).ClearContents    'Baris Awal Hasil (yang pertama)    n = 3    'Looping di Range Input (For Each....)    For Each rng In Sheet1.Range("B3", Range("B3").End(xlDown))        'Looping di Range Output (For i to ......)        For i = 1 To rng.Offset(0, 5).Value            Cells(n, 10).Resize(rng.Offset(0, 5)..Value) = rng.Value            Cells(n, 11)..Resize(rng.Offset(0, 5).Value) = rng.Offset(0, 1).Value            Cells(n, 12).Resize(rng.Offset(0, 5).Value) = rng.Offset(0, 2).Value            Cells(n, 13).Resize(rng.Offset(0, 5).Value) = rng.Offset(0, 4).Value        Next i        'Baris Awal Hasil (berikutnya)        n = n + rng.Offset(0, 5).Value    Next rngEnd Sub
Baris yang berwarna hijau (didahului tanda ' , adalah bahasa manusianya).
Salam,HK

On Monday, 3 September 2018, 11:50:02 PM GMT+7, Jatmiko abuabdillaah99@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Dear Para Master,
Mohon bantuannya,Rencananya kami akan membuat label.
Kami kesulitan ketika harus copy satu persatu data yang akan diprint.misal : order 50, qty per kardus : 10, maka label yang harus di print 5.
(detail ada di file attachment)apakah ada rumus / source code macro untuk mempermudah proses ini?
Terimakasih atas bantuannya.
Best regards,Jatmiko

Tue Sep 4, 2018 4:27 pm (PDT) . Posted by:

"ghozi alkatiri" ghozialkatiri

tulis di J3=IF(ROWS(J$2:J2)>SUM($G$3:$G$6),"",IF(COUNTIF($B$3:$B$6,J2)=0,$B$3,IF(COUNTIF(J$2:J2,J2)=INDEX($G$3:$G$6,MATCH(J2,$B$3:$B$6,0)),INDEX($B$3:$B$6,MATCH(J2,$B$3:$B$6,0)+1),J2)))
copy ke bawah

tulis di K3=IFERROR(INDEX(C$3:C$6,MATCH($J3,$B$3:$B$6,0)),"")
copy ke kanan dan ke bawah
wassalam 
Ghozi Alkatiri Pada Senin, 3 September 2018 23.50.15 WIB, Jatmiko abuabdillaah99@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

Dear Para Master,
Mohon bantuannya,Rencananya kami akan membuat label.
Kami kesulitan ketika harus copy satu persatu data yang akan diprint.misal : order 50, qty per kardus : 10, maka label yang harus di print 5.
(detail ada di file attachment)apakah ada rumus / source code macro untuk mempermudah proses ini?
Terimakasih atas bantuannya.
Best regards,Jatmiko #yiv6172675094 #yiv6172675094 -- #yiv6172675094ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6172675094 #yiv6172675094ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6172675094 #yiv6172675094ygrp-mkp #yiv6172675094hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv6172675094 #yiv6172675094ygrp-mkp #yiv6172675094ads {margin-bottom:10px;}#yiv6172675094 #yiv6172675094ygrp-mkp .yiv6172675094ad {padding:0 0;}#yiv6172675094 #yiv6172675094ygrp-mkp .yiv6172675094ad p {margin:0;}#yiv6172675094 #yiv6172675094ygrp-mkp .yiv6172675094ad a {color:#0000ff;text-decoration:none;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ygrp-lc {font-family:Arial;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ygrp-lc #yiv6172675094hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ygrp-lc .yiv6172675094ad {margin-bottom:10px;padding:0 0;}#yiv6172675094 #yiv6172675094actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6172675094 #yiv6172675094activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6172675094 #yiv6172675094activity span {font-weight:700;}#yiv6172675094 #yiv6172675094activity span:first-child {text-transform:uppercase;}#yiv6172675094 #yiv6172675094activity span a {color:#5085b6;text-decoration:none;}#yiv6172675094 #yiv6172675094activity span span {color:#ff7900;}#yiv6172675094 #yiv6172675094activity span .yiv6172675094underline {text-decoration:underline;}#yiv6172675094 .yiv6172675094attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv6172675094 .yiv6172675094attach div a {text-decoration:none;}#yiv6172675094 .yiv6172675094attach img {border:none;padding-right:5px;}#yiv6172675094 .yiv6172675094attach label {display:block;margin-bottom:5px;}#yiv6172675094 .yiv6172675094attach label a {text-decoration:none;}#yiv6172675094 blockquote {margin:0 0 0 4px;}#yiv6172675094 .yiv6172675094bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv6172675094 .yiv6172675094bold a {text-decoration:none;}#yiv6172675094 dd.yiv6172675094last p a {font-family:Verdana;font-weight:700;}#yiv6172675094 dd.yiv6172675094last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6172675094 dd.yiv6172675094last p span.yiv6172675094yshortcuts {margin-right:0;}#yiv6172675094 div.yiv6172675094attach-table div div a {text-decoration:none;}#yiv6172675094 div.yiv6172675094attach-table {width:400px;}#yiv6172675094 div.yiv6172675094file-title a, #yiv6172675094 div..yiv6172675094file-title a:active, #yiv6172675094 div.yiv6172675094file-title a:hover, #yiv6172675094 div.yiv6172675094file-title a:visited {text-decoration:none;}#yiv6172675094 div.yiv6172675094photo-title a, #yiv6172675094 div.yiv6172675094photo-title a:active, #yiv6172675094 div.yiv6172675094photo-title a:hover, #yiv6172675094 div..yiv6172675094photo-title a:visited {text-decoration:none;}#yiv6172675094 div#yiv6172675094ygrp-mlmsg #yiv6172675094ygrp-msg p a span.yiv6172675094yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6172675094 .yiv6172675094green {color:#628c2a;}#yiv6172675094 .yiv6172675094MsoNormal {margin:0 0 0 0;}#yiv6172675094 o {font-size:0;}#yiv6172675094 #yiv6172675094photos div {float:left;width:72px;}#yiv6172675094 #yiv6172675094photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv6172675094 #yiv6172675094photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6172675094 #yiv6172675094reco-category {font-size:77%;}#yiv6172675094 #yiv6172675094reco-desc {font-size:77%;}#yiv6172675094 .yiv6172675094replbq {margin:4px;}#yiv6172675094 #yiv6172675094ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv6172675094 #yiv6172675094ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv6172675094 #yiv6172675094ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv6172675094 #yiv6172675094ygrp-mlmsg select, #yiv6172675094 input, #yiv6172675094 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv6172675094 #yiv6172675094ygrp-mlmsg pre, #yiv6172675094 code {font:115% monospace;}#yiv6172675094 #yiv6172675094ygrp-mlmsg * {line-height:1.22em;}#yiv6172675094 #yiv6172675094ygrp-mlmsg #yiv6172675094logo {padding-bottom:10px;}#yiv6172675094 #yiv6172675094ygrp-msg p a {font-family:Verdana;}#yiv6172675094 #yiv6172675094ygrp-msg p#yiv6172675094attach-count span {color:#1E66AE;font-weight:700;}#yiv6172675094 #yiv6172675094ygrp-reco #yiv6172675094reco-head {color:#ff7900;font-weight:700;}#yiv6172675094 #yiv6172675094ygrp-reco {margin-bottom:20px;padding:0px;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ov li a {font-size:130%;text-decoration:none;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv6172675094 #yiv6172675094ygrp-sponsor #yiv6172675094ov ul {margin:0;padding:0 0 0 8px;}#yiv6172675094 #yiv6172675094ygrp-text {font-family:Georgia;}#yiv6172675094 #yiv6172675094ygrp-text p {margin:0 0 1em 0;}#yiv6172675094 #yiv6172675094ygrp-text tt {font-size:120%;}#yiv6172675094 #yiv6172675094ygrp-vital ul li:last-child {border-right:none !important;}#yiv6172675094

Tue Sep 4, 2018 2:53 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Hai Pak Cik Lukman,Solusi sederhananya (file telampir) pakai kolom bantu....Kolom bantu bisa dihide.
Salam,HK

On Tuesday, 4 September 2018, 2:53:24 PM GMT+7, Pak Cik Lukman pakciklukman@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

 

Assalamualaikum wr wb
Dear Master Excel,
mohon bantuanya, saya ingin merekap data yg berisikan data tanggal (data berisi lengkap : tgl, bln & tahun), dan hasil rekap yg terbaca adalah bulan & tahun sajadan yg saya inginkan adalah menggunakan formula COUNTIFS
Mohon bantuannya untuk kesulitan saya tsb, saya lampirkan contoh kasus, terima kasih atas bantuan rekan2 semua

Wasallam,

Tue Sep 4, 2018 6:51 pm (PDT) . Posted by:

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

wa'alaikumussalam wr wb

Coba blok tabel hasil area range G4:i10, lalu tulis formula ini :
=COUNTIFS(B$4:B$13,">="&$F4,B$4:B$13,"<="&EOMONTH($F4,0))
lalu tekan CTRL ENTER (tidak pakai tekan SHIFT ya)

Wassalamu'alaikum wr wb
Kid

On Tue, Sep 4, 2018 at 2:53 PM Pak Cik Lukman pakciklukman@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Assalamualaikum wr wb
>
> Dear Master Excel,
>
> mohon bantuanya, saya ingin merekap data yg berisikan data tanggal (data
> berisi lengkap : tgl, bln & tahun), dan hasil rekap yg terbaca adalah bulan
> & tahun saja
> dan yg saya inginkan adalah menggunakan formula COUNTIFS
>
> Mohon bantuannya untuk kesulitan saya tsb, saya lampirkan contoh kasus,
> terima kasih atas bantuan rekan2 semua
>
> Wasallam,
>
>
>

Tue Sep 4, 2018 7:05 pm (PDT) . Posted by:

"Pak Cik Lukman"

Waalaikumsalam,
terima kasih pak Ghozi, Pak Hendrik, dan Mr Kid atas bantuannya
jazakallah khoiron katsir Mr Kid,

wasalam,

Pada tanggal Rab, 5 Sep 2018 pukul 08.51 'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> menulis:

>
>
> wa'alaikumussalam wr wb
>
> Coba blok tabel hasil area range G4:i10, lalu tulis formula ini :
> =COUNTIFS(B$4:B$13,">="&$F4,B$4:B$13,"<="&EOMONTH($F4,0))
> lalu tekan CTRL ENTER (tidak pakai tekan SHIFT ya)
>
> Wassalamu'alaikum wr wb
> Kid
>
>
>
>
>
> On Tue, Sep 4, 2018 at 2:53 PM Pak Cik Lukman pakciklukman@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Assalamualaikum wr wb
>>
>> Dear Master Excel,
>>
>> mohon bantuanya, saya ingin merekap data yg berisikan data tanggal (data
>> berisi lengkap : tgl, bln & tahun), dan hasil rekap yg terbaca adalah bulan
>> & tahun saja
>> dan yg saya inginkan adalah menggunakan formula COUNTIFS
>>
>> Mohon bantuannya untuk kesulitan saya tsb, saya lampirkan contoh kasus,
>> terima kasih atas bantuan rekan2 semua
>>
>> Wasallam,
>>
>>
>

Tue Sep 4, 2018 3:05 am (PDT) . Posted by:

"odong nando"

 br,

odong nando

Dari: "Pak Cik Lukman pakciklukman@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Selasa, 4 September 2018 14:53
Judul: [belajar-excel] merekap data tanggal [1 Attachment]

  Assalamualaikum wr wb
Dear Master Excel,
mohon bantuanya, saya ingin merekap data yg berisikan data tanggal (data berisi lengkap : tgl, bln & tahun), dan hasil rekap yg terbaca adalah bulan & tahun sajadan yg saya inginkan adalah menggunakan formula COUNTIFS
Mohon bantuannya untuk kesulitan saya tsb, saya lampirkan contoh kasus, terima kasih atas bantuan rekan2 semua

Wasallam,
#yiv9745493478 #yiv9745493478 -- #yiv9745493478ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv9745493478 #yiv9745493478ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv9745493478 #yiv9745493478ygrp-mkp #yiv9745493478hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv9745493478 #yiv9745493478ygrp-mkp #yiv9745493478ads {margin-bottom:10px;}#yiv9745493478 #yiv9745493478ygrp-mkp .yiv9745493478ad {padding:0 0;}#yiv9745493478 #yiv9745493478ygrp-mkp .yiv9745493478ad p {margin:0;}#yiv9745493478 #yiv9745493478ygrp-mkp .yiv9745493478ad a {color:#0000ff;text-decoration:none;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ygrp-lc {font-family:Arial;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ygrp-lc #yiv9745493478hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ygrp-lc .yiv9745493478ad {margin-bottom:10px;padding:0 0;}#yiv9745493478 #yiv9745493478actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv9745493478 #yiv9745493478activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv9745493478 #yiv9745493478activity span {font-weight:700;}#yiv9745493478 #yiv9745493478activity span:first-child {text-transform:uppercase;}#yiv9745493478 #yiv9745493478activity span a {color:#5085b6;text-decoration:none;}#yiv9745493478 #yiv9745493478activity span span {color:#ff7900;}#yiv9745493478 #yiv9745493478activity span .yiv9745493478underline {text-decoration:underline;}#yiv9745493478 .yiv9745493478attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv9745493478 .yiv9745493478attach div a {text-decoration:none;}#yiv9745493478 .yiv9745493478attach img {border:none;padding-right:5px;}#yiv9745493478 .yiv9745493478attach label {display:block;margin-bottom:5px;}#yiv9745493478 .yiv9745493478attach label a {text-decoration:none;}#yiv9745493478 blockquote {margin:0 0 0 4px;}#yiv9745493478 .yiv9745493478bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv9745493478 .yiv9745493478bold a {text-decoration:none;}#yiv9745493478 dd.yiv9745493478last p a {font-family:Verdana;font-weight:700;}#yiv9745493478 dd.yiv9745493478last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv9745493478 dd.yiv9745493478last p span.yiv9745493478yshortcuts {margin-right:0;}#yiv9745493478 div.yiv9745493478attach-table div div a {text-decoration:none;}#yiv9745493478 div.yiv9745493478attach-table {width:400px;}#yiv9745493478 div.yiv9745493478file-title a, #yiv9745493478 div.yiv9745493478file-title a:active, #yiv9745493478 div.yiv9745493478file-title a:hover, #yiv9745493478 div.yiv9745493478file-title a:visited {text-decoration:none;}#yiv9745493478 div.yiv9745493478photo-title a, #yiv9745493478 div.yiv9745493478photo-title a:active, #yiv9745493478 div.yiv9745493478photo-title a:hover, #yiv9745493478 div.yiv9745493478photo-title a:visited {text-decoration:none;}#yiv9745493478 div#yiv9745493478ygrp-mlmsg #yiv9745493478ygrp-msg p a span.yiv9745493478yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv9745493478 .yiv9745493478green {color:#628c2a;}#yiv9745493478 .yiv9745493478MsoNormal {margin:0 0 0 0;}#yiv9745493478 o {font-size:0;}#yiv9745493478 #yiv9745493478photos div {float:left;width:72px;}#yiv9745493478 #yiv9745493478photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv9745493478 #yiv9745493478photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv9745493478 #yiv9745493478reco-category {font-size:77%;}#yiv9745493478 #yiv9745493478reco-desc {font-size:77%;}#yiv9745493478 .yiv9745493478replbq {margin:4px;}#yiv9745493478 #yiv9745493478ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv9745493478 #yiv9745493478ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv9745493478 #yiv9745493478ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv9745493478 #yiv9745493478ygrp-mlmsg select, #yiv9745493478 input, #yiv9745493478 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv9745493478 #yiv9745493478ygrp-mlmsg pre, #yiv9745493478 code {font:115% monospace;}#yiv9745493478 #yiv9745493478ygrp-mlmsg * {line-height:1..22em;}#yiv9745493478 #yiv9745493478ygrp-mlmsg #yiv9745493478logo {padding-bottom:10px;}#yiv9745493478 #yiv9745493478ygrp-msg p a {font-family:Verdana;}#yiv9745493478 #yiv9745493478ygrp-msg p#yiv9745493478attach-count span {color:#1E66AE;font-weight:700;}#yiv9745493478 #yiv9745493478ygrp-reco #yiv9745493478reco-head {color:#ff7900;font-weight:700;}#yiv9745493478 #yiv9745493478ygrp-reco {margin-bottom:20px;padding:0px;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ov li a {font-size:130%;text-decoration:none;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv9745493478 #yiv9745493478ygrp-sponsor #yiv9745493478ov ul {margin:0;padding:0 0 0 8px;}#yiv9745493478 #yiv9745493478ygrp-text {font-family:Georgia;}#yiv9745493478 #yiv9745493478ygrp-text p {margin:0 0 1em 0;}#yiv9745493478 #yiv9745493478ygrp-text tt {font-size:120%;}#yiv9745493478 #yiv9745493478ygrp-vital ul li:last-child {border-right:none !important;}#yiv9745493478

Tue Sep 4, 2018 7:39 pm (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Salam B-Exceller,
Mau tanya.
Bagaimana caranya menyusun view object (Project Explorer dan Properties Window) jadi teresusun secara vertikal ?

Penampilan awalnya spt ini. :

[cid:image001.png@01D444FB.414B21F0]

Yg saya mau, bagian yang di kanan di gambar dibawah ini (Properties window) tersusun secara vertikal dengan gambar diatas (Project Explorer) atau bagian kiri gambar dibawah. Saya sudah coba beberapa kali, gak berhasil-berhasil.

Ini gambarnya yang sekarang.
[cid:image002.png@01D444FB.D12AA520]


Thank you
Best Regards,
Tio

Tue Sep 4, 2018 8:33 pm (PDT) . Posted by:

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

Coba klik kanan -> centang Dockable -> drag ke lokasi yang diinginkan (akan
tampak kotak bayangan letak si object)
Kalau ingin pindah ke tempat lainnya lagi, drag si object, lalu gerakkan ke
lokasi yang diinginkan sampai muncul bayangan letak si object.

Regards,
Kid

On Wed, Sep 5, 2018 at 10:03 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Salam B-Exceller,
>
> Mau tanya.
>
> Bagaimana caranya menyusun view object (Project Explorer dan Properties
> Window) jadi teresusun secara vertikal ?
>
>
>
> Penampilan awalnya spt ini. :
>
>
>
>
>
> Yg saya mau, bagian yang di kanan di gambar dibawah ini (Properties
> window) tersusun secara vertikal dengan gambar diatas (Project Explorer)
> atau bagian kiri gambar dibawah. Saya sudah coba beberapa kali, gak
> berhasil-berhasil.
>
>
>
> Ini gambarnya yang sekarang.
>
>
>
>
>
> Thank you
>
> Best Regards,
>
> Tio
>
>
>
>

Tue Sep 4, 2018 9:52 pm (PDT) . Posted by:

"Tio Adi Bayu Adjie"

Salam B-Exceller,
Mau tanya.
Saya mau cari tahu nama control di masing-masing userform . Untuk itu saya mau memanggil sub procedure dengan variable nama userform. Permasalahannya saya tidak bisa memanggil berdasarkan nama userform.
Yang sudah saya lakukan adalah.
Contoh: ada 2 userform namanya formmaterial dan myform.

Private sub commandbutton1_click
Call listcontrol("formmaterial")
End sub

Private sub commandbutton2_click
Call listcontrol("myform")
End sub

Public sub listcontrol(strrform as string)
Dim c as controls
For each c in Me.controls '==>yang ini gagal, karena tidak boleh pakai Me.. Yang diinginkan adalah namauserform tergantung dari nama userform dari tiap prosedur yang memanggil.
Msgbox c.name
Next c

End sub


Terima kasih. Semoga Allah membalas kebaikannya. Amiin...

Best Regards,
Tio

============================================================
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
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 22.12

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)