Diskusi tentang Excel

Cara Memasukan Data Pada Sheet yang Berbeda dengan Macro

Masih tentang Macro, kali ini saya akan membahas bagaimana cara memasukan data pada sheet yang berbeda dengan menggunakan macro? Ok, ini adalah sebuah pertanyaan yang akan dibahas jawabannya pada posting artikel kali ini. Dari judul posting diatas tentang bagaimana cara memasukan data pada sheet yang berbeda dengan menggunakan macro atau script VBA di Ms. Excel.
Lebih jelasnya sebagai kalimat lain dari judul artikel kali ini adalah bagaimana kita bisa memasukan data dimana data yang kita masukan di sheet 1 pada sebuah cell tertentu dan dapat dicopy ke database di sheet 2. Bagaimana membuat hal tersebut menggunakan macro?

Contoh aplikasi tabungan menggunakan excel tentang 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 materi kali ini saya akan buatkan contoh untuk satu buah input data suapaya tidak ribet.

Berikut langkah-langkah belajar 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 tulisan seperti gambar berikut dibawah, Nama Pegawai di cell B3 kemudian 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 adalah membuat tombol atau command button "SIMPAN" dibawahnya dengan cara klik menu depelover kemudian pilih Insert button
  4. Buatlah sebuah tombol dengan langkah diatas sehingga akan seperti gambar berikut
  5. Pada jendela Assign Macro ganti macro nama dengan "simpan" kemudian klik tombol NEW
  6. Jika langkah diatas benar maka akan muncul jendela Microsoft Visual Basic Editor
  7. Klik menu Insert Module kemudian pada module 2 buatlah script seperti 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 seperti gambar dibawah
  9. Pada sheet DataBase silakan tulislah Fiel-Fiel seperti 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 seperti berikut
  12. Klik Tombol Simpan dan silakan lihat datanya di sheet "DATABASE" jika 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, sampai disini Tutorial Macro Excel bagaimana cara membuat atau memasukan data pada sheet yang berbeda. dan Tutorial ini Anda bisa gunakan untuk membuat Aplikasi berbasis Excel tinggal dimodifikasi Ajah dan diperdalam kembali pengetahuan Macro Excel Anda.

Related

Trik Excel 5985798937833915675

Post a Comment

  1. Data yang saya input koq malah ke replace ya dg data yg baru?? Dmn kslahannya??
    Trims

    ReplyDelete
  2. Kenapa ke replace yah??
    Mohon pencerahannya,,

    ReplyDelete
  3. mas mau nanya saya udah buat data excel menggunakan form vba, tapi setelah saya share data tersebut ke komputer lain untuk digunakan bersama kok ga bisa ya.. ada ga mas pencerahannya.... terimakasih....

    ReplyDelete
  4. Mas mau nanya ne,, itu kan koding program simpannya di form input untuk kolom horizontal,,kalau kolom di form input vertikal,,bagaimana koding program simpan nya mas,,mhon bantuannya mas

    ReplyDelete
  5. Mas, kirim ke email ne mas, , andresyafirman3@gmail.com

    ReplyDelete
  6. Kalau simpanya ke workbook lain gimana ya Brow? fatiasa@foamindo.com

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item