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

Sub KopiSomething(Nama As String)
   ' siti Vi / 15 Agu 2009
   Dim GabSht As String
   Dim objSht As Worksheet
   Dim myRange As Range
   Const tx1 As String = "da sheet dgn nama: "
   Const tx2 As String = "Latihan Makro"

   If Nama = "" Then GoTo Hapus
   Nama = UCase(Nama)
   For Each objSht In Worksheets
      If objSht.Name <> "master" Then _
      GabSht = GabSht & UCase(objSht.Name) & "|"
   Next

   If InStr(1, GabSht, Nama & "|") > 0 Then
      MsgBox "A" & tx1 & Nama, 64, tx2
      Set myRange = Sheets(Nama).UsedRange.Offset(2, 0)
      myRange.Copy Sheets("master").Cells(4, 1)
   Else
      MsgBox "Tidak a" & tx1 & Nama, 48, tx2
      GoTo Hapus
   End If
   Exit Sub

Hapus:
   Range("A4").CurrentRegion.Offset(1, 0).ClearContents

End Sub
'=======================

Kepanjangan yak ??

gini lho yaa...,
mengkopy sheet ke sheet itu ndak bisa !
yg bisa mengcopy Range Ke Range Lain di Sheet.
dan... tidak perlu SELURUH Cell di sheet ( object Cells ) dicopy;
cukup cell yg berisi data saja, Ya Ndak ??

On 8/14/09, Abraham Lelengboto <abrahamlelengboto@gmail.com> wrote:
> 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 (3) 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