Hai Naba,

Asumsi : tiap tabel memiliki header dengan nama header pertama (terkiri)
yang tetap

coba langkah berikut :
1. buat variabel range yang menyimpan mulai cell header terkiri tabel
pertama sampai last cell yang ada di worksheet tersebut
2. lakukan sort terhadap kolom ke-2 dari range dalam variabel range nomor 1
dengan memastikan bahwa area sort memiliki header
3. redefinisi variabel range dengan current region dari cell pertama header

--> jika record akan di-copy ke lokasi lain
4. lakukan auto filter pada kolom ke-1 dengan kriteria *bukan *bertuliskan
nama header pertama
5. copy visible cell dari record data saja
6. paste ke lokasi tujuan

--> jika akan hapus header milik tabel ke-2 dst
4. lakukan auto filter pada kolom ke-1 dengan kriteria yang bertuliskan
nama header pertama
5. pada variabel range di kolom pertama saja (resize) yang di record data
saja (offset sebanyak jumlah baris header) di cell yang visible saja,
lakukan delete row

7. turn-off autofilter

Wassalam,
Kid.





2014-03-27 11:22 GMT+07:00 Soengging respati naba <[email protected]>:

>
>
> Dear para master,,
>  Mohon bantuan saya mempunyai banyak table dalam satu sheet, saya ingin
> menjadikan satu.
> Mohon Bantuan untuk merapatkan kolom saja, saya sudah membuat Codding nya
> tapi untuk merapatkan kolom nya saya belum berhasil.
>
> Mohon bantuan Para master,
>
> File Terlampir.
>
> terima kasih
>
>  
>

Kirim email ke