Dear Mr Kid,
Ada ketinggalan editing macro nya ya??
Kid tulis:
Sub Button1_Click()
Dim sNewSheet As String
Dim lIndex As Long
On Error Resume Next
sNewSheet = Range("b2").Value
If LenB(sNewSheet) = 0 Then
MsgBox ("masukan nama")
Else
lIndex = Sheets(sNewSheet).Index
If Err.Number <> 0 Then
Err.Clear
Sheets.Add.Name = sNewSheet
Sheets("master").Select
Cells.Copy
Sheets(b).Range("a1").PasteSpecial
Application.CutCopyMode = False
Range("b2, a5:d9").ClearContents
Else
MsgBox ("nama sudah ada")
End If
End If
End Sub
Mungkin yang berwarna merah seharusnya :
Sheets(sNewSheet).Range("a1").PasteSpecial
Mungkin lho .. ini masih mungkin ...
Saya juga perlu macro ini untuk workbook saya "Daftar Gaji Pegawai TF.xls"
yang sudah saya kirim duluan (Kid masih ingat ... ?)
Terima kasih semuanya khususnya Mr Kid (untuk editingnya) dan Mr Abraham
Lelengboto (untuk idenya ... boleh ikut pakai?)
Best Regards
Herry Sutjipto
From: [email protected] [mailto:[email protected]] On Behalf
Of kid
Sent: 14 Agustus 2009 23:08
To: [email protected]
Subject: Re: ]] XL-mania [[ kopi sheet dengan syarat terntentu menggunakan
macro
halo Abraham Lelengboto,
File terlampir satu dari sekian cara yang bisa digunakan.
Kid.
2009/8/14 Abraham Lelengboto <[email protected]>
halo guru2 xl,
saya anak baru nihh di milist ini,, milist ini benar2 sakti eiiiii... saya
jadi banyak belajar,,
saya lagi belajar2 VBA (benar2 beginner) mohon tuntunannya saya lagi belajar
kopi2 sheets.
mohon tuntunannya.
terima kasih
