Tuhkan semua bikin VBA juga transfer dari file data awal ke file mau jadi -- mbok yao transfernya dibikin langsung jadi 1 tabel sederhana yang standar nanti kalo dah jadi tabel gtg1 sampai 8 di maujadi.xls pasti muntul pertanyaan lagi, gimana kalau mau summary semua data gtg bulan januari aja -- pusing deh..
Kid. 2010/3/29 Herry Sutjipto <herry...@yahoo.com> > > > 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 nama* milis 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<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! > <http://sg.rd.yahoo.com/aa/mail/domainchoice/mail/signature/*http://mail.promotions.yahoo.com/newdomains/aa/> > Now you can @ymail.com and @rocketmail.com. > >