Hai Sefty,
Biasanya
1. perlu dibuat sebuah sheet berisi susunan (struktur dataset seperti kolom
dan barisnya) dataset yang akan menjadi output di file lain. Isi datanya
bisa diatur untuk berganti sesuai pemilik file.
2. Ada seluruh data yang bisa diambil nilainya berdasar si pt yang akan
menjadi file baru tersebut.
3. Ada daftar nama file output (sudah punya)
untuk loop per nama pt di sheet input pt :
(misal nama-nama ada di A2 sampai A65000)
dim rng as Range
dim shtTpl as worksheet, wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set shttpl=wbkapp.sheets("template")
application.displayalerts=false
for each rng in Sheets("input_pt").range("a2:a65000")
if lenb(rng.value)<>0 then
'lakukan proses isi data di sheet template
shttpl.range("a1").value = rng.value 'karena A1 sheet template
berisi nama pt
'lakukan ambil nilai dari sheet nilai disini misal :
with sheets("input").range("a1").currentregion
.autofilter 1, rng.value
.specialcells(xlcellsvisible).copy
sheets("template").range("B2")
end with
'buat workbook baru
set wbktarget=workbooks.add
'copy template ke workbook baru letakkan di indeks 1
shttpl.copy before:=wbktarget.sheets(1)
'ganti nama sheet output dari bernama template menjadi bernama
myOutput
wbktarget.sheets(1).name="myOutput"
'simpan workbook target
wbktarget.saveas wbkapp.path & "\" & rng.value
'tutup workbook target
wbktarget.close false
'aktifkan workbook kerja
wbkapp.activate
endif
next rng 'ke nama pt berikutnya
application.displayalerts=true
Letakkan script di atas pada sebuah prosedur di sebuah module di workbook
kerja. Kemudian jalankan macro atau buat object spahe atau control object
untuk memanggil prosedur tersebut.
Semua rujukan workbook, sheet, range adalah fiktif belaka.
Bila ada kesamaan nama, tempat dan waktu maka hal itu hanyalah kebetulan
saja.
Terimakasih kepada seluruh sponsor yang telah membantu terselesaikannya
script di atas
Segala kekurangan dan kekhilafan harap dimaafkan.
hehehe...
sepertinya kalau ada workbook contohnya, banyak BeExceller yang mau
mencobanya juga.
Wassalam,
Kid.
2012/12/4 sefti syuhada <[email protected]>
> **
>
>
> permisi master2 macro excel, saya lagi belajar macro excel dan sekarang
> mengalami sebuah kasus, begini:
> saya punya data input (nama perusahaan)
> nah tugas saya harus meng-generate file input tsb ke new file dengan
> syarat:nantinya di file output, si nama perusahaan tsb masing2 memiliki
> data2 turunan.sebagai contoh
> file input:
> 1.pt.indomie
> 2.pt.djarum
> 3.ptcarefour
> dst
> nah ketika file input tsb di generate ke new file, data harus berupa:
> 1.pt.indomie
> pengeluaran
> pemasukan
> sisa kas
> jumlah keseluruhan
>
> begitupun nama perusahaan seterusnya
> data file input bisa ratusan bahkan ribuan, ga mungkin kan klo harus di
> ketik manual :)
> mohon pencerahannya dan maaf apabila pertanyaan saya kurang dimengerti
>
>
>
