he he he ..... menehi kok di incrit-incrit .....
nek sing durung ngerti vba malah bingung lho mbak....
wong aku wae yo kudu muter utek je (nggatuk-nggatuk ke karo conto sing lawas)
....
btw ... matur nuwun yo mbak .....
________________________________
From: siti Vi <setiyowati.d...@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, March 29, 2010 18:31:16
Subject: Re: [belajar-excel] Re: Transpose Rekap Laporan
ya ..
codingnya hanya akan ada selisih sedikit
1.
sebelum loop dimulai
meng ADD workbook baru di set sebagai 'book TUJUAN'
2.
seiring dengan looping, di ADD sheet baru (di dalam book tujuan)
3.
di dalam sheet baru juga akan di beri judul tiap kolom
sambil diberi isi (pemindahan data dari book sumber)
masih tetap memanfaatkan loop yg sedang jalan.
----- Original Message -----
From: Herry Sutjipto
To: belajar-excel@ yahoogroups. com
Sent: Monday, March 29, 2010 6:04 PM
Subject: Re: [belajar-excel] Re: Transpose Rekap Laporan
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.devi@ 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
New Email addresses available on Yahoo!
Get the Email name you've always wanted on the new @ymail and @rocketmail.
Hurry before someone else does!
http://mail.promotions.yahoo.com/newdomains/aa/
