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.entirero
for each sht in worksheets
if sht.name <> "Sheet1" then
sht.activate
cells(iRow,1)
cells(iRow,1)
end if
next sht
application.
sheets(Sheet1)
rgds,
siti
On 7/23/09, Tresna <tresna@usc-indonesi
>
> 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)
>
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN! |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário