Dear Mr. Kid, Terimakasih mr. Kid atas bantuannya.ternyata sederhana juga ya? Saya hanya buta bahasa VB nya.Program sudah berjalan baik. Sekali lagi terimakasih banyak
Salam Be-Excel Sinode From: [email protected] On Behalf Of Mr. Kid Sent: Friday, June 17, 2011 4:28 PM 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
