Dear Miss Siti Vi,
Terima kasih, ternyata macro buatan MS Office (Recorded Macro oleh Excel sendiri) pun masih bisa disederhanakan oleh mBak Siti, hebat!
Boleh nggak kalau pertanyaannya saya kembangkan lagi?
1. Kalau input box nya tinggal milih dari sheet-sheet yang ada gimana ya?
2. Trus ceritaknya begini lho … setelah saya kirim dengan email untuk diperbaiki oleh orang lain, dikembalikan lagi ke saya ……
3. Nah ini …. Trus menggabungkannya dengan workbook awal gimana yah ( ini nama nya orang males ya …. nggak mau mikir sendiri).
Terima kasih lagi ya mBak …….
Best regards
Herry Sutjipto
From: XL-mania@yahoogroup
Sent: 29 Januari 2010 12:13
To: XL-mania@yahoogroup
Subject: Re: ]] XL-mania [[ Copy sheet ke Workbook baru dengan nama spt sheet tsb
bila diringkas bisa seperti ini
( dengan asumsi bahwa: user akan selalu mengetikkan nama sheet dgn baek & benar
& tidak di blank-kan & sheet yg diketik (bukan dipilih **) namanya itu memang ADA
di workbook ybs )
Sub CopySheet_to_
Dim wbBaru As String
wbBaru = InputBox("Ketikkan Nama Sheet yang akan diCopy", _
"Copy Sheet ke WorkBook Baru")
Sheets(wbBaru)
ActiveWorkbook.
End Sub
** karena InputBox jenis tsb hanya mengijinkan user mengisi textbox dengan ketikan
bukan membiarkan user memilih suatu object di luar inputbox,
(ada dua jenis InputBox didlam excel & vba, yg berlainan sifat & perilakunya )
----- Original Message -----
From: Herry Sutjipto
To: XL-mania@yahoogroup
Sent: Friday, January 29, 2010 8:37 AM
Subject: RE: ]] XL-mania [[ Copy sheet ke Workbook baru dengan nama spt sheet tsb
Dear XL-Mania-er,
Perihal tersebut di atas, sudah saya dapatkan caranya, VBA nya sbb:
'
'
Dim wbAwal As String, wbBaru As String, shtAwal As String
wbAwal = ActiveWorkbook.
wbBaru = InputBox(Prompt:
Title:="Copy Sheet ke WorkBook Baru")
shtAwal = wbBaru
wbBaru = wbBaru + ".xls"
Sheets(shtAwal)
Sheets(shtAwal)
ActiveWorkbook.
End Sub
Cara buatnya :
1. Start Record macro di aktifkan.
2. Lakukan secara manual step-stepnya.
3. Stop Record macro.
4. Modifikasi dikit.
Selesai deh ……
Maaf nggangu ajah …….
Best regards
Herry Sutjipto
| 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 |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário