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
13 Komentar
Mas Minta File MAcro Buat Simpan nya Dong Mas
BalasHapuskode ada dihalam di atas
Hapusdownload aja project filenya disitu sudah ada semua
BalasHapusmas, boleh share password Unprotect Sheetnya ?
BalasHapuspassword untuk unprotect nya 123
Hapussemoga ilmu yang sampean bagikan bisa menjadi ladang pahala
BalasHapusamiin
HapusMas boleh minta kode,pada tombol simpan tidak??
BalasHapusSALAM,
BalasHapusboleh minta pass protect nya ?
terimakasih mas
Mas kenapa jika sudah saya close excelnya, trus buka lagi tombolnya sudah gak bisa di gunakan,? harus isi kodenya lagi
BalasHapusKomentar ini telah dihapus oleh pengarang.
BalasHapusHalo mas,
BalasHapusSaat isi untuk nomor otomatisnya kok error karena ga ada fungsi NO di Excel. Harus bagaimana kah?. Terima kasih
Bang, project file-nya data ibu hamil, bukan seperti contoh di video. Boleh share project file yang sesuai. Trims
BalasHapus