Mungkin seperti ini..
siapkan 1 kolom khusus untuk menyimpan judul2 header yang akan dicopy,
misalnya ada di sheet 1 mulai cel A1 ke arah bawah
deklarasikan sebuah variabel untuk menyimpan koleksi header tersebut
dim rgHeader as range
deklarasikan sebuah variabel untuk menyimpan anggota koleksi di atas
dim rgHead as range
deklarasikan sebuah variabel untuk menyimpan range hasil pencarian header
tersebut
dim rgFind as range
deklarasikan sebuah variabel untuk menyimpan kumpulan range header yang
ingin dicopy
dim rgAsal as range
deklarasikan sebuah variabel untuk menyimpan letak kolom dari masing-masing
header
dim iCol as integer
setelah semua variabel dirasa mencukupi.. set lokasi koleksi header
set rgheader = sheet1.range("a1").end(xldown) ' ==> asumsi: terletak di
sheet 1 mulai cel A1 ke arah bawah pada workbook yang ada skrip vba-nya
cari letak masing2 kolom atas header tersebut dengan looping For Each - Next
jika ketemu, maka simpan nilai kolomnya ke dalam variabel icol
cek apakah rgasal ada isinya apa tidak.
jika masih kosong maka tetapkan rgAsal mulai dari baris 2 sampai baris
terakhir kolom yang ditemukan
jika rgAsal ada isinya, lakukan penggabungan dengan Union atas rgasal
dengan range data yang baru
For Each rgHead In rgHeader
Set rgFind = .Cells.Find(rgHeader.Value) ' mencari header yang sama
If Not rgFind Is Nothing Then ' jika header yang sama
ditemukan
iCol = rgFind.Column ' simpan nilai kolom datanya
If Not rgAsal Is Nothing Then ' cek apakah rgasal sudah ada
datanya atau belum
Set rgAsal = Union(rgAsal, .Range(.Cells(2,
iCol).Cells(baristerakhirfilepilihan, iCol))) ' jika sudah ada data,
lakukan penggabungan
Else ' selain itu berarti rgasal
belum ada datanya
Set rgAsal = .Range(.Cells(2,
iCol).Cells(baristerakhirfilepilihan, iCol)) ' simpan range data yang baru
End If
End If
Next rgHead
jika semua kolom sudah diketahui.. lanjutkan ke proses copy data
rgAsal.Copy
mulai yang For Each - Next ditulis dibagian dalam looping saat membuka
workbook
sedangkan yang deklarasi sampai dengan set rgheader di tulis di bagian atas
sebelum proses pencarian file
semoga solusinya gak salah2 banget.. karena skrip di atas belum dites dan
diketik berdasarkan asumsi langsung di email ini
Salam,
-Miss Jan Raisin-
Pada 6 Desember 2013 09.17, Odhy <[email protected]> menulis:
>
>
> Mohon bantuan para Master, atas kasus yg sy alami di atas....
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
> On Thursday, December 5, 2013 8:31 AM, Odhy <[email protected]>
> wrote:
>
> Dear Mr. Daeng,
> bagaimana code macro selengkapnya, sudh sy coba tp belum bisa.. agar tiga
> kategori judul kolom : plant, material,ClosingBalQty dicopy bersamaan.
>
> Terima Kasih atas pencerahannya,
>
> Odhy.
>
>
> On Wednesday, December 4, 2013 9:25 PM, Daeng Ngila <
> [email protected]> wrote:
>
> Bagaimana kalau untuk mencari kolomnya pake ...
> Range("1:1").Find("Plant").Column (... dst tetap pake metode Pak Hendrik)
> ---
> Maaf kalo asbun maklom blum sempat lihat file lampiran!
>
>
>
>
