Hot Fox: Re: ]] XL-mania [[ Copy Value Macro

quarta-feira, 27 de janeiro de 2010

Re: ]] XL-mania [[ Copy Value Macro

coba jawab ya .........

coba rubah codenya

Cells.Select menjadi sheets.select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
    TempWindow.Close

----- Original Message -----

From: ALIEF YANISA

To: XL-mania@yahoogroups.com

Sent: Wednesday, January 27, 2010 10:31 AM

Subject: ]] XL-mania [[ Copy Value Macro

Dear teman2,
mohon bantuannya untuk meneruskan coding dari permasalahan berikut (terlampir)

Pada saat cmd button ditekan pada sheet contoh,

sheet 1,2,3 keluar membentuk workbook baru dan hasilnya adalah copy value,
smentara hasil pada contoh tersebut adalah copy value sheet 1 saja pada workbook yang baru.
sheet yang lain masih keluar rumusnya..

Pertanyaan :
-Bagaimana coding macronya agar semua membentuk copy value pada semua sheet (workbook baru)
-untuk mengsave workbook baru (msg box)

Set Sourcewb = ActiveWorkbook
    With Sourcewb
        Set TheActiveWindow = ActiveWindow
        Set TempWindow = .NewWindow
        .Sheets(Array("1", "2", "3")).Copy
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
    TempWindow.Close

Terimakasih
Salam,
Alief.

__._,_.___

Reply to sender | Reply to group

Messages in this topic (2)

Recent Activity:

New Members 120

Visit Your Group Start a New Topic

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Member ke 13,013 siapa ya? Sini mau dikirimin coklat :D           |
| Member ke 31,031 dapet iPod dehh.... :D :D :D                     |
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Going Green: Your Yahoo! Groups resource for green living