UserForm input data ke dalam sheet yang Berbeda | Tutorial VBA Macro

Konten [Tampil]

Input Data Di Excel

Microsof Excel adalah Program atau Aplikasi yang digunakan untuk mengolah data terdiri dari baris dan kolom. Untuk membuat mengentry atau input data di Microsoft Excel dilakukan dengan mengetik pada cell yang di pilih sesuai dengan baris dan kolomnya. Untuk memilih atau select cell active di Excel dapat menggunakan Mouse (crusor) atau menggunakan panah ke bawah, panah ke atas, panah ke kiri dan ke kanan pada tombol keyboard dapat pula mengguanak tombol Enter untuk pindah ke cell active dibawahnya. Selain dengan cara mengetik pada cell yang aktif dapat pula menggunakan Fitur excel untuk input data meggunakan Form baik menggunakan Userform Vba Macro atau menggunakan Menu Form di Excel. Nah kali ini bagaimana cara input data di Excel dengan menggunakan Userfom di Excel ke dalam banyak Sheet mengguanakan Pilihan Sheet yang di tambahkan di ComboBox Userform. 

Cara Membuat Form Input Data dengan VBA Excel

Form yang di gunakan input data ini menggunakan metode ActiveCell. Dimana ActiveCell akan berpindah ke Field Kolom berikut  sebagai sel kolom yang di pilih untuk di tampilkan pada Label Userform dan di inputkan data Baris kolom yang berasal dari TextBox Userfom secara berurutan Ketika macro dijalankan.

Form Input data ini juga dapat digunakan untuk menginput data berdasarkan Nama Sheet yang di pilih melalui CombBox dengan menambahkan item ComboBox dengan nama-nama Sheet yang berada dalam satu Workbooks Excel.

Form Input data di Excel dengan VBA Macro ini dibuat dengan meggunakan prosedure yang di jalankan di menggunakan Even Objek berikut :

• UserForm_Initialize()
• ComboBox1_Change()
• CommandButton1_Click() 

Script/Coding Sub Prosedur Input Data

Untuk membuat Prosedure Macro pada Form Input data ini terlebih dahulu Download Template dalam bentuk file .xlsm di sini Download Template. 

Berikut penjelasan singkat tiap Prosedur pada Objeknya :

• UserForm_Initialize() Ketika userfor terInisialisi akan di tambahkan seluruh nama Worksheet ke dalam ComboBox1 dan secara bersamaan Nama Field Kolom (kolom header) urut pertama akan ditampilkan di dalam Label 1 berikut Scriptnya

Private Sub UserForm_Initialize() Me.ComboBox1.Clear For I = 1 To Sheets.Count Me.ComboBox1.AddItem Sheets(I).Name Next I ActiveSheet.Range("A2").Select Label1.Caption = ActiveCell End Sub

• ComboBox1 Change() setelah nama-nama Sheet di tambahkan ke dalam ComboBox1, Sheet active akan berpindah sesuai dengan Sheet yang di pilih di ComboBox1 berikut Scriptnya 

Private Sub ComboBox1_Change() Set ws = Worksheets(ComboBox1.Value) ws.Activate ActiveSheet.Range("A2").Select Label1.Caption = ActiveCell End Sub

• CommandButton1_Click() digunakan untuk membuat perintah input data dari Textbox 1 ke dalam worksheet atau sel yang Aktif serikut scriptnya 
  
  

Private Sub CommandButton1_Click() If Label1 = "" Then     ActiveSheet.Range("A2").Select     Label1.Caption = ActiveCell Else     If ActiveCell.Offset(1, 0) = "" Then         ActiveCell.Offset(1, 0).Select         ActiveCell.Value = TextBox1         ActiveCell.Next.EntireColumn.Cells(2).Select         Label1.Caption = ActiveCell         TextBox1 = ""         TextBox1.SetFocus     Else         ActiveCell.End(xlDown).Offset(1, 0).Select         ActiveCell.Value = TextBox1         ActiveCell.Next.EntireColumn.Cells(2).Select         Label1.Caption = ActiveCell         TextBox1 = ""         TextBox1.SetFocus     End If End If End Sub

Demikian Form Input data ke dalam sheet yang dipilih menggunakan UserForm VBA Excel.  untuk lebih jelasnya anda dapat melihat Video berikut.

Dowload File Template 

Cara Cepat Membuat Form Input Data di Excel dengan VBA Macro

Konten [Tampil]

Form Input Data dengan VBA Excel

Microsoft Excel merupakan aplikasi terbaik dalam pengolahan data, meskipun demikian fitur-fitur dalam Microsoft excel masih memiliki keterbatasan sehingga excel menyediakan program yang berjalan bersamaan dengan aplikasi excel yaitu Macro dan VBA untuk dapat membangun  sendiri fitur-fitur di dalam Microsoft Excel dalam bentuk Aplikasi. Nah kali ini bagaimana cara membuat Form Input data menggunakan Userfrom pada VBA Excel

Form input dengan menggunakan VBA, kali ini akan dibuat menggunakan Userform dan 3 Objek saja yaitu Label1, TextBox1 dan CommentButton1 yang dapat digunakan untuk menginput banyak Record data ke dalam Lembar kerja Excel. Berikut fungsi 3 objek tersebut :

1. Label1 : untuk Menampilkan Field (kolom) Data
2. Textbox1 : Untuk membuat Record (Baris) Data
3. CommentButton1 : Untuk membuat prosedur Input data

Membuat Form Input Data dengan Userform

• Buka Program Microsoft Excel, dan Ketikkan Nama Header Kolom pada Baris  kedua Lembar Kerja Excel
• Bukan Menu Tab Developer Pilih Visual Basic lalu Pilih Insert UserForm untuk memulai membuat Form Input Data. lihat gambar tambilan Jendela Visual Basic Berikut :

• Tampilkan ToolBox pada ToolBar dan Mulai membuat 3 Object yaitu Label, TextBox dan CommentButton. Anda dapat mendesign Userform berserta objeknya sesuai keinginan anda mengguanakan Properties pada ToolBar atau bisa menggunakan Userform yang saya buat silahkan Download disini

Membuat Sub Prosedure pada Object Userform Input Data VBA Excel

Sub Prosedure merupakan instruksi dalam yang di buat dalam sebut object agar bisa berjalan secara otomatis, untuk membuat instruksi (sub Prosedure) pada Object Double Klik pada Object yang di pilih. Lakukan untuk memasukkan prosedur dibawah ini

1.    Sub Prosedure UserForm : Perintah untuk memindahkan ActiveCell di Range (“A2”) untuk di tampilkan di  Label1.caption  ketika Userform Initialize. Dengan perintah macro di bawah ini : 

Private Sub UserForm_Initialize() Sheets(1).Range("A2").Select Label1.Caption = ActiveCell End Sub

 

2.    Sub Prosedure CommentButton1 : Perintah untuk Input data ke dalam Sheet1 dengan memindahkan ActiveCell ke kolom berikutnya menggunakan fungsi ActiveCell.Next.EntireColumn disertai dengan input data di TextBox1 ketika Comment Button1 di Klik. Berikut Scirpt pada Comment Button1

 

Private Sub CommandButton1_Click() If  Label1 = "" Then     Sheets(1).Range("A2").Select     Label1.Caption = ActiveCell Else     If ActiveCell.Offset(1, 0) = "" Then         ActiveCell.Offset(1, 0).Select         ActiveCell.Value = TextBox1         ActiveCell.Next.EntireColumn.Cells(2).Select         Label1.Caption = ActiveCell         TextBox1 = ""         TextBox1.SetFocus     Else         ActiveCell.End(xlDown).Offset(1, 0).Select         ActiveCell.Value = TextBox1         ActiveCell.Next.EntireColumn.Cells(2).Select         Label1.Caption = ActiveCell         TextBox1 = ""         TextBox1.SetFocus     End If End If End Sub

  

Demikian Membuat cara membuat Form input data menggunakan UserForm VBA Macro untuk lebih jelasnya silahkan lihat Video dibawah ini 

Belajar Excel Pemula : Mengenal Microsoft Excel Workbook dan Worksheet

Konten [Tampil]

 Pengertian Microsoft Excel

Microsoft Excel adalah Program Electronic Spreadsheet yang dapat  digunakan untuk mengolah, menghitung, menyediakan maupun menganalisa data-data yang disajikan dalam bentuk tabel atau grafik. Microsoft Excel merupakan program aplikasi yang banyak digunakan hampir di setiap bidang yang membutuhkan perhitungan matematika secara kompleks. dan merupakan program terbaik di dunia dalam pengolahan data atau angka

Mengenal Workbook dan Worksheet Excel

Di dalam satu File Excel terdiri dari 1 Workbook atau Buku Kerja yaitu sebuah area dimana kita melakukan seluruh aktifitas pekerjaan pada Microsofot Excel. Untuk itu setiap file yang memiliki exstensi File Excel seperti .xlsm, .xlsx, .xlsb dsb, dapat disebut sebagai Workbook. 

Sebuah File Excel atau sebuah Workbook terdiri dari 1 atau beberapa worksheets (Lembar Kerja) Excel yang terdiri dari kolom dan baris. 

Pada Microsoft Excel terbaru, di Dalam sebuah worksheet terdapat 1.048.576 baris dan 16.384 kolom. Kolom ditampilkan dengan tanda huruf A, B, C sampai dengan XFD sedangkan baris  ditampilkan dengan angka 1, 2, 3 dan berakhir sampai 1.048.576 baris. 

Pertemuan antara baris dan kolom disebut sel (cell). Misal, pada perpotongan kolom B dengan baris ke 5 disebut sel B5. Dan sel yang bergaris tebal menandakan bahwa sel tersebut dalam keadaan aktif. sedangkan gabungan beberapa sel (cell) disebut juga dengan Range. Untuk lebih memahami lihat kesimpulan berikut ;

Workbook	: Buku Kerja atau File Excel yang terdiri dari kumpulan Lembar Kerja (Worksheets)
Worksheet	: Lembar kerja yang terdiri dari Kolom dan Baris
Sel (Cell)	: Sebuah sel yang merupakan pertemuan antara Kolom (Column) dan Baris (Row)
Range	: Gabungan dari beberapa sel (cell)

x

Cara Memindahkan Sel dengan Mouse Atau Keyboard

Untuk memindahkan, memilih sel atau range dapat menggunakan mouse maupun keyboard. Dengan mouse kita dapat leluasa memindahkan, memilih  sel atau atau range dengan mengarahkan pointer ke salah satu sel. Atau dengan drag range yang di inginkan. Sedangkan dengan menggunakan keyboard langkah yang dengan cara berikut  :  

Membuka Workbook Baru 

Langkah-langkahnya adalah sebagai berikut: 

• Pilih menu File – New (Ctrl+N) atau klik icon lembar kosong pojok kiri atas pada toolbar. 
• Jika ingin membuka workbook yang telah disusun dengan format tertentu bisa menggunakan Template yang tersediah bisa pilih More Template

• Pilih format yang diinginkan dengan mengklik pada Blank Workbook atau workbook template pada tampilan Preview. 

Menyimpan Buku Kerja (Workbook) 

• Pilih menu File – Save (Ctrl+S) 
• Pada kotak dialog Save atau Save As, Pilih Browse untuk menetukan tempat yang dipakai untuk menyimpan. dalam dirive komputer
• Pada kotak isian, ketikkan nama file 
• Klik  Save 

Demikian mengenal workbook dan worksheet di Microsoft Excel terbaru

Cara Copy semua Data Sheet Excel Ke File Excel Lain Otomatis dengan Coding VBA Excel

Konten [Tampil]

File Copy Data di Semua Sheet Penjualan ke Workbook Lain

Bagaimana cara untuk mengkopikan seluruh sheet yang ada di file Excel ke dalam workbook lain hanya dengan menggunakan satu klik saja.  Contohnya Saya memiliki Data Penjualan.xlsm dan juga Hasil Rekap ke XLSX.Di dalam file Workbook Data Penjualan.xlsm terdapat 5 sheet dan seluruh data yang terdapat pada 5 sheet tersebut akan saya copykan ke dalam file Hasil Rekap. xlsx.

Memulai Copy Data di Semua Sheet

Pada Worksheet ("DATA") terdapat Tabel Set Copy Data lihat gambar dibawah ini :

untuk memulai Copy isikan terlebih dahulu pada kolom Copy File ke dan Start Copy Sheet. Copy File Ke isikan Nama File Tujuan Copy pada cell (“G4”). Kemudian isi start copy Sheet pada cell (“G5”) dengan anggka 2 yang berarti Mulai dari Sheet(2) yaitu Sheet (JANUARI). Maka sheet dari urut 2 sampai urut akhir akan tercopy ke dalam file Hasil Rekap .xlsx

Langkah-Langkah Membuat Copy Seluruh Sheet

Oke Langsung saja langkah-langkah mengcopykan data di semua sheet ke dalam satu workbook seperti diatas silahkan Download file (ling terdapat di bawah Artikel). Untuk melihat codingnya atau membuat codingnya silahkan ikuti Langkahberikut :

• Download File Berikut : Link Download
• Buka File Data Penjualan.xlsm
• Masuk ke Menu Tab Developer Kemudian Pilih Visual Basic
• Selanjutnya membuat project dalam sebuah. Caranya pilih tanda Panah ke bawah Pada Menu TooBar dan pilih Modul  

PaPastekan Script Koding dibawah ini ke dalam Modul :

Sub CopySemuaSheet() Dim PathFile As String Dim File As String Dim wsCopy As Worksheet Dim wsPaste As Worksheet Dim UrutPertama As Integer Dim NO As Integer   'Membuat No urutan Sheet Set wsdata = Worksheets("DATA") UrutPertama = wsdata.Range("G5").Value urutAkhir = ThisWorkbook.Sheets.Count 'MENGGUNAKAN FUNGSI PERULANGAN UNTUK COPY DATA BERDASARKAN URUTAN SHET For i = UrutPertama To urutAkhir 'Membuat tujuan  file dari data yang di copy PathFile = ThisWorkbook.Path & "\" & wsdata.Range("G4") & ".xlsx" File = Dir(PathFile) 'Menggunakan fungsi if untuk copy paste data If File = "" Then MsgBox "Maaf File Tujuan tidak ditemukan" Exit Sub Else Workbooks.Open PathFile 'membuat deklarasi variable objek worksheet untuk copy dan paste NO = ThisWorkbook.Worksheets("DATA").Range("G5").Value Set wsCopy = ThisWorkbook.Sheets(NO) Set wsPaste = ActiveWorkbook.ActiveSheet 'membuat variable untuk copy paste data BarisAkhir = Cells(Rows.Count, "A").End(xlUp).Offset(1).Row wsCopy.Range("A3:e3" & BarisAkhir).Copy wsPaste.Range("A" & BarisAkhir).PasteSpecial Paste:=xlPasteValues wsdata.Range("G5") = wsdata.Range("G5") + 1 ActiveWorkbook.Close saveChanges = False End If Next i MsgBox "sudah berhasil mengirim semua data Sheet" End Sub

• Setelah Codingnya di pastekan ke dalam Modul langkah selanjutanya Membuat Jalankan Prosedur menggunakan Shape Button Start Copy Data Caranya Klik Kanan Pada Shape Button Pilih Assign Macro

• Muncul Jendela Assign Macro Pilih Prosedure CopySemuSheet dan Pilih OK

Maka Prosedur sudah siap digunakan, demikian cara Copy Semua Sheet ke Workbook lain dengan menggunakan VBA. terima Kasih

Download File Copy Semua Sheet Ke Workbook Lain

Silahkan download File Lengkap Dengan Codingnya berikut Download File dan Coding

Untuk Lebih Jelasnya silahkan simak Video dibawah ini :