Entry Data Dari Beberapa File Workbook Excel

Dilihat dari judulnya, kayaknya menarik... menurutku loh...

Proses dari Entry Data ini adalah dengan menggunakan beberapa workbook untuk membuka form entry data, dan menyimpan hasil entry datanya ke satu file workbook master.

Tapi form ini baru aku coba di satu komputer, jadi bagaimana hasilnya bila di entry data-nya dari beberapa komputer... mungkin bisa di coba sendiri.

Dan untuk kodenya bisa di pelajari di bawah ini:

Private Sub CommandButton1_Click()
Dim rc As Long
Dim fileku As String
Dim wb As Workbook

Application.ScreenUpdating = False
fileku = ActiveWorkbook.Path
rc = ActiveSheet.UsedRange.Rows.Count 'menghitung jumlah baris yang ada

With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value 'baris akhir kolom A yang kosong, sama dengan nilai textbox nama
.Offset(rc, 1).Value = Me.TextBox2.Value 'baris akhir kolom B yang kosong, sama dengan nilai textbox barang
.Offset(rc, 2).Value = Me.TextBox3.Value 'baris akhir kolom C yang kosong, sama dengan nilai textbox penjualan
End With
ThisWorkbook.Save
Workbooks.Open fileku & "" & "Master.xls" 'buka workbook master
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
.Offset(rc, 0).Value = Me.TextBox1.Value
.Offset(rc, 1).Value = Me.TextBox2.Value
.Offset(rc, 2).Value = Me.TextBox3.Value
.Offset(rc, 3).Value = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) 'nama dari workbook yang entry
End With

wb.Save
wb.Close 'tutup workbook master
Application.ScreenUpdating = True
Unload Me
Entry_Form.Show
End Sub

Untuk saat ini cukup sekian dulu, dan jika ingin mempelajari lebih lanjut file bisa di DOWNLOAD disini.Mohon informasinya apabila ada perbaikan yang lebih keren, soalnya aku juga mo belajar...