Re: ]] XL-mania [[ WTA : Merge Sheet

 

permintaan seperti ini (bahkan persis tanpa variasli lain) sudah sering

moencoel di milis....

buka visual-basic-editor  (dari worksheet tekan Alt + F11)
buka module baru  (menu Insert > Module)
tulis VBA-code seperti ini

Sub GabungTabelSheet()

   ' siti Vi / bluewater, may 10, 2011

   '----------------------------------

   Dim sh As Worksheet, newSh As Worksheet

   Dim Rng As Range, NewRng As Range

   Dim r As Long, i As Long

   

   Set newSh = Worksheets.Add(after:=Sheets(Sheets.Count))

   newSh.Name = "Hasil_(" & newSh.Name & ")"

   

   Set NewRng = newSh.Cells(2, 1)

   

   For Each sh In Worksheets

      If Not sh.Name = newSh.Name Then

         i = i + 1

         Set Rng = sh.Cells(1).CurrentRegion.Offset(1, 0)

         r = Rng.Rows.Count - 1

         Set Rng = Rng.Resize(r, Rng.Columns.Count)

         If i = 1 Then Rng(0, 1).Resize(1, Rng.Columns.Count).Copy NewRng.Cells(0)

         Rng.Copy NewRng

         Set NewRng = NewRng(1, 1).Offset(r, 0)

      End If

   Next sh

   

   MsgBox "Telah digabung : " & i & " Sheets kedalam 1 sheet : " _

          & newSh.Name, 64, "Exceltainment.."

End Sub

'--------

sebaiknya workbook di save dulu

cara menjalankan:

** tekan tombol Alt + F8

** pilih nama makro tsb ( GabungTabelSheet )

**cari tombol RUN dan pencetlah (pelan pelan saja..)

**Hasil penggabungan akasn SELALU berupa SHEET BARU

2011/5/6 DANI RUDHIYANI <d_rudhiyani@yahoo.com>

dear xl mania

mu nanya,, 

misal kan dalam satu file excel ada beberapa sheet (sheet 1, sheet 2 dan sheet 3)

apakah bisa kita gabungkan 3 sheet tersebut menjadi 1 sheet ( merge)..?

tentunya data2 dalam masing2 tidak hilang

tks

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (2)

Recent Activity:

• New Members 84

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| maaf baru moderate sekarang... momods kurang tidur berhari-hari   |
| jadi budak kantoooOOooorrr...                                     |
| 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              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___