Karena yang dibahas adalah kurangnya data yang di-copy,
maka perhatikan baris :
Set rngDT1 = .Range("a5").CurrentRegion 'set
area data
Baris kode di atas, menggunakan properti CurrentRegion. Properti ini memang
hanya sesuai untuk data yang berupa tabel yang baik. Tidak ada baris kosong
maupun header yang tidak bernama. Properti inio berisi 1 area data yang
kontinyu. Jika ada baris yang kurang di-copy, maka biasanya ada baris kosong
atau kolom kosong pada data yang dikenainya.
Cara lain yang dapat dipergunakan adalah
.usedrange
Properti ini berisi range dari A1 sampai cell pada kolom maksimal yang
pernah berisi data dan baris maksimal yang pernah berisi data.
Kekurangannya, pada kondisi pengisian atau penggunaan cell yang tidak
terkontrol, akan menyebabkan terlalu luasnya area range terpilih.
Cara lainnya lagi,
.Range(Range("a5"), Range("g65000").End(xlUp)).Resize(, 14)
Dengan asumsi, data diawali (pojok kiri atas) di A5, dengan jumlah baris
maksimal data ada di kolom G dan tidak akan mencapai lebih dari 65000,
dengan jumlah kolom 14
Masih banyak cara yang lainnya, yang bisa ditemukan di-thread yang lalu di
archive milis.
Wassalam.
Kid.
2011/10/9 Darto Chandra <[email protected]>
> Set rngDT1 = .Range("a5").CurrentRegion
> 'set area data
