5 Messages
Digest #4035
Messages
Thu Dec 1, 2016 2:39 am (PST) . Posted by:
"Toby kenzo" tobykenzo
Dear Hendro,
Coba buat commandButton baru dan masukan script ini:
Dim a, b As Integer
a = 5
b = 1
Sheet1.Activate
Do While b <= aSheet1.Cells(19 + b, 2).Value = Sheet7.Cells(b, 1).Value
Sheet1.Cells(19 + b, 8).Value = Sheet7.Cells(5 + b, 1).Value
Sheet1.Cells(19 + b, 4).Value = Sheet7.Cells(b, 2).Value
Sheet1.Cells(19 + b, 10).Value = Sheet7.Cells(5 + b, 2).Value
Sheet1.Cells(19 + b, 5).Value = Sheet7.Cells(b, 3).Value
Sheet1.Cells(19 + b, 12).Value = Sheet7.Cells(5 + b, 3).Valueb = b + 1
Loop
Semoga membantu.
TerimaKasih.
Pada Kamis, 1 Desember 2016 16:26, "'Hendro@daya-motor' hendro_arifin@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
maaf bp.toby bisa kasih saya contoh nya..soalnya saya sdh mencoba pakai
loop saya belum berhasil..dan sampai sekarang masih blm tau juga harus pakai
loop yg apa?maaf baru belajar.
----- Original Message -----
From: "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]"
<belajar-excel@yahoogroups.com>
To: <belajar-excel@yahoogroups.com>
Sent: Thursday, December 01, 2016 3:10 PM
Subject: Bls: [belajar-excel] pindah data
Dear Hendro,
Anda bisa menggunakan "Loop" method
TerimaKasih.
Pada Selasa, 29 November 2016 17:45, "Hendro Arifin
hendro_arifin@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
menulis:
selamat sore mr.kid dan rekan2..mohon bantuan untuk solusi berikut.saya
bermaksud memindahkan data dari sheet list_ho ke sheet dt_ print dimana
list_ho adalahhasil dari advance filter yang jumlah baris nya akan selalu
berubah tiap kali tonbol print di tekan tetapi jumlah
tidak lebih dari 10 baris dan dengan jumlah kolom tetap yaitu 3 kolom.saya
mempunyai kode macro tetapisaya merasa kode saya tersebut terlalu
panjang.bisakah kode saya tersebut di persingkat?atokah ada kode
lain untuk menggantikan kode macro saya tersebut?mohon petunjukanyaterima
kasih.
salam hendro
#yiv4553733650 #yiv4553733650 -- #yiv4553733650ygrp-mkp {border:1px
solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4553733650
#yiv4553733650ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4553733650
#yiv4553733650ygrp-mkp #yiv4553733650hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4553733650 #yiv4553733650ygrp-mkp #yiv4553733650ads
{margin-bottom:10px;}#yiv4553733650 #yiv4553733650ygrp-mkp .yiv4553733650ad
{padding:0 0;}#yiv4553733650 #yiv4553733650ygrp-mkp .yiv4553733650ad p
{margin:0;}#yiv4553733650 #yiv4553733650ygrp-mkp .yiv4553733650ad a
{color:#0000ff;text-decoration:none;}#yiv4553733650
#yiv4553733650ygrp-sponsor #yiv4553733650ygrp-lc
{font-family:Arial;}#yiv4553733650 #yiv4553733650ygrp-sponsor
#yiv4553733650ygrp-lc #yiv4553733650hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4553733650
#yiv4553733650ygrp-sponsor #yiv4553733650ygrp-lc .yiv4553733650ad
{margin-bottom:10px;padding:0 0;}#yiv4553733650 #yiv4553733650actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4553733650
#yiv4553733650activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4553733650
#yiv4553733650activity span {font-weight:700;}#yiv4553733650
#yiv4553733650activity span:first-child
{text-transform:uppercase;}#yiv4553733650 #yiv4553733650activity span a
{color:#5085b6;text-decoration:none;}#yiv4553733650 #yiv4553733650activity
span span {color:#ff7900;}#yiv4553733650 #yiv4553733650activity span
.yiv4553733650underline {text-decoration:underline;}#yiv4553733650
.yiv4553733650attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4553733650 .yiv4553733650attach div a
{text-decoration:none;}#yiv4553733650 .yiv4553733650attach img
{border:none;padding-right:5px;}#yiv4553733650 .yiv4553733650attach label
{display:block;margin-bottom:5px;}#yiv4553733650 .yiv4553733650attach label
a {text-decoration:none;}#yiv4553733650 blockquote {margin:0 0 0
4px;}#yiv4553733650 .yiv4553733650bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4553733650
.yiv4553733650bold a {text-decoration:none;}#yiv4553733650
dd.yiv4553733650last p a
{font-family:Verdana;font-weight:700;}#yiv4553733650 dd.yiv4553733650last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4553733650
dd.yiv4553733650last p span.yiv4553733650yshortcuts
{margin-right:0;}#yiv4553733650 div.yiv4553733650attach-table div div a
{text-decoration:none;}#yiv4553733650 div.yiv4553733650attach-table
{width:400px;}#yiv4553733650 div.yiv4553733650file-title a, #yiv4553733650
div.yiv4553733650file-title a:active, #yiv4553733650
div.yiv4553733650file-title a:hover, #yiv4553733650
div.yiv4553733650file-title a:visited {text-decoration:none;}#yiv4553733650
div.yiv4553733650photo-title a, #yiv4553733650 div.yiv4553733650photo-title
a:active, #yiv4553733650 div.yiv4553733650photo-title a:hover,
#yiv4553733650 div.yiv4553733650photo-title a:visited
{text-decoration:none;}#yiv4553733650 div#yiv4553733650ygrp-mlmsg
#yiv4553733650ygrp-msg p a span.yiv4553733650yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4553733650
.yiv4553733650green {color:#628c2a;}#yiv4553733650 .yiv4553733650MsoNormal
{margin:0 0 0 0;}#yiv4553733650 o {font-size:0;}#yiv4553733650
#yiv4553733650photos div {float:left;width:72px;}#yiv4553733650
#yiv4553733650photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv4553733650
#yiv4553733650photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4553733650
#yiv4553733650reco-category {font-size:77%;}#yiv4553733650
#yiv4553733650reco-desc {font-size:77%;}#yiv4553733650 .yiv4553733650replbq
{margin:4px;}#yiv4553733650 #yiv4553733650ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4553733650 #yiv4553733650ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}#yiv4553733650 #yiv4553733650ygrp-mlmsg table
{font-size:inherit;font:100%;}#yiv4553733650 #yiv4553733650ygrp-mlmsg
select, #yiv4553733650 input, #yiv4553733650 textarea {font:99% Arial,
Helvetica, clean, sans-serif;}#yiv4553733650 #yiv4553733650ygrp-mlmsg pre,
#yiv4553733650 code {font:115% monospace;}#yiv4553733650
#yiv4553733650ygrp-mlmsg * {line-height:1.22em;}#yiv4553733650
#yiv4553733650ygrp-mlmsg #yiv4553733650logo
{padding-bottom:10px;}#yiv4553733650 #yiv4553733650ygrp-msg p a
{font-family:Verdana;}#yiv4553733650 #yiv4553733650ygrp-msg
p#yiv4553733650attach-count span
{color:#1E66AE;font-weight:700;}#yiv4553733650 #yiv4553733650ygrp-reco
#yiv4553733650reco-head {color:#ff7900;font-weight:700;}#yiv4553733650
#yiv4553733650ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4553733650
#yiv4553733650ygrp-sponsor #yiv4553733650ov li a
{font-size:130%;text-decoration:none;}#yiv4553733650
#yiv4553733650ygrp-sponsor #yiv4553733650ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4553733650
#yiv4553733650ygrp-sponsor #yiv4553733650ov ul {margin:0;padding:0 0 0
8px;}#yiv4553733650 #yiv4553733650ygrp-text
{font-family:Georgia;}#yiv4553733650 #yiv4553733650ygrp-text p {margin:0 0
1em 0;}#yiv4553733650 #yiv4553733650ygrp-text tt
{font-size:120%;}#yiv4553733650 #yiv4553733650ygrp-vital ul li:last-child
{border-right:none !important;}#yiv4553733650
#yiv4177498898 #yiv4177498898 -- #yiv4177498898ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4177498898 #yiv4177498898ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4177498898 #yiv4177498898ygrp-mkp #yiv4177498898hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4177498898 #yiv4177498898ygrp-mkp #yiv4177498898ads {margin-bottom:10px;}#yiv4177498898 #yiv4177498898ygrp-mkp .yiv4177498898ad {padding:0 0;}#yiv4177498898 #yiv4177498898ygrp-mkp .yiv4177498898ad p {margin:0;}#yiv4177498898 #yiv4177498898ygrp-mkp .yiv4177498898ad a {color:#0000ff;text-decoration:none;}#yiv4177498898 #yiv4177498898ygrp-sponsor #yiv4177498898ygrp-
Coba buat commandButton baru dan masukan script ini:
Dim a, b As Integer
a = 5
b = 1
Sheet1.Activate
Do While b <= aSheet1.Cells(19 + b, 2).Value = Sheet7.Cells(b, 1).Value
Sheet1.Cells(19 + b, 8).Value = Sheet7.Cells(5 + b, 1).Value
Sheet1.Cells(19 + b, 4).Value = Sheet7.Cells(b, 2).Value
Sheet1.Cells(19 + b, 10).Value = Sheet7.Cells(5 + b, 2).Value
Sheet1.Cells(19 + b, 5).Value = Sheet7.Cells(b, 3).Value
Sheet1.Cells(19 + b, 12).Value = Sheet7.Cells(5 + b, 3).Valueb = b + 1
Loop
Semoga membantu.
TerimaKasih.
Pada Kamis, 1 Desember 2016 16:26, "'Hendro@daya-motor' hendro_arifin@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
maaf bp.toby bisa kasih saya contoh nya..soalnya saya sdh mencoba pakai
loop saya belum berhasil..dan sampai sekarang masih blm tau juga harus pakai
loop yg apa?maaf baru belajar.
----- Original Message -----
From: "Toby kenzo tobykenzo@yahoo.co.id [belajar-excel]"
<belajar-excel@yahoogroups.com>
To: <belajar-excel@yahoogroups.com>
Sent: Thursday, December 01, 2016 3:10 PM
Subject: Bls: [belajar-excel] pindah data
Dear Hendro,
Anda bisa menggunakan "Loop" method
TerimaKasih.
Pada Selasa, 29 November 2016 17:45, "Hendro Arifin
hendro_arifin@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com>
menulis:
selamat sore mr.kid dan rekan2..mohon bantuan untuk solusi berikut.saya
bermaksud memindahkan data dari sheet list_ho ke sheet dt_ print dimana
list_ho adalahhasil dari advance filter yang jumlah baris nya akan selalu
berubah tiap kali tonbol print di tekan tetapi jumlah
tidak lebih dari 10 baris dan dengan jumlah kolom tetap yaitu 3 kolom.saya
mempunyai kode macro tetapisaya merasa kode saya tersebut terlalu
panjang.bisakah kode saya tersebut di persingkat?atokah ada kode
lain untuk menggantikan kode macro saya tersebut?mohon petunjukanyaterima
kasih.
salam hendro
#yiv4553733650 #yiv4553733650 -- #yiv4553733650ygrp-
solid #d8d8d8;font-
#yiv4553733650ygrp-
#yiv4553733650ygrp-
{color:#628c2a;
0;}#yiv4553733650 #yiv4553733650ygrp-
{margin-bottom:
{padding:0 0;}#yiv4553733650 #yiv4553733650ygrp-
{margin:0;}#
{color:#0000ff;
#yiv4553733650ygrp-
{font-family:
#yiv4553733650ygrp-
0px;font-weight:
#yiv4553733650ygrp-
{margin-bottom:
{font-family:
#yiv4553733650activ
{background-
#yiv4553733650activ
#yiv4553733650activ
{text-transform:
{color:#5085b6;
span span {color:#ff7900;
.yiv4553733650under
.yiv4553733650attac
{clear:both;
0;width:400px;
{text-decoration:
{border:none;
{display:block;
a {text-decoration:
4px;}#yiv4553733650 .yiv4553733650bold
{font-family:
.yiv4553733650bold a {text-decoration:
dd.yiv4553733650las
{font-family:
span {margin-right:
dd.yiv4553733650las
{margin-right:
{text-decoration:
{width:400px;
div.yiv4553733650fi
div.yiv4553733650fi
div.yiv4553733650fi
div.yiv4553733650ph
a:active, #yiv4553733650 div.yiv4553733650ph
#yiv4553733650 div.yiv4553733650ph
{text-decoration:
#yiv4553733650ygrp-
{font-family:
.yiv4553733650green {color:#628c2a;
{margin:0 0 0 0;}#yiv4553733650 o {font-size:0;
#yiv4553733650photo
#yiv4553733650photo
#666666;height:
#yiv4553733650photo
{color:#666666;
#yiv4553733650reco-
#yiv4553733650reco-
{margin:4px;
{margin-right:
{font-size:13px;
sans-serif;}
{font-size:inherit;
select, #yiv4553733650 input, #yiv4553733650 textarea {font:99% Arial,
Helvetica, clean, sans-serif;}
#yiv4553733650 code {font:115% monospace;}#
#yiv4553733650ygrp-
#yiv4553733650ygrp-
{padding-bottom:
{font-family:
p#yiv4553733650atta
{color:#1E66AE;
#yiv4553733650reco-
#yiv4553733650ygrp-
#yiv4553733650ygrp-
{font-size:130%
#yiv4553733650ygrp-
{font-size:77%
#yiv4553733650ygrp-
8px;}#yiv4553733650 #yiv4553733650ygrp-
{font-family:
1em 0;}#yiv4553733650 #yiv4553733650ygrp-
{font-size:120%
{border-right:
#yiv4177498898 #yiv4177498898 -- #yiv4177498898ygrp-