5 Messages
Digest #4195
Messages
Thu May 25, 2017 10:57 pm (PDT) . Posted by:
"heru Rasna"
Assalamualaikum....salam hormat para master exceller sekalian...
kasus :ada 2 textbox- alamat ktp- alamat sekaranghasil yng di inginkan jika alamat alamat sekarangn sama dengan alamat ktp maka ketika checkbox di centang alamat sekarang terisi otomatis sama dengan alamat ktp.jika tidak dicentang maka alamat sekarang bisa diisi sesuai alamat terbaru
mohon petunjuk penulisan coding vba nya master
untuk jelas terlampir screnshoot
kasus :ada 2 textbox- alamat ktp- alamat sekaranghasil yng di inginkan jika alamat alamat sekarangn sama dengan alamat ktp maka ketika checkbox di centang alamat sekarang terisi otomatis sama dengan alamat ktp.jika tidak dicentang maka alamat sekarang bisa diisi sesuai alamat terbaru
mohon petunjuk penulisan coding vba nya master
untuk jelas terlampir screnshoot
Thu May 25, 2017 10:58 pm (PDT) . Posted by:
"Heru Safrudin" heru.safrudin
Yth. Mr. Kid
Ternyata ada yg lebih sederhana dan sudah mencukupi kebutuhan yang saya maksud, dengan kode sbb:
Dim NFile As String
NFile = Dir(ThisWorkbook.Path & "\heru.*")
If NFile <> "" Then ActiveSheet.Shapes(1).Fill.UserPicture (ThisWorkbook.Path & "\" & NFile)
Wassalam
Heru Safrudin
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang
Wa'alaikumussalam wr wb
Hai Heru,
File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.
Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.
Wassalamu'alaikum wr wb
Kid
2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Be-Exceller
اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)
Contoh:
activesheet.shapes(1).fill.UserPicture "c:\documents92;gambar92;heru" ß (file gambar bernama heru(*.png, *.gif, *.jpg, *.bmp dll))
Mohon pembelajarannya
Terima kasih
وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Heru Safrudin
Ternyata ada yg lebih sederhana dan sudah mencukupi kebutuhan yang saya maksud, dengan kode sbb:
Dim NFile As String
NFile = Dir(ThisWorkbook.Path & "\heru.*")
If NFile <> "" Then ActiveSheet.Shapes(1).Fill.UserPicture (ThisWorkbook.Path & "\" & NFile)
Wassalam
Heru Safrudin
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang
Wa'alaikumussalam wr wb
Hai Heru,
File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.
Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.
Wassalamu'alaikum wr wb
Kid
2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Be-Exceller
اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)
Contoh:
activesheet.
Mohon pembelajarannya
Terima kasih
وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Heru Safrudin
Thu May 25, 2017 10:58 pm (PDT) . Posted by:
"Heru Safrudin" heru.safrudin
Ok. Terima kasih Mr.
Wassalam
Heru Safarudin
ajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang
Wa'alaikumussalam wr wb
Hai Heru,
File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.
Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.
Wassalamu'alaikum wr wb
Kid
2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Be-Exceller
اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)
Contoh:
activesheet.shapes(1).fill.UserPicture "c:\documents92;gambar92;heru" ß (file gambar bernama heru(*.png, *.gif, *.jpg, *.bmp dll))
Mohon pembelajarannya
Terima kasih
وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Heru Safrudin
Wassalam
Heru Safarudin
ajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 25 Mei 2017 14:06
To: BeExcel
Subject: Re: [belajar-excel] Tempel file gambar ekstensi sembarang
Wa'alaikumussalam wr wb
Hai Heru,
File gambarnya biar dipilih oleh user saja. Load dialog get filename dengan memberi filter ekstensi yang mampu diproses. Sebaiknya ketahui dulu file gambar dengan format apa saja yang bisa digunakan oleh object yang Anda gunakan.
Contoh pengambilan nama file ada disini <https://app.box.com/s/2pirry5wkdhy9pulq7jq562e5pm2cu3a> . Tambahkan filternya dengan susunan (struktur) seperti yang dicontohkan dalam file tersebut.
Wassalamu'alaikum wr wb
Kid
2017-05-20 12:12 GMT+07:00 'Heru Safrudin' fcprocessing.bisikediri@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>:
Dear Be-Exceller
اَلسَّــــلَامُ عَلًيْــــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Bagaimanakah caranya menempelkan gambar yang mana nama ekstensi atau format file gambar tidak diketahui ( bisa png, gif, jpg, bmp dll)
Contoh:
activesheet.
Mohon pembelajarannya
Terima kasih
وَالسَّـــلَامُ عَلَيْـــكُمْ وَرَحْمَةُ اللـــهِ وَبَرَكَاتُـــهُ
Heru Safrudin
Thu May 25, 2017 11:41 pm (PDT) . Posted by:
"Ryan Sacth" ryan_sacth
Waalaikumsallam.
Sesuai dengan masalahmu, saya coba bantu yah. Mungkin ini hanya sederhana dan para master di sini bisa bantu sempurnakan.
Karena saya tidak mengetahui nama Object dari Textbox dan CheckBox kamu maka saya indikasikan dengan:
namacheckboxkamu ----> Untuk Object CheckBox
namatextboalamatsesuaiKTP ----> Untuk Object TextBox
namatextboxalamatsekarang ----> Untuk Object TextBox
Letakkan code ini pada Userform yang digunakan.
Private Sub namacheckboxkamu_Click()
If namacheckboxkamu.Value = True Then
namatextboalamatsesuaiKTP.Value = namatextboxalamatsekarang.Value
Else
namatextboxalamatsekarang.Value = ""
End If
End Sub
Demikian, semoga berhasil.
Wassalam.
--------------------------------------------
On Thu, 5/25/17, heru Rasna herurasna@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: [belajar-excel] VBA menampilkan textbox jika kondisi sama [2 Attachments]
To: belajar-excel@yahoogroups.com
Date: Thursday, May 25, 2017, 9:27 PM
Assalamualaikum....salam
hormat para master exceller sekalian...
kasus
:ada 2
textbox-
alamat ktp-
alamat sekaranghasil
yng di inginkan jika alamat alamat sekarangn sama dengan
alamat ktp maka ketika checkbox di centang alamat sekarang
terisi otomatis sama dengan alamat ktp.jika
tidak dicentang maka alamat sekarang bisa diisi sesuai
alamat terbaru
mohon
petunjuk penulisan coding vba nya master
untuk
jelas terlampir screnshoot
#yiv7997502934 #yiv7997502934 --
#yiv7997502934ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv7997502934 #yiv7997502934ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv7997502934 #yiv7997502934ygrp-mkp #yiv7997502934ads {
margin-bottom:10px;}
#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad {
padding:0 0;}
#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad p {
margin:0;}
#yiv7997502934 #yiv7997502934ygrp-mkp .yiv7997502934ad a {
color:#0000ff;text-decoration:none;}
#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc {
font-family:Arial;}
#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc #yiv7997502934hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv7997502934 #yiv7997502934ygrp-sponsor
#yiv7997502934ygrp-lc .yiv7997502934ad {
margin-bottom:10px;padding:0 0;}
#yiv7997502934 #yiv7997502934actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv7997502934 #yiv7997502934activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv7997502934 #yiv7997502934activity span {
font-weight:700;}
#yiv7997502934 #yiv7997502934activity span:first-child {
text-transform:uppercase;}
#yiv7997502934 #yiv7997502934activity span a {
color:#5085b6;text-decoration:none;}
#yiv7997502934 #yiv7997502934activity span span {
color:#ff7900;}
#yiv7997502934 #yiv7997502934activity span
.yiv7997502934underline {
text-decoration:underline;}
#yiv7997502934 .yiv7997502934attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv7997502934 .yiv7997502934attach div a {
text-decoration:none;}
#yiv7997502934 .yiv7997502934attach img {
border:none;padding-right:5px;}
#yiv7997502934 .yiv7997502934attach label {
display:block;margin-bottom:5px;}
#yiv7997502934 .yiv7997502934attach label a {
text-decoration:none;}
#yiv7997502934 blockquote {
margin:0 0 0 4px;}
#yiv7997502934 .yiv7997502934bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv7997502934 .yiv7997502934bold a {
text-decoration:none;}
#yiv7997502934 dd.yiv7997502934last p a {
font-family:Verdana;font-weight:700;}
#yiv7997502934 dd.yiv7997502934last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv7997502934 dd.yiv7997502934last p
span.yiv7997502934yshortcuts {
margin-right:0;}
#yiv7997502934 div.yiv7997502934attach-table div div a {
text-decoration:none;}
#yiv7997502934 div.yiv7997502934attach-table {
width:400px;}
#yiv7997502934 div.yiv7997502934file-title a, #yiv7997502934
div.yiv7997502934file-title a:active, #yiv7997502934
div.yiv7997502934file-title a:hover, #yiv7997502934
div.yiv7997502934file-title a:visited {
text-decoration:none;}
#yiv7997502934 div.yiv7997502934photo-title a,
#yiv7997502934 div.yiv7997502934photo-title a:active,
#yiv7997502934 div.yiv7997502934photo-title a:hover,
#yiv7997502934 div.yiv7997502934photo-title a:visited {
text-decoration:none;}
#yiv7997502934 div#yiv7997502934ygrp-mlmsg
#yiv7997502934ygrp-msg p a span.yiv7997502934yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv7997502934 .yiv7997502934green {
color:#628c2a;}
#yiv7997502934 .yiv7997502934MsoNormal {
margin:0 0 0 0;}
#yiv7997502934 o {
font-size:0;}
#yiv7997502934 #yiv7997502934photos div {
float:left;width:72px;}
#yiv7997502934 #yiv7997502934photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}
#yiv7997502934 #yiv7997502934photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv7997502934 #yiv7997502934reco-category {
font-size:77%;}
#yiv7997502934 #yiv7997502934reco-desc {
font-size:77%;}
#yiv7997502934 .yiv7997502934replbq {
margin:4px;}
#yiv7997502934 #yiv7997502934ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg select,
#yiv7997502934 input, #yiv7997502934 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg pre, #yiv7997502934
code {
font:115% monospace;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg * {
line-height:1.22em;}
#yiv7997502934 #yiv7997502934ygrp-mlmsg #yiv7997502934logo {
padding-bottom:10px;}
#yiv7997502934 #yiv7997502934ygrp-msg p a {
font-family:Verdana;}
#yiv7997502934 #yiv7997502934ygrp-msg
p#yiv7997502934attach-count span {
color:#1E66AE;font-weight:700;}
#yiv7997502934 #yiv7997502934ygrp-reco
#yiv7997502934reco-head {
color:#ff7900;font-weight:700;}
#yiv7997502934 #yiv7997502934ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
li a {
font-size:130%;text-decoration:none;}
#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv7997502934 #yiv7997502934ygrp-sponsor #yiv7997502934ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv7997502934 #yiv7997502934ygrp-text {
font-family:Georgia;}
#yiv7997502934 #yiv7997502934ygrp-text p {
margin:0 0 1em 0;}
#yiv7997502934 #yiv7997502934ygrp-text tt {
font-size:120%;}
#yiv7997502934 #yiv7997502934ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7997502934
Sesuai dengan masalahmu, saya coba bantu yah. Mungkin ini hanya sederhana dan para master di sini bisa bantu sempurnakan.
Karena saya tidak mengetahui nama Object dari Textbox dan CheckBox kamu maka saya indikasikan dengan:
namacheckboxkamu ----> Untuk Object CheckBox
namatextboalamatsesuaiKTP ----> Untuk Object TextBox
namatextboxalamatsekarang ----> Untuk Object TextBox
Letakkan code ini pada Userform yang digunakan.
Private Sub namacheckboxkamu_Click()
If namacheckboxkamu.Value = True Then
namatextboalamatsesuaiKTP.Value = namatextboxalamatsekarang.Value
Else
namatextboxalamatsekarang.Value = ""
End If
End Sub
Demikian, semoga berhasil.
Wassalam.
--------------------------------------------
On Thu, 5/25/17, heru Rasna herurasna@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
Subject: [belajar-excel] VBA menampilkan textbox jika kondisi sama [2 Attachments]
To: belajar-excel@yahoogroups.com
Date: Thursday, May 25, 2017, 9:27 PM
Assalamualaikum.
hormat para master exceller sekalian...
kasus
:ada 2
textbox-
alamat ktp-
alamat sekaranghasil
yng di inginkan jika alamat alamat sekarangn sama dengan
alamat ktp maka ketika checkbox di centang alamat sekarang
terisi otomatis sama dengan alamat ktp.jika
tidak dicentang maka alamat sekarang bisa diisi sesuai
alamat terbaru
mohon
petunjuk penulisan coding vba nya master
untuk
jelas terlampir screnshoot
#yiv7997502934 #yiv7997502934 --
#yiv7997502934ygrp-
border:1px solid #d8d8d8;font-
0;padding:0 10px;}
#yiv7997502934 #yiv7997502934ygrp-
border:1px solid #d8d8d8;}
#yiv7997502934 #yiv7997502934ygrp-
color:#628c2a;
0;}
#yiv7997502934 #yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934ygrp-
padding:0 0;}
#yiv7997502934 #yiv7997502934ygrp-
margin:0;}
#yiv7997502934 #yiv7997502934ygrp-
color:#0000ff;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
margin:10px
0px;font-weight:
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934actio
font-family:
#yiv7997502934 #yiv7997502934activ
background-color:
#yiv7997502934 #yiv7997502934activ
font-weight:
#yiv7997502934 #yiv7997502934activ
text-transform:
#yiv7997502934 #yiv7997502934activ
color:#5085b6;
#yiv7997502934 #yiv7997502934activ
color:#ff7900;
#yiv7997502934 #yiv7997502934activ
.yiv7997502934under
text-decoration:
#yiv7997502934 .yiv7997502934attac
clear:both;display:
0;width:400px;
#yiv7997502934 .yiv7997502934attac
text-decoration:
#yiv7997502934 .yiv7997502934attac
border:none;
#yiv7997502934 .yiv7997502934attac
display:block;
#yiv7997502934 .yiv7997502934attac
text-decoration:
#yiv7997502934 blockquote {
margin:0 0 0 4px;}
#yiv7997502934 .yiv7997502934bold {
font-family:
#yiv7997502934 .yiv7997502934bold a {
text-decoration:
#yiv7997502934 dd.yiv7997502934las
font-family:
#yiv7997502934 dd.yiv7997502934las
margin-right:
#yiv7997502934 dd.yiv7997502934las
span.yiv7997502934y
margin-right:
#yiv7997502934 div.yiv7997502934at
text-decoration:
#yiv7997502934 div.yiv7997502934at
width:400px;
#yiv7997502934 div.yiv7997502934fi
div.yiv7997502934fi
div.yiv7997502934fi
div.yiv7997502934fi
text-decoration:
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
text-decoration:
#yiv7997502934 div#yiv7997502934yg
#yiv7997502934ygrp-
font-family:
#yiv7997502934 .yiv7997502934green {
color:#628c2a;
#yiv7997502934 .yiv7997502934MsoNo
margin:0 0 0 0;}
#yiv7997502934 o {
font-size:0;
#yiv7997502934 #yiv7997502934photo
float:left;width:
#yiv7997502934 #yiv7997502934photo
border:1px solid
#666666;height:
#yiv7997502934 #yiv7997502934photo
color:#666666;
#yiv7997502934 #yiv7997502934reco-
font-size:77%
#yiv7997502934 #yiv7997502934reco-
font-size:77%
#yiv7997502934 .yiv7997502934replb
margin:4px;}
#yiv7997502934 #yiv7997502934ygrp-
margin-right:
#yiv7997502934 #yiv7997502934ygrp-
font-size:13px;
sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-
font-size:inherit;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934 input, #yiv7997502934 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-
code {
font:115% monospace;}
#yiv7997502934 #yiv7997502934ygrp-
line-height:
#yiv7997502934 #yiv7997502934ygrp-
padding-bottom:
#yiv7997502934 #yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
p#yiv7997502934atta
color:#1E66AE;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934reco-
color:#ff7900;
#yiv7997502934 #yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934ygrp-
li a {
font-size:130%
#yiv7997502934 #yiv7997502934ygrp-
li {
font-size:77%
#yiv7997502934 #yiv7997502934ygrp-
ul {
margin:0;padding:
#yiv7997502934 #yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
margin:0 0 1em 0;}
#yiv7997502934 #yiv7997502934ygrp-
font-size:120%
#yiv7997502934 #yiv7997502934ygrp-
border-right:
}
#yiv7997502934
Fri May 26, 2017 1:20 pm (PDT) . Posted by:
"Heru Din"
Trima kasih mas ryan atas masukannya. Case solved... 😊
Pada tanggal 26 Mei 2017 14.28, "Ryan Sacth ryan_sacth@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
Waalaikumsallam.
Sesuai dengan masalahmu, saya coba bantu yah. Mungkin ini hanya
sederhana dan para master di sini bisa bantu sempurnakan.
Karena saya tidak mengetahui nama Object dari Textbox dan
CheckBox kamu maka saya indikasikan dengan:
namacheckboxkamu ----> Untuk Object CheckBox
namatextboalamatsesuaiKTP ----> Untuk Object TextBox
namatextboxalamatsekarang ----> Untuk Object TextBox
Letakkan code ini pada Userform yang digunakan.
Private Sub namacheckboxkamu_Click()
If namacheckboxkamu.Value = True Then
namatextboalamatsesuaiKTP.Value = namatextboxalamatsekarang.Value
Else
namatextboxalamatsekarang.Value = ""
End If
End Sub
Demikian, semoga berhasil.
Wassalam.
--------------------------------------------
On Thu, 5/25/17, heru Rasna herurasna@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com> wrote:
Subject: [belajar-excel] VBA menampilkan textbox jika kondisi
sama [2 Attachments]
To: belajar-excel@yahoogroups.com
Date: Thursday, May 25, 2017, 9:27 PM
Assalamualaikum.
hormat para master exceller sekalian...
kasus
:ada 2
textbox-
alamat ktp-
alamat sekaranghasil
yng di inginkan jika alamat alamat sekarangn sama dengan
alamat ktp maka ketika checkbox di centang alamat sekarang
terisi otomatis sama dengan alamat ktp.jika
tidak dicentang maka alamat sekarang bisa diisi sesuai
alamat terbaru
mohon
petunjuk penulisan coding vba nya master
untuk
jelas terlampir screnshoot
#yiv7997502934 #yiv7997502934 --
#yiv7997502934ygrp-
border:1px solid #d8d8d8;font-
0;padding:0 10px;}
#yiv7997502934 #yiv7997502934ygrp-
border:1px solid #d8d8d8;}
#yiv7997502934 #yiv7997502934ygrp-
color:#628c2a;
in:10px
0;}
#yiv7997502934 #yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934ygrp-
padding:0 0;}
#yiv7997502934 #yiv7997502934ygrp-
margin:0;}
#yiv7997502934 #yiv7997502934ygrp-
color:#0000ff;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
margin:10px
0px;font-weight:
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934actio
font-family:
#yiv7997502934 #yiv7997502934activ
background-color:
:10px;padding:
#yiv7997502934 #yiv7997502934activ
font-weight:
#yiv7997502934 #yiv7997502934activ
text-transform:
#yiv7997502934 #yiv7997502934activ
color:#5085b6;
#yiv7997502934 #yiv7997502934activ
color:#ff7900;
#yiv7997502934 #yiv7997502934activ
.yiv7997502934under
text-decoration:
#yiv7997502934 .yiv7997502934attac
clear:both;display:
:10px
0;width:400px;
#yiv7997502934 .yiv7997502934attac
text-decoration:
#yiv7997502934 .yiv7997502934attac
border:none;
#yiv7997502934 .yiv7997502934attac
display:block;
#yiv7997502934 .yiv7997502934attac
text-decoration:
#yiv7997502934 blockquote {
margin:0 0 0 4px;}
#yiv7997502934 .yiv7997502934bold {
font-family:
#yiv7997502934 .yiv7997502934bold a {
text-decoration:
#yiv7997502934 dd.yiv7997502934las
font-family:
#yiv7997502934 dd.yiv7997502934las
margin-right:
#yiv7997502934 dd.yiv7997502934las
span.yiv7997502934y
margin-right:
#yiv7997502934 div.yiv7997502934at
text-decoration:
#yiv7997502934 div.yiv7997502934at
width:400px;
#yiv7997502934 div.yiv7997502934fi
div.yiv7997502934fi
div.yiv7997502934fi
div.yiv7997502934fi
text-decoration:
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
#yiv7997502934 div.yiv7997502934ph
text-decoration:
#yiv7997502934 div#yiv7997502934yg
#yiv7997502934ygrp-
font-family:
#yiv7997502934 .yiv7997502934green {
color:#628c2a;
#yiv7997502934 .yiv7997502934MsoNo
margin:0 0 0 0;}
#yiv7997502934 o {
font-size:0;
#yiv7997502934 #yiv7997502934photo
float:left;width:
#yiv7997502934 #yiv7997502934photo
border:1px solid
#666666;height:
#yiv7997502934 #yiv7997502934photo
color:#666666;
ite-space:nowrap;
#yiv7997502934 #yiv7997502934reco-
font-size:77%
#yiv7997502934 #yiv7997502934reco-
font-size:77%
#yiv7997502934 .yiv7997502934replb
margin:4px;}
#yiv7997502934 #yiv7997502934ygrp-
margin-right:
#yiv7997502934 #yiv7997502934ygrp-
font-size:13px;
sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-
font-size:inherit;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934 input, #yiv7997502934 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7997502934 #yiv7997502934ygrp-
code {
font:115% monospace;}
#yiv7997502934 #yiv7997502934ygrp-
line-height:
#yiv7997502934 #yiv7997502934ygrp-
padding-bottom:
#yiv7997502934 #yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
p#yiv7997502934atta
color:#1E66AE;
#yiv7997502934 #yiv7997502934ygrp-
#yiv7997502934reco-
color:#ff7900;
#yiv7997502934 #yiv7997502934ygrp-
margin-bottom:
#yiv7997502934 #yiv7997502934ygrp-
li a {
font-size:130%
#yiv7997502934 #yiv7997502934ygrp-
li {
font-size:77%
#yiv7997502934 #yiv7997502934ygrp-
ul {
margin:0;padding:
#yiv7997502934 #yiv7997502934ygrp-
font-family:
#yiv7997502934 #yiv7997502934ygrp-
margin:0 0 1em 0;}
#yiv7997502934 #yiv7997502934ygrp-
font-size:120%
#yiv7997502934 #yiv7997502934ygrp-
border-right:
}
#yiv7997502934
============================================================
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
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar