Hai Imar,
Sepertinya, proses copas yang harus dilakukan 2 kali (pertama untuk mycopy
dan kedua untuk kolom tambahan) baru berisi copas untuk mycopy saja :
myCopy.Copy
.Cells(lRecRow, 3).PasteSpecial Paste:=xlPasteValues,
Transpose:=True
untuk copas kolom tambahan : (ditambahkan setelah bagian copas mycopy)
'data sheet input *5 kolom dikanan mycopy*
'paste ke tujuan mulai kolom ke-9 (kolom i) pada baris yang sama
dengan lokasi paste mycopy
myCopy*.offset(0,5)*.Copy
.Cells(lRecRow, 9).PasteSpecial Paste:=xlPasteValues,
Transpose:=True
Wassalam,
Kid.
2012/12/23 Imar Andre <[email protected]>
> **
>
>
> Be Exceler
>
> Saya mempunyai contoh form input sederhana, file asli
> FormSheetEditOpt.xls, perubahan yang di inginkan ada pada file
> FormSheetEditOpt(Mod).xls, kolom data di tambah dan pada sheet input
> ada penambahan kolom untuk inputnya, mohon solusinya?
>
> Wassalam
>
> --
> imar
>
>
