Mungkin maksud dari sebar, akan membuka file yang tidak se-folder. Bagian ThisWorkbook.Path berarti path-nya si workbook aktif, yang hasilnya bisa seperti : G:\Data\AplikasiUtama Jika data ada pada folder lainnya, misal di H:\Data\Data si anu
maka bagian ThisWorkbook.Path diubah menjadi "H:\Data\Data si anu" Kid. On Fri, Jun 17, 2011 at 16:09, Sinode G Sinaga <[email protected]>wrote: > ** > > > Salam Be-Excel**** > > ** ** > > Saya sudah pernah mendapat kan pencerahan copy (sebar data) antar file > dalam folder yang sama dengan kode VB sbb:**** > > ** ** > > Private Sub CommandButton1_Click()**** > > Dim shTuj As Worksheet**** > > Dim rwTuj As Long**** > > **** > > On Error Resume Next**** > > If Workbooks("SPVRM.xls") Is Nothing Then**** > > Workbooks.Open Filename:=ThisWorkbook.Path & "\SPVRM.xls"**** > > End If**** > > On Error GoTo 0**** > > ** ** > > Set shTuj = Workbooks("SPVRM.xls").Worksheets("JournalSJ")**** > > **** > > rwTuj = shTuj.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 1**** > > **** > > With ThisWorkbook.Worksheets("JournalSJ")**** > > shTuj.Cells(rwTuj, 1) = .[A50]**** > > shTuj.Cells(rwTuj, 2) = .[B50]**** > > shTuj.Cells(rwTuj, 3) = .[C50]**** > > shTuj.Cells(rwTuj, 4) = .[D50]**** > > shTuj.Cells(rwTuj, 5) = .[E50]**** > > shTuj.Cells(rwTuj, 6) = .[F50]**** > > shTuj.Cells(rwTuj, 7) = .[G50]**** > > shTuj.Cells(rwTuj, 8) = .[H50]**** > > shTuj.Cells(rwTuj, 9) = .[I50]**** > > shTuj.Cells(rwTuj, 10) = .[J50]**** > > shTuj.Cells(rwTuj, 11) = .[K50]**** > > shTuj.Cells(rwTuj, 12) = .[L50]**** > > shTuj.Cells(rwTuj, 13) = .[M50]**** > > shTuj.Cells(rwTuj, 14) = .[N50]**** > > shTuj.Cells(rwTuj, 15) = .[O50]**** > > shTuj.Cells(rwTuj, 16) = .[P50]**** > > shTuj.Cells(rwTuj, 17) = .[Q50]**** > > shTuj.Cells(rwTuj, 18) = .[R50]**** > > shTuj.Cells(rwTuj, 19) = .[S50]**** > > shTuj.Cells(rwTuj, 20) = .[T50]**** > > **** > > **** > > End With**** > > Range("B7").Select**** > > ActiveWorkbook.Save**** > > ActiveWorkbook.Close**** > > End Sub**** > > ** ** > > Q : Mohon bantuan para pakar dimana saya ingin menyebar data dalam folder > yg berbeda. Terimakasih**** > > >
