Dear all,
Maaf baru memberi tanggapan.
Solusi yang diusulkan oleh mbak Siti sama seperti yang saya inginkan.
Kondisi sebenarnya, template untuk file "Mau Jadi Ini" memang sudah ada.
Saya masih awam dengan makro, tapi kalo saya lihat nama plant GTG-1
sampai GTG-8 menjadi referensi (Offset) untuk melakukan copy paste.
Workbooks(tujuan) .Sheets(" GTG-" & gtg). _
Range("B2:B5" ).Offset( 0, bl).PasteSpecial xlValue
Sekarang bagaimana kalau nama plant tidak beraturan (contoh plant
A,B,C,D dan seterusnya), apakah tinggal diganti menjadi
Workbooks(tujuan) .Sheets& gtg _
Range("B2:B5" ).Offset( 0, bl).PasteSpecial xlValue
Sekali lagi saya ucapkan banyak terima kasih.
Regards,
Andri
NB: Untuk moderator maaf atas nickname-nya, itu memang kealpaan dari
saya. Saya sudah ganti, insyaallah berubah.
coding diper-ringkas
Sub Begini(sumber As String, tujuan As String)
'----------- --------- --------- --------- ---
' siti Vi mentranspose antar sheets/book
'----------- --------- --------- --------- ---
Dim sht As Worksheet, gtg As Integer, bl As Integer
Workbooks(tujuan) .Activate
For Each sht In Workbooks(sumber) .Worksheets
bl = bl + 1
For gtg = 1 To 8
sht.Range("B2: B5").Offset( 0, gtg).Copy
Workbooks(tujuan) .Sheets(" GTG-" & gtg). _
Range("B2:B5" ).Offset( 0, bl).PasteSpecial xlValue
Application. CutCopyMode = False
Next gtg
Next sht
End Sub
----- Original Message -----
*From:* siti Vi <mailto:[email protected]>
*To:* belajar-excel@ yahoogroups. com
<mailto:[email protected]>
*Sent:* Monday, March 29, 2010 5:19 PM
*Subject:* Re: [belajar-excel] Re: Transpose Rekap Laporan
1
pakai 'ginian" bisa ndak ya??
Sub Begini(sumber As String, tujuan As String)
' siti Vi mentranspose antar sheets/book
' 29 mar 2010 / milis [belajar excel]
'----------- --------- --------- --------- -
End Sub
2
*catatan*
atau biarkan saja tetap sbg belajar-excel@ yahoogroups. com
<mailto:[email protected]>
ndak usah di beri nikname-nickname- an...
----- Original Message -----
From: andri
To: * excelmania *. yahoogroups
Sent: Monday, March 29, 2010 2:24 PM
Subject: [belajar-excel] Re: Transpose Rekap Laporan
Dear pakar,
>>> Saya punya file rekapan yang berisi pemakaian bahan bakar untuk
>>> setiap power plant. Setiap sheet berisi rekapan untuk tiap bulan
>>> dari Januari - Desember (file: Awal).
>>> Rencananya file ini akan saya ubah menjadi file baru yang berisi
>>> summari untuk setiap power plant (formatnya seperti file Mau
Jadi Ini).
>> Dengan kata lain: file awal terdiri dari 12 shet (Jan-Dec) yang
>> headernya GTG-1 sampai GTG-8 ingin dirubah menjadi file baru yang
>> terdiri dari 8 sheet (GTG-1 sampai GTG-8) yang headernya Jan-Dec.
>>>
>>> Terima kasih atas bantuannya.
>>>
>>> Regards,
>>> Andri
__________ Information from ESET NOD32 Antivirus, version of virus
signature database 4981 (20100329) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
