Dear All Pakar Excel,

Saya sedang membuat coding macro, akan tetapi saya menemukan kesulitan ketika 
harus meng copy lebih dari 1 sheet secara bersamaan. Ketika saya rekam macro 
hasilnya keluar seperti berikut :

Sheets(array("Sheet1","Sheet2","Sheet3")).copy

Masalahnya adalah jumlah sheets yg ingin saya copy jumlah dan namanya tidak 
tetap akan tetapi indexnya yang sama yaitu sheets dengan index 5 sampai sheets 
terakhir. Saya coba dengan menggunakan index dngn coding sebagai berikut 

Sheets(array(1,2,3)).copy

Ternyata bisa jika diganti index.
Jd saya buat codingnya seperti berikut :

For x=5 to sheets.count

Array ????

Next

Sheets(array???).copy

End sub

Pertanyaan saya adalah, bagaimana membuat arraynya agar flexibel ?

Mohon pencerahannya.

Terimakasih

Best regards
Powered by Telkomsel BlackBerry®

------------------------------------

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke: 
[email protected]

posting ke milis, kirimkan ke: 
[email protected]

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/[email protected]/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: [email protected]

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  [email protected]
---------------------------------------------------------------------Yahoo! 
Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/belajar-excel/

<*> Your email settings:
    Individual Email | Traditional

<*> To change settings online go to:
    http://groups.yahoo.com/group/belajar-excel/join
    (Yahoo! ID required)

<*> To change settings via email:
    [email protected] 
    [email protected]

<*> To unsubscribe from this group, send an email to:
    [email protected]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/

Kirim email ke