maaf karena "kesulitan teknis" workbook berisi makro ctv_Merge Sheet.xls
sulit dilampirkan; jika berminat, dapat di unduh di sini:
tks
2011/5/10 STDEV(i) <setiyowati.devi@gmail.com>:
> 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
__._,_.___
+-:: 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 |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário