[belajar-excel] Digest Number 4178

Milis Belajar Microsoft Excel Group

4 Messages

Digest #4178

1a

Re: Link ribbon tak berfungsi by "nangagus"

2

Bls: [belajar-excel] Cara Menampilkan data dari 2 tabel secara urut by "Fahmi Syaifullah" fahmisyaifullah20

3a

Re: ambil range acuan by "Mr. Kid" nmkid.family@ymail.com

4a

Re: Memasukkan nilai dari text box yang textboxnya dibuat otomatis [ by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Link ribbon tak berfungsi

Tue May 9, 2017 5:07 pm (PDT) . Posted by:

"nangagus"

Asalamualaikum warahmatullah

Dear Farud.

Jika memprotect sheet sebaiknya menggunakan userInterfaceOnly = true,
jika dipilih ini berarti kita dapat mengubah, mengisi dan menghapus cell
yang terprotect menggunakan VBA, tetapi cell tersebut tidak dapat diubah
manual karena terprotect.

Pembacaan excel untuk cekrip anda sbb:

For Each sh In ThisWorkbook.Worksheets 'untuk setiap sheet dalam semua
sheets tolong di chek satu persatu
If sh.Name <> "awas" Then ' jika sheet yang diperiksa bernama
"awas" maka:
sh.Protect Rahasia 'sheet tersebut di kunci dengan password
yang disimpan dalam variabel Rahasia
End If 'batas akhir Jika
Next sh ' chek sheet berikutnya sampai sheet akhir
Application.ScreenUpdating = True ' dalam melaksanakan perintah saya
jangan ditampakkan di layar yaa!

Selamat belajar semoga sukses, (saya sudah belajar menggunakan excel 20
tahun ternyata tetap masih belum mahir menggunakan excel)

On 09/05/17 15.47, farud oke farud.oke@gmail.com [belajar-excel] wrote:
>
> Terimakasih mas agus atas jawabannya..
> Sudah sesuai dg harapan mas..
> Oiya mas..satu lagi,trus terang kode vba saya itu hasil googling sana
> sini dimana ketika membuka file otomatis file itu terkunci sendiri
> mas.agar tidak serta merta otomatis mengunci bagian mana dari kode vba
> itu yg hrus ditambah atau dihapus mas..
> Atas bimbingannya saya sampaikan terimakasih
>
>
> ----------------------------------------------------------
> Posted by: farud oke <farud.oke@gmail.com>
> ----------------------------------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/42137;_ylc=X3oDMTJyZW40ZHY4BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0MjEzNwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE0OTQzMjA0ODk-?act=reply&messageNum=42137>
> • Reply to sender
> <mailto:farud.oke@gmail.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Link%20ribbon%20tak%20berfungsi>
> • Reply to group
> <mailto:belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Link%20ribbon%20tak%20berfungsi>
> • Start a New Topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/newtopic;_ylc=X3oDMTJmbWhxOXUyBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNudHBjBHN0aW1lAzE0OTQzMjA0ODk->
> • Messages in this topic
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/42133;_ylc=X3oDMTM3cDFvajllBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0MjEzNwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE0OTQzMjA0ODkEdHBjSWQDNDIxMzM->
> (3)
>
> ----------------------------------------------------------
> Have you tried the highest rated email app? <https://yho.com/1wwmgg>
> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated
> email app on the market. What are you waiting for? Now you can access
> all your inboxes (Gmail, Outlook, AOL and more) in one place. Never
> delete an email again with 1000GB of free cloud storage.
> ----------------------------------------------------------
> ============================================================
> 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
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmN2tsc2JhBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE0OTQzMjA0ODk->
>
>
> * New Members
> <https://groups.yahoo.com/neo/groups/belajar-excel/members/all;_ylc=X3oDMTJnMGdpcTRmBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2bWJycwRzdGltZQMxNDk0MzIwNDg5>
> 7
>
> Yahoo! Groups
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJlNTNvYjVjBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTQ5NDMyMDQ4OQ-->
>
> • Privacy
> <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <mailto:belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe>
> • Terms of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> .
>
>

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

2

Bls: [belajar-excel] Cara Menampilkan data dari 2 tabel secara urut

Tue May 9, 2017 6:28 pm (PDT) . Posted by:

"Fahmi Syaifullah" fahmisyaifullah20

assalamu'alaikum wr.wb
Pak MARCO SLX
coba baca-baca di blog mr kid biar bisa lebih ber inovasi. dengan kata kunci formula filter data.file terlampir dengan persyaratan mempunyai 2 tabel berbeda (seperti tabel rujukan rumus) tidak bisa dijadikan 1 tabel karna pengetahuan saya, mngkin master lain bisa membantu

mudah2an membantu.
wassalamu'alaikum wr.wb fahmi

Pada Sabtu, 6 Mei 2017 14:24, "Marco Slx slx_marco@yahoo.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Mohon bantuannya master, saya ingin membuat suatu tabel yang akan menampilkan data dari 2 tabel, namun berurutan dari tanggal muda hingga ke tua, ma'f saya kurang pandai dalam menjelaskan detailnya, namun file terlampir semoga saja bisa master" mengerti maksud saya.
Lampiran file excel terlampir,

Demikian saya sampaikan,
Terima kasih,
Salam,
MARCO SLX #yiv1140965742 -- #yiv1140965742ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1140965742 #yiv1140965742ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1140965742 #yiv1140965742ygrp-mkp #yiv1140965742hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv1140965742 #yiv1140965742ygrp-mkp #yiv1140965742ads {margin-bottom:10px;}#yiv1140965742 #yiv1140965742ygrp-mkp .yiv1140965742ad {padding:0 0;}#yiv1140965742 #yiv1140965742ygrp-mkp .yiv1140965742ad p {margin:0;}#yiv1140965742 #yiv1140965742ygrp-mkp .yiv1140965742ad a {color:#0000ff;text-decoration:none;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ygrp-lc {font-family:Arial;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ygrp-lc #yiv1140965742hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ygrp-lc .yiv1140965742ad {margin-bottom:10px;padding:0 0;}#yiv1140965742 #yiv1140965742actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1140965742 #yiv1140965742activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1140965742 #yiv1140965742activity span {font-weight:700;}#yiv1140965742 #yiv1140965742activity span:first-child {text-transform:uppercase;}#yiv1140965742 #yiv1140965742activity span a {color:#5085b6;text-decoration:none;}#yiv1140965742 #yiv1140965742activity span span {color:#ff7900;}#yiv1140965742 #yiv1140965742activity span .yiv1140965742underline {text-decoration:underline;}#yiv1140965742 .yiv1140965742attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv1140965742 .yiv1140965742attach div a {text-decoration:none;}#yiv1140965742 .yiv1140965742attach img {border:none;padding-right:5px;}#yiv1140965742 .yiv1140965742attach label {display:block;margin-bottom:5px;}#yiv1140965742 .yiv1140965742attach label a {text-decoration:none;}#yiv1140965742 blockquote {margin:0 0 0 4px;}#yiv1140965742 .yiv1140965742bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv1140965742 .yiv1140965742bold a {text-decoration:none;}#yiv1140965742 dd.yiv1140965742last p a {font-family:Verdana;font-weight:700;}#yiv1140965742 dd.yiv1140965742last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1140965742 dd.yiv1140965742last p span.yiv1140965742yshortcuts {margin-right:0;}#yiv1140965742 div.yiv1140965742attach-table div div a {text-decoration:none;}#yiv1140965742 div.yiv1140965742attach-table {width:400px;}#yiv1140965742 div.yiv1140965742file-title a, #yiv1140965742 div.yiv1140965742file-title a:active, #yiv1140965742 div.yiv1140965742file-title a:hover, #yiv1140965742 div.yiv1140965742file-title a:visited {text-decoration:none;}#yiv1140965742 div.yiv1140965742photo-title a, #yiv1140965742 div.yiv1140965742photo-title a:active, #yiv1140965742 div.yiv1140965742photo-title a:hover, #yiv1140965742 div.yiv1140965742photo-title a:visited {text-decoration:none;}#yiv1140965742 div#yiv1140965742ygrp-mlmsg #yiv1140965742ygrp-msg p a span.yiv1140965742yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv1140965742 .yiv1140965742green {color:#628c2a;}#yiv1140965742 .yiv1140965742MsoNormal {margin:0 0 0 0;}#yiv1140965742 o {font-size:0;}#yiv1140965742 #yiv1140965742photos div {float:left;width:72px;}#yiv1140965742 #yiv1140965742photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv1140965742 #yiv1140965742photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv1140965742 #yiv1140965742reco-category {font-size:77%;}#yiv1140965742 #yiv1140965742reco-desc {font-size:77%;}#yiv1140965742 .yiv1140965742replbq {margin:4px;}#yiv1140965742 #yiv1140965742ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv1140965742 #yiv1140965742ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv1140965742 #yiv1140965742ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv1140965742 #yiv1140965742ygrp-mlmsg select, #yiv1140965742 input, #yiv1140965742 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv1140965742 #yiv1140965742ygrp-mlmsg pre, #yiv1140965742 code {font:115% monospace;}#yiv1140965742 #yiv1140965742ygrp-mlmsg * {line-height:1.22em;}#yiv1140965742 #yiv1140965742ygrp-mlmsg #yiv1140965742logo {padding-bottom:10px;}#yiv1140965742 #yiv1140965742ygrp-msg p a {font-family:Verdana;}#yiv1140965742 #yiv1140965742ygrp-msg p#yiv1140965742attach-count span {color:#1E66AE;font-weight:700;}#yiv1140965742 #yiv1140965742ygrp-reco #yiv1140965742reco-head {color:#ff7900;font-weight:700;}#yiv1140965742 #yiv1140965742ygrp-reco {margin-bottom:20px;padding:0px;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ov li a {font-size:130%;text-decoration:none;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv1140965742 #yiv1140965742ygrp-sponsor #yiv1140965742ov ul {margin:0;padding:0 0 0 8px;}#yiv1140965742 #yiv1140965742ygrp-text {font-family:Georgia;}#yiv1140965742 #yiv1140965742ygrp-text p {margin:0 0 1em 0;}#yiv1140965742 #yiv1140965742ygrp-text tt {font-size:120%;}#yiv1140965742 #yiv1140965742ygrp-vital ul li:last-child {border-right:none !important;}#yiv1140965742

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

3a

Re: ambil range acuan

Tue May 9, 2017 6:47 pm (PDT) . Posted by:

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

Wa'alaikumussalam wr wb

Hai Fami,

Trit ini sudah lama sekali belum ada yang merespon ya...
Ternyata memang makna kalimatnya bisa berarti banyak.

1. Bagian ini :
Dim range1 As Range
Dim range2 As Integer
Range("A1", Range("A1").End(xlDown)).Select
Set range1 = Selection.Offset(1, 0).Select

Misal data ada di baris 1 (header) sampai baris 87 (record data di baris 2
sampai 87).
Range("A1", Range("A1").End(xlDown)).Select
menghasilkan blok range A1:A87

Kemudian, range A1:A87 tersebut di offset 1 baris oleh baris berikut :
Set range1 = Selection.Offset(1, 0) '*tanpa .Select*
menghasilkan blok range A2:A88

*** Lalu blok range dari A2 sampai dengan A88 ini mau diapakan ? Karena
bunyi script ini tidak mencerminkan relasi yang erat dengan bagian lain
dari kalimat pertanyaan dalam kasus ini.
*** Penggunaan End(xlDown) beresiko pada data yang kosong, misal pada saat
tidak ada record data alias hanya ada header, maka proses ini menghasilkan
sesuatu yang benar-benar tidak diinginkan karena bisa sampai baris yang ada
data berikutnya atau malah sampai baris terakhir Excel (1jt brp gitu).
*** Jadi, gunakan End(xlDown) khusus pada tabel yang tidak boleh kosong
(selalu pasti minimal ada 1 record data).

Jika data di baris 1 sampai 87 itu tidak ada baris kosongnya, maka untuk
mendapatkan area range A1:A87 bisa dengan :
dim range1 as range
set range1=range("a1").currentregion.resize(,1) 'di A1, tekan ctrl A,
lalu perkecil areanya menjadi 1 kolom saja -> hasilnya range A1:A87

Jika data di baris 1 sampai 87 itu tidak ada baris kosongnya, maka untuk
mendapatkan area range A2:A88 (offset 1 baris) bisa dengan :
dim range1 as range
set range1=range("a1").currentregion.resize(,1).offset(1) 'di A1, tekan
ctrl A, lalu perkecil areanya menjadi 1 kolom saja, offset 1 baris -> range
A2:A88

**** Hindari penggunaan Select dan Selection*

2. Bagian ini :
jadi ingin saya itu adalah mengambil baris sih A yang sudah di End dan yang
sudah di Offset
contoh karna sudah di Offset menjadi cell A88 nah saya ingin mengambil
angka 88 itu
Berarti mau mengambil nomor baris suatu cells.
Biasanya nomor baris didapat dengan menggunakan properti Row milik si
object range.
Pakai contoh saja.
dim rng as range, lxlRowNumber as long
set rng=range("g17")
lxlrownumber=rng.row 'atau kalau mau langsung,
lxlrownumber=range("g17").row

Jadi, pada kasus ini,
1. kalimat ini :
jadi ingin saya itu adalah mengambil baris sih A yang sudah di End
TIDAK bisa menggunakan baris kode yang Anda buat tersebut. Alias baris kode
ANda tidak mendapatkan cells terakhir (End) seperti yang Anda maksudkan.

Untuk mendapatkan nomor baris cells terakhir (asumsi, minimal selalu ada 1
record)
dim range2 as long 'jangan pakai integer, karena integer hanya cukup
sampai baris Excel puluhan ribu doang
range2=range("a1").end(xldown).row 'hasilnya nomor baris terakhir
yang ada datanya

Jika tabel data selalu dijaga TIDAK ada baris kosong tapi bisa jadi masih
kosong alias belum diisi record apapun (header only)
dim range2 as long
range2=range("a1").currentregion.specialcells(xlcelltypelastcell).row
'ini seperti pakai goto special pilih last cells dari area yang di blok
*** Hayo... belum paham pakai goto dan goto special ya... mbok yao fitur
Excel dipelajari dulu, baru rajin belajar VBA

2. Kalimat ini :
jadi ingin saya itu adalah mengambil baris sih A yang sudah di End dan yang
sudah di Offset
TIDAK bisa menggunakan baris kode yang Anda buat tersebut. Alias baris kode
ANda tidak mendapatkan cells terakhir (End) seperti yang Anda maksudkan.

Untuk mendapatkan nomor baris cells hasil offset 1 baris dari cells
terakhir (asumsi, minimal selalu ada 1 record)
dim range2 as long 'jangan pakai integer, karena integer hanya cukup
sampai baris Excel puluhan ribu doang
range2=range("a1").end(xldown).offset(1).row 'hasilnya nomor baris
cells hasil offset 1 baris dari cells terakhir yang ada datanya

Jika tabel data selalu dijaga TIDAK ada baris kosong tapi bisa jadi masih
kosong alias belum diisi record apapun (header only)
dim range2 as long
range2=range("a1").currentregion.specialcells(xlcelltypelastcell).offset(1).row
'ini seperti pakai goto special pilih last cells dari area yang di blok
lalu offset 1
bisa juga begini :
dim range2 as long
range2=range("a1").offset(range("a1").currentregion.rows.count).row

3. Kalimat ini :
contoh karna sudah di Offset menjadi cell A88 nah saya ingin mengambil
angka 88 itu kemudian di tambah dengan 20 dan supaya nanti range
A88:A108 saya proses hidden (angka 20 itu selalu menetap karna admin lain
selalu menampilkan header tambahan dengan mengcocy tabel diatasnya jadi
selalu sama tabel atas dengan tabel bawah)
>> Pertanyaannya, apa isi 20 baris itu ? Kenapa di-hide ? Apakah tabel yang
di-copy admin itu akan disambungkan dengan tabel yang di A1 ? Kalau memang
maksudnya disambungkan, kenapa 20 baris itu hanya di-hide ?
Jawaban setiap pertanyaan di atas bisa membuat proses yang dilakukan
menjadi berbeda. Artinya baris kodenya juga akan berbeda. Bahkan mungkin
ada yang lebih efisien.

btw, fokus pada :
contoh karna sudah di Offset menjadi cell A88 nah saya ingin mengambil
angka 88 itu kemudian di tambah dengan 20 dan supaya nanti range
A88:A108
Artinya ingin ada range A88:A108 yang siap diproses. Misal range ini
disimpan dalam variabel object range bernama range1. Kondisi data seperti
nomor-nomor awal di atas sana ya... (minimal selalu pasti ada record data
di baris 2 Excel)
dim range1 as range
set range1=range("a1").end(xldown).offset(1).resize(20) 'dari A1, ke
cells terakhir kolom A yang ada datanya, offset 1 baris, perluas jadi 20
baris

Prosesnya bisa bermacam-macam, seperti :
> Hide
range1.entirerow.hidden=true
> Buang (delete BUKAN CLEAR CONTENTS atau BUKAN tekan tombol DELETE di
keyboard)
range1.entirerow.delete

4. Kalimat ini :
dalam satu worksheet bisa ada 30 tabel maklum deh adminnya belum tau kaedah
database yang benar.
>> Maksudnya tabel hasil copy-an si admin yang butuh belajar itu, yang ada
30 itu akan diapakan ? Mau dibuang ? Mau di hide data hasil copy-an nya ?
>> Lalu kalau dah bisa pakai baris kode di atas terus mau belajar Loop
untuk bisa dapatkan cells kosong yang 20 baris antar tabel hasil copy-an
admin itu kemudian di-hide gitu ? ciyuz? gitu ?

hmmm....
sepertinya beneran perlu belajar tentang fitur Goto dan Goto Special deh...
(daripada meluangkan waktu belajar loop sekedar untuk menyelsaikan kasus
ini)

Wassalamu'alaikum wr wb
Kid

2017-04-25 9:46 GMT+07:00 Fahmi Syaifullah fahmisyaifullah20@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> assalamu'alaikum Wr.Wb
>
> BeExeller yang baik hati, mau tanya
>
> saya membuat suatu coding VBA seperti ini
>
> Dim range1 As Range
> Dim range2 As Integer
> Range("A1", Range("A1").End(xlDown)).Select
> Set range1 = Selection.Offset(1, 0).Select
> range2 = ....
>
>
> jadi ingin saya itu adalah mengambil baris sih A yang sudah di End dan
> yang sudah di Offset
> contoh karna sudah di Offset menjadi cell A88 nah saya ingin mengambil
> angka 88 itu kemudian di tambah dengan 20 dan supaya nanti range
> A88:A108 saya proses hidden (angka 20 itu selalu menetap karna admin lain
> selalu menampilkan header tambahan dengan mengcocy tabel diatasnya jadi
> selalu sama tabel atas dengan tabel bawah) dalam satu worksheet bisa ada 30
> tabel maklum deh adminnya belum tau kaedah database yang benar.
>
>
> mohon bantuannya BeExceller sekalian.
>
> Terima Kasih,
> wassalamu'alaikum Wr.Wb
> Fahmi
>
>
>

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

4a

Re: Memasukkan nilai dari text box yang textboxnya dibuat otomatis [

Tue May 9, 2017 7:03 pm (PDT) . Posted by:

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

Hai Tio,

Membuat 3 textbox dengan posisi textbox1 jauh di bawah, textbox 2 dan 3 di
lokasi yang sama persis, maka textbox yang terakhir dibuat yang aktif.
Memasukkan data hanya textbox ke-1 saja, maka pasti hanya ada 1 cells saja
yang terisi.
Jika Exit for dalam proses 'memasukkan data' dibuang, maka hanya membaca 2
textbox saja, yaitu textbox 1 dan 2. Sedangkan yang diisi user adalah
textbox 1 dan textbox 3 (karena textbox 2 ada di belakang textbox 3 dan
tidak mungkin diisi oleh user).

Itu masalah logika peletakan textbox nya.

Regards,
Kid

2017-04-06 9:45 GMT+07:00 Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Salam BeExceller,
>
> Saya sudah berhasil membuat textbox di Userform dengan code vba. Tapi
> setelah saya masukkan nilai di textbox, dan kemudian saya klik tombol
> "masukkan data" (masukkan data ke suatu cell di worksheets) ternyata tidak
> berhasil. Saya sudah coba berkali2 modif code vba "masukkan data" tetap
> gagal. Apakah ada yang salah di code vba "masukkan data" ? File terlampir.
>
>
>
> Mohon pencerahannya.
>
>
>
> Regards,
>
>
>
>
>
>
>

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 6

• Privacy • Unsubscribe • Terms of Use