Tutorial Cara Membuat Tombol Simpan VBA Excel

Langkah-Langkah Membuat Tombol "SIMPAN" VBA Excel :

• Buka Excel, pada "Sheet1" rename jadi "DB", Save File dengan nama "Aplikasi Data" dan buatlah tabel seperti contoh gambar dibawah
  
• Rancanglah Userform seperti gambar dibawah ini
  
• Selanjut kita akan bermain di properties, ganti Caption "UserForm1" dengan "Aplikasi Data", ganti (name) Textboxnya : TxtNoInduk, TxtNamaSiswa, TxtAlamat. Untuk OptionButton ganti (name) dengan OptLaki dan OptPerempuan. Untuk CommandButton ganti (name) dengan CmdSimpan dan CmdBatal
• Klik kanan pada Tombol Simpan dan View Code, masukkan kode untuk CmdSimpan berikut :

Private Sub CmdSimpan_Click()

Dim Baris As Long

Dim Ws As Worksheet

Dim path As String

Set Ws = Worksheets("DB")

'Temukan Baris

Baris = Ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'peringatan Bila data tidak diisi

If UserForm1.TxtNoInduk.Value = "" Or UserForm1.TxtNamaSiswa.Value = "" Then

MsgBox " Lengkapi Data Yang Kosong..!!!", 48, "Aplikasi Data"

Exit Sub: End If

'Peringatan bila jenis kelamin bleom di pilih

If UserForm1.OptLaki.Value = False And UserForm1.OptPerempuan.Value = False Then

MsgBox "Pilih Jenis Kelamin..!!", 48, "Aplikasi Data"

Exit Sub: End If

If WorksheetFunction.CountIf(Ws.Range("B:B"), TxtNoInduk.Text) = 1 Then

MsgBox "No. Pendaftar Ganda..!!!", 48, "Aplikasi Seleksi Siswa Baru.."

Exit Sub: End If

Ws.Cells(Baris, 1).Value = "=Row()-3"

Ws.Cells(Baris, 2).Value = Me.TxtNoInduk.Value

Ws.Cells(Baris, 3).Value = Me.TxtNamaSiswa.Value

If OptLaki.Value = True Then

Ws.Cells(Baris, 4).Value = "Laki-Laki"

End If

If OptPerempuan.Value = True Then

Ws.Cells(Baris, 4).Value = "Perempuan"

End If

Ws.Cells(Baris, 5).Value = Me.TxtAlamat.Value

MsgBox "Data telah Di Tambah", 64, "Aplikasi Data"

Call CmdBatal_Click

End Sub

• Untuk Tombol Reset yang berfungsi mereset form pengisian data. masukkan kode berikut ini

Private Sub CmdBatal_Click()

With UserForm1

.TxtNoInduk.Value = ""

.TxtNamaSiswa.Value = ""

.OptLaki.Value = False

.OptPerempuan.Value = False

.TxtAlamat.Value = ""

End With

End Sub

• Coba jalankan fungsinya dengan menekan tombol F5. Jika anda mengikuti dengan benar maka Aplikasi Akan Jalan dengan baik.