Dear mbak Siti Vi,
VBA nya mengasumsi kan, workbook tujuan sudah ada ya?
Kalau belum kayaknya lebih asyik deh .....
Regards
herry
________________________________
From: siti Vi <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, March 29, 2010 17:19:24
Subject: Re: [belajar-excel] Re: Transpose Rekap Laporan
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]
'----------- --------- --------- --------- -
Dim wbSumber As Workbook, wbTujuan As Workbook
Dim sht As Worksheet, gtg As Integer, bl As Integer
Set wbSumber = Workbooks(sumber)
Set wbTujuan = Workbooks(tujuan)
For Each sht In wbSumber.Worksheets
bl = bl + 1
For gtg = 1 To 8
sht.Range("B2: B5").Offset( 0, gtg).Copy
wbTujuan.Sheets( "GTG-" & gtg).Range(" B2:B5"). _
Offset(0, bl).PasteSpecial xlValue
Application. CutCopyMode = False
Next gtg
Next sht
End Sub
catatan
walau pun semua orang bebas memberi nick name kepada suatu email address;
tetapi saya kok kurang "sreg" dengan nick name yg diberikan oleh sdr andri
kpd milis belajar excel, yaitu = 'excelmania'
1. nanti orang bisa confused dengan namamilis lain yg sudah ada
2. pemilik milis lain yg di-mirip miripin namanya bisa ndak 'marah'...
3. menyesatkan bagi yg tidak tahu..
apa susahnya menyebut milis 'belajar-excel' dengan 'belajar-excel'
atau biarkan saja tetap sbg belajar-excel@ yahoogroups. com
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
an
Get your preferred Email name!
Now you can @ymail.com and @rocketmail.com.
http://mail.promotions.yahoo.com/newdomains/aa/
