Trimakasih telah berkunjung di ZAINALBLOG Kami selalu menunggu kunjungan Anda berikutnya! Salaaaaaaam dari Zainal Abidin, S.Pd (Guru SMAN Unggul Pidie Jaya)!!! Untuk mendapatkan informasi terbaru silahkan bergabung dengan cara klik disini: FACEBOOK ZAINAL ABIDIN atau FACEBOOK INFO PENDIDIKAN

Tuesday, 21 April 2015

Rekapitulasi input data dari Banyak File pada Excel

Aku tak tahu judul apa yang paling tepat untuk tutorial ini. Tapi kronologinya seperti ini :

Dalam satu folder terdapat banyak pengguna, dan tiap tiap pengguna menginginkan setiap yang diinput masuk dalam sebuah rekapitulasi yang telah disediakan.
Gambar :
Nomor 1 : menunjukan Nama sebuah Folder disini dibuat nama"data" bisa kalian ubah sesuai keinginan.
Nomor 2 : pengguna, disini dibuat dua pengguna yaitu pengguna1 dan pengguna2, untuk memudahkan tutorial, kalian bisa menambahnya sendiri
Nomor 3 : adalah file rekapitulasi dengan aku kasih nama "rekap.xlsx" 
Sipnosisnya :
Jika pengguna1 menginputkan sebuah data, maka akan secara otomatis masuk kedalam file "rekap", itu juga terjadi pada pengguna2.
caranya :
pertama:
buat folder dengan nama "data" ( bisa nama lain sesuai kebutuhan)
kedua :
buatlah 3 file dengan nama  (1) File Rekap  (2) pengguna1  (3) pengguna2
Buka pada file "pengguna1"
- Pada Range (A1) Ketik "nama"  dan (B1) ketik "alamat"
  
 - Buka Tab Developer ( Jika di excel kalian belum muncul Tab Developer, Kalian bisa mengaktifkannya dulu tutorialnya disini
- Pilih " Visual Basic"  lalu Pilih "Insert => UserForm
- Buatlah Form kurang lebih seperti ini :
 (gambar form ini, meliputi 3 label, 2 TextBox dan 1 CommonButton )
- Klik tombol simpan ( jika sudah keluar jendelanya, ketik rumus berikut :
----------------------------------------------------------------
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
End With
ThisWorkbook.Save
Workbooks.Open fileku & "\" & "rekap.xlsx" 'buka workbook rekap
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) - 4) 'nama dari workbook yang entry
End With

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

--------------------------------------------------------------------------------

Tulisan block warna merah menunjukan nama file rekap, ubah sesuai dengan nama file kalian.
selanjutnya>>>>>
Klik Insert => Module
Masukan rumus berikut :
-----------------------------------------
Sub OpenForms()
   UserForm1.Show
End Sub

-----------------------------------------
Klik SIMPAN.
setelah itu buka kembali file pengguna1
- masih pada Tab Developer > Klik Insert
- Pilih Tombol Button
- Drag dimanapun kalian sesukanya..
- secara otomatis akan muncul kotak record macro seperti ini :
- Pilih "OpenForms"
Klik OK
--------------------------------------------------------------------------

Perlakukan hal sama pada Pengguna2

File Uda Siap dipakai
--------------------------------------------------------------------------
Contoh Filenya bisa didownload disini

0 komentar:

Post a Comment

bagus sangat membatu bagi kami
sering-seringlah enteri file yang baru
kami merasa senang dan bangga atas kebedradaan blog ini