√ Cara Memasukan Data Pada Sheet Yang Berbeda Dengan Macro

Masih perihal Macro, kali ini aku akan membahas bagaimana cara memasukan data pada sheet yang berbeda dengan memakai macro? Ok, ini yaitu sebuah pertanyaan yang akan dibahas jawabannya pada posting artikel kali ini. Dari judul posting diatas perihal bagaimana cara memasukan data pada sheet yang berbeda dengan memakai macro atau script VBA di Ms. Excel.

Lebih jelasnya sebagai kalimat lain dari judul artikel kali ini yaitu bagaimana kita sanggup memasukan data dimana data yang kita masukan di sheet 1 pada sebuah cell tertentu dan sanggup dicopy ke database di sheet 2. Bagaimana menciptakan hal tersebut memakai macro?

Contoh aplikasi tabungan memakai excel perihal cara memasukan data pada sheet yang berbeda

Gambar diatas merupakan input data utama untuk memasukan data kepada database yang berada di sheet yang lain dan sudah di setting.
Oke, untuk memudahkan dalam mempelajari bahan kali ini aku akan buatkan referensi untuk satu buah input data suapaya tidak ribet.

Berikut langkah-langkah berguru macro excel bagaimana cara memasukan data pada sheet yang berbeda

1. Buat dua buah sheet dan ganti nama dengan sheet 1 dengan "FORM INPUT" dan sheet 2 ganti dengan nama "DATABASE"
   
2. Buatlah goresan pena menyerupai gambar berikut dibawah, Nama Pegawai di cell B3 lalu alamat di cell B3 dan text isian sebeluh kanannya yang nantinya data tersebut akan dimasukan ke dalam database. Untuk lebih jelasnya silakan perhatikan gambar dibawah
   
3. Langkah berikutnya yaitu menciptakan tombol atau command button "SIMPAN" dibawahnya dengan cara klik sajian depelover lalu pilih Insert button
4. Buatlah sebuah tombol dengan langkah diatas sehingga akan menyerupai gambar berikut
   
5. Pada jendela Assign Macro ganti macro nama dengan "simpan" lalu klik tombol NEW
   
6. Jika langkah diatas benar maka akan muncul jendela Microsoft Visual Basic Editor
   
7. Klik sajian Insert Module lalu pada module 2 buatlah script menyerupai dibawah ini
   Sub MasukanData()
   Dim NamaPegawai As String
   Dim Alamat, Nomor As String
   
   'PILIH SHEET
   Sheets("FORM INPUT").Select
   Nomor = Range("G1").Text
   NamaPegawai = Range("C3").Text
   Alamat = Range("C4").Text
   
   'MASUKAN DATA
       Sheets("database").Select
       jumlahData = Range("E1").Value
       Rows(jumlahData + 2 & ":" & jumlahData + 2).Select
       Selection.Copy
       Rows(jumlahData + 3 & ":" & jumlahData + 3).Select
       ActiveSheet.Paste
       Application.CutCopyMode = False
   
   'Masukan data
       Range("A" & jumlahData + 3).Select
       ActiveCell.FormulaR1C1 = Nomor
       Range("B" & jumlahData + 3).Select
       ActiveCell.FormulaR1C1 = NamaPegawai
       Range("c" & jumlahData + 3).Select
       ActiveCell.FormulaR1C1 = Alamat
      
       Sheets("form input").Select
       'pesan berhasil
       MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"
       Range("C3").Select
   End Sub
8. Pada sheet "Input Data" silakan tambahkan "jumlah data" dan "data ke" kira kira menyerupai gambar dibawah
   
9. Pada sheet DataBase silakan tulislah Fiel-Fiel menyerupai berikut : dan di cell E1 tulis rumus =COUNT(A:A)
   
10. Kembali ke jendela Visual Basic Editor silakan tulis pada Module 2
    Sub simpan()
    MasukanData
    End Sub
11. Silakan coba masukan salah satu data menyerupai berikut, 
12. Klik Tombol Simpan dan silakan lihat datanya di sheet "DATABASE" bila berhasil data tersebut akan masuk ke database.

oia untuk memunculkan pesan script diatas adalah
    Sheets("form input").Select
    'pesan berhasil
    MsgBox "Input Data Berhasil !", vbInformation, "Terimakasih !"
    Range("C3").Select
dan disimpan di Module 2 sebelum End Sub


OK, hingga disini Tutorial Macro Excel bagaimana cara menciptakan atau memasukan data pada sheet yang berbeda. dan Tutorial ini Anda sanggup gunakan untuk menciptakan Aplikasi berbasis Excel tinggal dimodifikasi Ajah dan diperdalam kembali pengetahuan Macro Excel Anda.
Sumber http://www.excel-id.com/