Coba langkah berikut : (jika kurang pas rujukannya, disesuaikan sendiri ya)
1. buka file input blablagenerator.xlsm
2. insert sebuah worksheet
3. ganti nama sheet baru itu menjadi template
4. ke sheet1 dan copy range C10 sampai C16
5. ke sheet template dan paste ke cell B2
6. ke VBE dan cari baris berbunyi : (atau yang sejenisnya di file Anda)
for each rng in Sheets("input_pt").range("a2:a65000")
dan ganti menjadi :
for each rng in Sheets("customer").range("b1").currentregion
7. cari bagian yang berbunyi : (atau yang sejenisnya di file Anda)
'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
dan hapus saja.
8. cari bagian yang berbunyi : (atau yang sejenisnya di file Anda)
'simpan workbook target
wbktarget.saveas wbkapp.path & "\" & rng.value
dan ganti menjadi :
'simpan workbook target
wbktarget.saveas wbkapp.path & "\" & rng.value & "_" &
format$(date,"YYYYMMDD")
kalau tanggalnya harus mengambil nilai di suatu tempat tertentu, ganti
yang merah dengan rujukan untuk mengambil nilai tersebut.
Wassalam,
Kid.
2012/12/5 Sefti <[email protected]>
> **
>
>
> terimakasih atas jawabannya mas, biasanya saya harus menunggu lama jika
> menanyakan pertanyaan di forum/milis lain.tp disini sangat cepat
> jawabannya :)
> mas saya mengalami kendala lagi,karena kemampuan mengedit saya yg belum
> mencukupi,alhasil kode scriptnya selalu eror.saya tau kode script dr mas
> benar cuma ya itu td, kemampuan mengedit saya yg belum mencukupi :)
> jd begini saja mas, saya minta bantuan bagaimana cara meng-insertkan 7
> data turunan ke masing2 perusahaan (1 perusahaan memiliki 7 data turunan
> secara otomatis)
> kalau create ke new filenya alhamdulillah sudah bisa
> untuk lebih jelasnya saya lampirkan file-nya
>
> ------------------------------
> *From:* Sefti <[email protected]>
> *To:* "[email protected]" <[email protected]>
> *Sent:* Wednesday, December 5, 2012 9:56 AM
> *Subject:* Re: [belajar-excel] tentang looping,masih sangat pemula
>
>
> ------------------------------
> *From:* Mr. Kid <[email protected]>
> *To:* [email protected]
> *Sent:* Tuesday, December 4, 2012 11:19 PM
> *Subject:* Re: [belajar-excel] tentang looping,masih sangat pemula
>
>
> 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
>
>
>
>
>
>
>
>
>
