RECENT COMMENTS

Cara Membuat Form Input Data dengan Macro VBA di Excel


Pada kesempatan kan ini kita akan belajar bersama-sama bagaimana cara membuat sebuat Form Input Data di Excel menggunakan Sel di tambah lagi dengan Macro VBA agar form yang dihasilkan bisa otomatis mengisi data di dalam sebuah tabel. 

bagi Anda yang menginginkan Project Filenya bisa mendownloadnya melalui link yang ada di bawah ini secara gratis.

Berikut ini Code VBA nya :

Private Sub Save_Click()
ActiveWorkbook.Sheets("Transaksi").Activate
Sheets("Transaksi").Range("B3").Select
Do
If IsEmpty(ActiveCell) = False Then
    ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Dim strAnswer As VbMsgBoxResult
strAnswer = MsgBox("Apakah Anda ingin menyimpan transaksi ini?", vbQuestion + vbYesNo, "KONFIRMASI!")
If strAnswer = vbYes Then
ActiveCell.Value = Sheets("Form").Range("E4").Value
ActiveCell.Offset(0, 1) = Sheets("Form").Range("E6").Value
ActiveCell.Offset(0, 2) = Sheets("Form").Range("E8").Value
ActiveCell.Offset(0, 3) = Sheets("Form").Range("E10").Value
ActiveCell.Offset(0, 4) = Sheets("Form").Range("E12").Value
ActiveCell.Offset(0, 5) = Sheets("Form").Range("E14").Value
Do
Loop Until strAnswer = vbYes = True
Sheets("Form").Range("E8").ClearContents
Sheets("Form").Range("E10").ClearContents
Sheets("Form").Range("E12").ClearContents
Sheets("Form").Range("E14").ClearContents
End If
If strAnswer = vbNo Then
Sheets("Form").Select
End If
End Sub

Private Sub transaksi_Click()
Sheets("Transaksi").Select
End Sub



Jika Link Download Bermasalah atau belum sesuai/mengarah ke Project File PPT, tinggalkan pesan lewat kolom Komentar di bawah artikel ini.

Posting Komentar

12 Komentar

  1. Mas Minta File MAcro Buat Simpan nya Dong Mas

    BalasHapus
  2. download aja project filenya disitu sudah ada semua

    BalasHapus
  3. mas, boleh share password Unprotect Sheetnya ?

    BalasHapus
  4. semoga ilmu yang sampean bagikan bisa menjadi ladang pahala

    BalasHapus
  5. Mas boleh minta kode,pada tombol simpan tidak??

    BalasHapus
  6. SALAM,
    boleh minta pass protect nya ?
    terimakasih mas

    BalasHapus
  7. Mas kenapa jika sudah saya close excelnya, trus buka lagi tombolnya sudah gak bisa di gunakan,? harus isi kodenya lagi

    BalasHapus
  8. Komentar ini telah dihapus oleh pengarang.

    BalasHapus
  9. Halo mas,
    Saat isi untuk nomor otomatisnya kok error karena ga ada fungsi NO di Excel. Harus bagaimana kah?. Terima kasih

    BalasHapus