MsgBox "saved in " & ActiveWorkbook.FullName 'halo halo kalo sdh
tersimpan
End With
Application.ScreenUpdating = True
End Sub
'(OO==[][]==OO)
_
From: belajar-excel@yahoogroups.com [mailto:belajar-ex...@yahoogroups.com] On
Behalf Of Zaki
Sent: Thurs
y, February 11, 2010 1:49 PM
>>Subject: Re: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt
>>sheet tsb
>>
>>
>>Btw, mo nanya juga neh, kalau copy sheet ke workbook lain
>>dengan kode tambahan buat hapus button yang di sheet sebelumnya gmn ya?
>&
-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com>
*Sent:* Thursday, February 11, 2010 1:49 PM
*Subject:* Re: [belajar-excel] Re: Copy sheet ke Workbook baru
dengan nama spt sheet tsb
Btw, mo nanya juga neh, kalau copy sheet ke workbook lain
dengan kode tambaha
Message -
From: Zaki
To: belajar-excel@yahoogroups.com
Sent: Thursday, February 11, 2010 1:49 PM
Subject: Re: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt
sheet tsb
Btw, mo nanya juga neh, kalau copy sheet ke workbook lain
dengan kode tambahan buat hapus button
0 10:14:26
*Subject:* Re: [belajar-excel] Re: Copy sheet ke Workbook baru dengan
nama spt sheet tsb
tambahkan
on error goto
(keknya hal spt ini kemarin baru diubek-ubek. .)
Sub SheetToNewBook( )
' Copy Sheet ke workbokk baru dengan memilih/click sheet yang akan dicopy
Dim Rng A
y Sutjipto
From: siti Vi
To: belajar-excel@yahoogroups.com
Sent: Tuesday, February 2, 2010 10:14:26
Subject: Re: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt
sheet tsb
tambahkan
on error goto
(keknya hal spt ini
kemarin baru diubek-ubek. .)
Sub Shee
.Parent
SelSheet.Copy
ActiveWorkbook.SaveAs _
Filename:=ThisWorkbook.Path & "\" & SelSheet.Name & ".xls"
ThisWorkbook.Activate
ExitSub:
End Sub
- Original Message -
From: Herry Sutjipto
To: belajar-excel@yahoogroups.com
Sent: Tuesday, Februar
Sutjipto
From: siti_vi
To: belajar-excel@yahoogroups.com
Sent: Friday, January 29, 2010 9:50:48
Subject: [belajar-excel] Re: Copy sheet ke Workbook baru dengan nama spt sheet
tsb
bgmana kalo kita mudahkan
begini:
1.
(manual oleh user)
pilih salah satu
bgmana kalo kita mudahkan begini: 1. (manual oleh user) pilih salah
satu worksheet dlm workbook tsb dengan cara mengaktifkannnya2.
(manual oleh user) Klik-Ganda Cell A1 pada sheet yg sudah dipilih (
ini maksudnya untuk menjalankan makro kita) 3. (otomatis dikerjakan
VBA) Ya makro
9 matches
Mail list logo