Hai Andrie,
Jika kolom terakhir (lokasi total) adalah tetap (misal di kolom Z [kolom
ke-26 Excel]) dan kolom ke-1 (kolom A) selalu ada isinya (seperti
keterangan item), penyalinan mulai baris 1, bisa begini :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
end with
Jika ingin diberi pemeriksaan apakah masih ada ruang kosong sebelum kolom Z
(misal data bisa disalin sampai kolom Y, dan supaya tidak terpaste ke kolom
Z (kolom total)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 , 25 ).value )=0 then
Worksheets("LokasiPaste").cells( 1 , 26
).end(xltoleft).offset(0,1).value= .value
endif
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh :
with worksheets("SumberData").range("a1:a25")
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
end with
Jika kolom total tidak tetap, tapi selalu terkanan jauh DAN ingin diberi
pemeriksaan apakah masih ada ruang kosong sebelum kolom total (yang
terkanan jauh)
with worksheets("SumberData").range("a1:a25")
if len( Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count ).end(xltoleft).offset(0,-1).value
)=0 then
Worksheets("LokasiPaste").cells( 1 ,
Worksheets("LokasiPaste").columns.count
).end(xltoleft).end(xltoleft).offset(0,1).value= .value 'yup, pakai 2
kali end()
endif
end with
Regards,
Kid
2018-05-04 15:05 GMT+07:00 Andrie Amorius bm7...@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:
>
>
> Dear Master Excel...
> Mohon bantuannya, ane punya data disheet1 dan ingin mengcopy pastekannya
> ketabel disheet2 (range A1:I25) dikolom terakhir yg kosong dengan
> menggunakan:
>
> With Worksheets("Sheet1")
> AD = .Range("A1:A25").Value
> End With
>
> With Worksheets("Sheet2")
> ColumnTerakhir = .Cells(1, .Columns.Count).End(xlToLeft).Column
> ColumnTujuan = ColumnTerakhir + 1
> .Range(.Cells(1, ColumnTujuan), .Cells(25, ColumnTujuan)).Value =
> AD
> End With
>
> Permasalahannya diujung tabel ada kolom untuk jumlah, ketika script
> dijalankan data sheet1 malah terpaste keujung kolom disebelah kanan kolom
> jumlah bkn dikolom terakhir yg kosong didalam range table...
>
> Mohon kiranya dapat memberikan solusi untuk permasalahan ane, terimakasih
> sebelumnya...
>
> File ane lampirkan....
>
>
>
> Andrie Amorius, SE. Ak
> Task Force PSAK 71
> PT. Bank Riau Kepri
> Gedung Menara Dang Merdu Bank Riau Kepri
> JL. Jend. Sudirman No. 462
> Pekanbaru - Riau (28116)
>
>
>
