Lho, kok ga ada subjectnya ya..??
________________________________ From: Sinode G Sinaga <[email protected]> To: [email protected] Cc: STDEV(i) <[email protected]> Sent: Thursday, April 7, 2011 10:48 AM Subject: RE: [belajar-excel] Dear all members, c/q Mbak STDEV,,, Saya sudah gunakan data yg dikreasikan oleh Mbak ST. Terimakasih banyak atas pencerahannya. Sungguh cepat kerjaan Admin saya jadinya dimana data tsb akan saya analisa progressnya net by net. Saya mohon bantuan para XL-ers lagi khususnya mbak ST lagi nih. Dimana saya dalam waktu dekat akan ekspansi dengan kurang lebih 110 net. Terus terang ilmu saya sangat minim untuk melakukannya Mbak (attch terlampir). Perlu saya jelaskan bahwa file NGBf&m berisi 110 net yang akan di disebar per 10 net dengan beda file (tetap sama foldernya). Artinya FE01 berisi net 1- 10, FE02 berisi net 11- 20….dst sampai FE11 (net101-110). Terimakasih atas bantuannya >>>>jangan bosen ya mbak ST?hehehe Salam Hangat, Sinode From:[email protected] [mailto:[email protected]] On Behalf Of STDEV(i) Sent: Wednesday, April 06, 2011 9:56 AM To: [email protected] Subject: Re: [belajar-excel] makronya sebetulnya persis sama, bedanya hanya pada : Range yg akan ditulisi data pindahan dari tabel sumber, harus diidentifikasi sebagai anakbuah Workbook_Tujuan yg bernama FE1.xls Workbook Tujuan tsb, sukur-sukurtetah dibuka, jika pun belum dibuka, makro akan membukanya.. Path-nya mudah ditebak karena dia ad adi sefolder dengan Book Induknya.. SubSebarData(dbRange As Range) ' siti Vi / 31 mar 2011 / milis beljar-excel ' modified 5 apr 2011 / (write to: another workbooks) '-------------------------------------------- Dim wb As Workbook, Found As Boolean, NetTbl As Range Dim DestName As String, wsName As String Dim R As Long, N As Long, iKol As Integer DestName = "FE01.xls" iKol = dbRange.Columns.Count ' mencari apakah DestName SUDAH dibuka For Each wb In Application.Workbooks If wb.Name = DestName Then Found = True: Exit For End If Next wb '--jika BELUM, maka dibuka (&langung aktif) If Not Found Then Workbooks.Open ThisWorkbook.Path & "\" & DestName Else '--Jika SUDAH, cukup diaktifkan saja Workbooks(DestName).Activate End If '==== Proses menyebar records ke tiap Net_Sheets === ' (membuat database kok dengan caramenyebarke banyak tempat " ' 'tar kalau mau men-summary dari sisi lain (bukan sisi Net) ' trus gimana ya caranya ??? '---------------------------------------------------------- With ActiveWorkbook For N = 1 To dbRange.Rows.Count - 1 ' data kolom 1 di tabel sumber (setelah "diproses") ' dipakai untuk mendeteksi nama sheet wsName = "Net" & Format(dbRange(N, 1), "00") ' tabel di sheet rujuan didefine Set NetTbl = .Sheets(wsName).Range("B4").CurrentRegion ' dicatat Index ROW_kosong_Pertama - nya R = NetTbl.Rows.Count + 1 ' Records di tabelAsal: baris N, diSalin dbRange(N, 1).Resize(1, iKol).Copy ' diTempelkan (Values-nya) ke TabelTujuan: Baris R NetTbl(R, 1).PasteSpecial xlPasteValuesAndNumberFormats ' membuang ClipBoards (kopi-mengopi..) Application.CutCopyMode = False Next N End With MsgBox "Dah Kelaar Boss..", 64, "LAPOR BOSS.." End Sub ---------------------------------------- 2011/4/5 Sinode G Sinaga <[email protected]> > > Mbak Siti yg baek, > Data yang kemarin saya sudah jalankan dan hasilnya wonderful bgt mbak… > Terimakasih banyak, saya banyak tambah ilmu. Saya coba melakukannnya antar file, hehehhe… > ternyata belum cukup ilmunya. Dengan ini saya mohon kembali pencerahannya mbak jika saya ingin > menggunakannya antar file. Disini saya utarakan bahwa file inti yaitu “NGBf&m” (artinya feed and mortal > proyek NGB=code) ada di folder C:/Pangambatan. Sementara tujuan copyannya ada di file FE01 > di folder yang sama mbak. Berurut juga nantinya mengikut urutan tanggal. Terimakasih > > Best Regards > > Sinode
