Cara Input Data Dengan File Yang Berbeda

Bingung mau kasih judul apa ya cocok dengan artikel ini. Mungkin saja pembaca masih bingung dengan judul di atas, tapi gini akan Anang kasih penjelasan sedikit semoga pembaca paham mengerti maksudnya. Misalnya Anang mau input data dari file “ Nabila.xlsm “, kemudian data tersebut masuk juga ke file “ Rekap.xlsm “. Kita buat flie lagi bernama “ Tegar.xlsm “. Apabila kita input data dari file Tegar.xlsm masuk juga ke file Rekap.xlsm juga, begitu seterusnya. Jadi intinya file Rekap.xlsm menerima data dari file Nabila dan Tegar. Tujuan dari pembuatan aplikasi ini untuk memudahkan pengguna Excel agar tidak lagi melihat lihat lagi filenya Nabila atau Tegar, karena kita tinggal lihat file Rekap aja. Mengertikan maksudnya, walaupun penjelasannya muter-muter penulis berharap pembaca bisa mengerti. Untuk lebih jelasnya mari kita belajar bersama-sama.

Langkah pertama kita buka excel, kemudian kita buat userform seperti di bawah ini :

Lalu simpan dengan nama Tegar.xlsm, Lakukan hal yang sama pada pembuatan file Nabila.xlsm.

Setelah kita buat userformnya lalu kita tinggal copypaste script dibawah ini ke Nabila.xlsm dan Tegar.xlsm.:

Private Sub CommandButton1_Click()

Dim Rc As Long

Dim Fileku As String

Dim Wb As Workbook

Application.Visible = True

Fileku = ActiveWorkbook.Path

Rc = ActiveSheet.UsedRange.Rows.Count

With Sheets(1).Range("A1")

.Offset(Rc, 0).Value = Me.TextBox1.Value

.Offset(Rc, 1).Value = Me.TextBox2.Value

End With

ThisWorkbook.Save

Workbooks.Open Fileku & "\" & "Rekap.xlsm"

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 = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)

End With

Wb.Save

Wb.Close

Application.Visible = False

Unload Me

tegar.Show

End Sub

Nah cukup sampai disini dulu mudah-mudahan pembaca  memahami penjelasan Anang yang amburadul, mohon maklum aja ya. Silahkan di kembangkan lagi sesuai dengan kebutuhan pembaca.Salam Hormat