Coba ganti bagian iniFor c = 4 To 8
' NmProduk, Periode, Harga, Qty, TotalHarga
TblSub(NewSub + r, c) = .[B10:J19].Cells(r, c - 3)
Next c
menjadiFor i = 1 To 5 '(5 berasal dari 8-4+1)
' NmProduk, Periode, Harga, Qty, TotalHarga c =
WorksheetFunction.Choose(i, 4, 7, 8, 10, 12)
TblSub(NewSub + r, c) = .[B10:J19].Cells(r, c - 3)
Next i
Semoga berhasil.
Salam,HK
From: "Ahmad Rojali [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Wednesday, 25 November 2015, 9:19
Subject: Re: [belajar-excel] Membuat database induk dan database anak
Dear Master HK,terima kasih atas warisannya sangat bermanfaaat. satu lagi
kesulitan saya, bagaimana mengganti script column yang berurutan menjadi loncat
seperti 4 To 8 menjadi 4, 7, 8, 10, 12 pada kasus dibawah ini:
For r = 1 To JmlItem
If .[B10:J19].Cells(r, 1) = "" Then Exit For
TblSub(NewSub + r, 0) = NewSub + r '# urut
TblSub(NewSub + r, 1) = .[J6] ' Nr Inv
TblSub(NewSub + r, 2) = .[J5] ' Tg Inv
TblSub(NewSub + r, 2).NumberFormat = "dd mmm yy"
TblSub(NewSub + r, 3) = .[D5] ' Nm Cust
For c = 4 To 8
' NmProduk, Periode, Harga, Qty, TotalHarga
TblSub(NewSub + r, c) = .[B10:J19].Cells(r, c - 3)
Next c
Next r
Terima kasih sekali atas bantuannya
salamKang Oza
On Tuesday, November 24, 2015 2:48 PM, Ahmad Rojali <[email protected]>
wrote:
Terima Kasih Pa HK,sangat membantu sekali, saya coba pelajari dulu
SalamKang Oza
On Tuesday, November 24, 2015 2:41 PM, "hendrik karnadi
[email protected] [belajar-excel]" <[email protected]> wrote:
Hai Kang Oza,Coba file warisan si mbah ini (telah diedit).
Salam,HK
From: "Ahmad Rojali [email protected] [belajar-excel]"
<[email protected]>
To: [email protected]
Sent: Tuesday, 24 November 2015, 9:55
Subject: [belajar-excel] Membuat database induk dan database anak [1
Attachment]
Dear Para Master,
Saya masih sangat awam tentang macro. mohon bantuan untuk menyimpan data di
database induk dan database anak.
penjelasannya: jika kita mengisi di sheet "Invoicing" lalu kita tekan button
rekam, maka data akan tersimpan di sheet "RkpInduk" sebagai Rekapan invoice dan
di Sheet "RkpAnak" sebagai rincian invoice. dan ketika sewaktu-waktu
dibutuhkan, data tersebut dapat dipanggil di Sheet "Print" dengan data sama
persis seperti waktu dibuat di sheet "Invoicing" seperti file terlampir.
Terima kasih banyak atas bantuannya
Regards
Kang Oza
#yiv0115741122 #yiv0115741122 -- #yiv0115741122ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0115741122
#yiv0115741122ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0115741122
#yiv0115741122ygrp-mkp #yiv0115741122hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv0115741122 #yiv0115741122ygrp-mkp #yiv0115741122ads
{margin-bottom:10px;}#yiv0115741122 #yiv0115741122ygrp-mkp .yiv0115741122ad
{padding:0 0;}#yiv0115741122 #yiv0115741122ygrp-mkp .yiv0115741122ad p
{margin:0;}#yiv0115741122 #yiv0115741122ygrp-mkp .yiv0115741122ad a
{color:#0000ff;text-decoration:none;}#yiv0115741122 #yiv0115741122ygrp-sponsor
#yiv0115741122ygrp-lc {font-family:Arial;}#yiv0115741122
#yiv0115741122ygrp-sponsor #yiv0115741122ygrp-lc #yiv0115741122hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0115741122
#yiv0115741122ygrp-sponsor #yiv0115741122ygrp-lc .yiv0115741122ad
{margin-bottom:10px;padding:0 0;}#yiv0115741122 #yiv0115741122actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0115741122
#yiv0115741122activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0115741122
#yiv0115741122activity span {font-weight:700;}#yiv0115741122
#yiv0115741122activity span:first-child
{text-transform:uppercase;}#yiv0115741122 #yiv0115741122activity span a
{color:#5085b6;text-decoration:none;}#yiv0115741122 #yiv0115741122activity span
span {color:#ff7900;}#yiv0115741122 #yiv0115741122activity span
.yiv0115741122underline {text-decoration:underline;}#yiv0115741122
.yiv0115741122attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv0115741122 .yiv0115741122attach div a
{text-decoration:none;}#yiv0115741122 .yiv0115741122attach img
{border:none;padding-right:5px;}#yiv0115741122 .yiv0115741122attach label
{display:block;margin-bottom:5px;}#yiv0115741122 .yiv0115741122attach label a
{text-decoration:none;}#yiv0115741122 blockquote {margin:0 0 0
4px;}#yiv0115741122 .yiv0115741122bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv0115741122
.yiv0115741122bold a {text-decoration:none;}#yiv0115741122 dd.yiv0115741122last
p a {font-family:Verdana;font-weight:700;}#yiv0115741122 dd.yiv0115741122last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0115741122
dd.yiv0115741122last p span.yiv0115741122yshortcuts
{margin-right:0;}#yiv0115741122 div.yiv0115741122attach-table div div a
{text-decoration:none;}#yiv0115741122 div.yiv0115741122attach-table
{width:400px;}#yiv0115741122 div.yiv0115741122file-title a, #yiv0115741122
div.yiv0115741122file-title a:active, #yiv0115741122
div.yiv0115741122file-title a:hover, #yiv0115741122 div.yiv0115741122file-title
a:visited {text-decoration:none;}#yiv0115741122 div.yiv0115741122photo-title a,
#yiv0115741122 div.yiv0115741122photo-title a:active, #yiv0115741122
div.yiv0115741122photo-title a:hover, #yiv0115741122
div.yiv0115741122photo-title a:visited {text-decoration:none;}#yiv0115741122
div#yiv0115741122ygrp-mlmsg #yiv0115741122ygrp-msg p a
span.yiv0115741122yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0115741122
.yiv0115741122green {color:#628c2a;}#yiv0115741122 .yiv0115741122MsoNormal
{margin:0 0 0 0;}#yiv0115741122 o {font-size:0;}#yiv0115741122
#yiv0115741122photos div {float:left;width:72px;}#yiv0115741122
#yiv0115741122photos div div {border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}#yiv0115741122
#yiv0115741122photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0115741122
#yiv0115741122reco-category {font-size:77%;}#yiv0115741122
#yiv0115741122reco-desc {font-size:77%;}#yiv0115741122 .yiv0115741122replbq
{margin:4px;}#yiv0115741122 #yiv0115741122ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv0115741122 #yiv0115741122ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0115741122
#yiv0115741122ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0115741122
#yiv0115741122ygrp-mlmsg select, #yiv0115741122 input, #yiv0115741122 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv0115741122
#yiv0115741122ygrp-mlmsg pre, #yiv0115741122 code {font:115%
monospace;}#yiv0115741122 #yiv0115741122ygrp-mlmsg *
{line-height:1.22em;}#yiv0115741122 #yiv0115741122ygrp-mlmsg #yiv0115741122logo
{padding-bottom:10px;}#yiv0115741122 #yiv0115741122ygrp-msg p a
{font-family:Verdana;}#yiv0115741122 #yiv0115741122ygrp-msg
p#yiv0115741122attach-count span {color:#1E66AE;font-weight:700;}#yiv0115741122
#yiv0115741122ygrp-reco #yiv0115741122reco-head
{color:#ff7900;font-weight:700;}#yiv0115741122 #yiv0115741122ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv0115741122 #yiv0115741122ygrp-sponsor
#yiv0115741122ov li a {font-size:130%;text-decoration:none;}#yiv0115741122
#yiv0115741122ygrp-sponsor #yiv0115741122ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv0115741122
#yiv0115741122ygrp-sponsor #yiv0115741122ov ul {margin:0;padding:0 0 0
8px;}#yiv0115741122 #yiv0115741122ygrp-text
{font-family:Georgia;}#yiv0115741122 #yiv0115741122ygrp-text p {margin:0 0 1em
0;}#yiv0115741122 #yiv0115741122ygrp-text tt {font-size:120%;}#yiv0115741122
#yiv0115741122ygrp-vital ul li:last-child {border-right:none
!important;}#yiv0115741122
