Pada lampiran terlihat bahwa contoh BEBERAPA sheets itu isinya sama. Kalau memang hanya seperti itu keperluannya, pak Tresna cukup hanya mengGROUPkan semua sheets (dengan menselect-nya secara multi select)
Dengan cara spt itu semua yg kita tulis di sheet aktif akan langsung terjadi pula di semua sheets yg sedang di-GROUP-kan tsb, termasuk menginsert kolom dsb... Jika cara makro lebih disukai... pertama kita harus PUNYA Nomor ROW yg akan diinsert (yaitu ROW yg di ATASnya akan dibuat Row baru) Nomor Row disimpan dlm variable iRow Selain itu harus ditentukan SHEET MANA yg menjadi dalangnya (menjadi sheet yg akan ditiru oleh sheet lain) katakan misalnya: dalangnya = Sheet1 Makro akan dijalankan ketika sheet dalang telah ditambah row baru dan cell pointer (cell aktif) masih berada di BARIS yg akan dicopy tsb instruksinya = dim iRow as long dim sht as worksheet irow = activecell.row activecell.entirerow.copy for each sht in worksheets if sht.name <> "Sheet1" then sht.activate cells(iRow,1).entirerow.insert cells(iRow,1).entirerow.copy end if next sht application.cutcopymode = false sheets(Sheet1).activate rgds, siti On 7/23/09, Tresna <[email protected]> wrote: > > Dear Para Pakar Macro XL.. > Mohon bantuan.. > Saya ada pekerjaan rutin untuk material control, setiap bulannya pasti ada > kedatangan item baru.. > Untuk mengontrol material tersebut saya buat beberapa sheet.. > Dan setiap penambahan item saya harus insert rows disemua sheet nya…. > Tolong dibantu untuk dibuatkan macro yang secara otomatis meng copy insert > disemua shett apabila saya insert copy rows di salah satu shet tersebut… > > Misal.. saya akan mengcopy insert baris 16 ke baris 17 maka di semua sheet juga > akan tercopy baris 16 ke baris 17 tersebut…. > File terlampir… > > Mohon pencerahannyaaaa……… > > Priatna Tresna Nugraha > PT. United Steel Center Indonesia. > Jl. Mitra Raya Selatan II. Blok F1 no.1 KIM Karawang Timur > Tlp. 440701-709 ext (100) >
