Hot Fox: RE: ]] XL-mania [[ kopi sheet dengan syarat terntentu menggunakan macro

sexta-feira, 14 de agosto de 2009

RE: ]] XL-mania [[ kopi sheet dengan syarat terntentu menggunakan macro

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 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: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of kid
Sent: 14 Agustus 2009 23:08
To: XL-mania@yahoogroups.com
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 <abrahamlelengboto@gmail.com>

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

__._,_.___

Messages in this topic (4) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| I love you full XL-maniawan & XL-maniawati :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

Mom Power: Discover the community of moms doing more for their families, for the world and for each other