hmmm....
Bisa juga begini : (pernah dengar For Each Next ? Kalau belum, coba
jalan-jalan kesini
<http://b-excel.blogspot.co.id/2013/09/belajarvba-010-perulangan-3-for-each.html>
)
Bagian :
For c = *4 To 8*
' NmProduk, Periode, Harga, Qty, TotalHarga
TblSub(NewSub + r, c) = .[B10:J19].Cells(r, c - 3)
Next c
berhubung script-nya tinggalan mabk Siti, biasanya variabelnya sudah
dideklarasikan sesuai kebutuhan. Kalau belum, berarti ada yang salah dengan
script-nya, bisa jadi memang gubahan mbak Siti dari script asli penanyanya
demikian.
dim vc as variant
for each vc in array(*4, 7, 8, 10, 12*)
' NmProduk, Periode, Harga, Qty, TotalHarga
TblSub(NewSub + r, vc) = .[B10:J19].Cells(r, vc - 3)
next vc
Regards,
Kid
On Wed, Nov 25, 2015 at 1:31 PM, hendrik karnadi [email protected]
[belajar-excel] <[email protected]> wrote:
>
>
> Coba ganti bagian ini
> For c = *4 To 8*
> ' NmProduk, Periode, Harga, Qty, TotalHarga
> TblSub(NewSub + r, c) = .[B10:J19].Cells(r, c - 3)
> Next c
>
> menjadi
> For *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
>
> salam
> Kang 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
>
> Salam
> Kang 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
>
>
>
>
>
>
>
>
>
>
