Cara Membuat Coding Hapus dan Batal di userform Excel

Berkaitan dengan artikel sebelumnya yang membahas tentang Cara Membuat Coding Update di Userform Excel

Baca juga artikel:
Cara Membuat Coding Simpan di Userform Excel 

Kali ini saya akan melanjutkan Cara Membuat Coding Hapus dan Batal.

Ok langsung saja ke pengcodingannya ya sobat.
Silahkan sobat Klik Tombol hapus
Copy Paste coding di bawah ini

Private Sub CmbHapus_Click()
Dim Pesan As String
Dim Ws As Worksheet
Set Ws = Worksheets("BARANG")
Dim shtSeason As Worksheet
Dim c As Range
If TextBox1.value = "" Then
MsgBox "Silahkan Cari Id Barang terlebih Dahulu", vbInformation, "Info"
TextBox1.SetFocus
Else
Pesan = TextBox2.Text + "_ Akan dihapus dari database,Anda Yakin?
If MsgBox(Pesan, vbQuestion + vbYesNo, "Konfirmasi Penghapusan") = vbYes Then
Set shtSeason = Sheets("Barang")
Set c = shtSeason.Columns(1).Find(TextBox1.Text)   c.Resize(, 5).Delete Shift:=xlUp
MsgBox "Data berhasil dihapus", vbOKOnly
Call bersihkan
Call tampil1
Call JmlData
End If
End If
Call bersihkan
TextBox1.Enabled = True
TextBox1.SetFocus
End Sub

Coding Batal

Private Sub CmbBatal_Click()
Call bersihkan
End Sub

Private Sub CmbKeluar_Click()
Unload Me
End Sub

Semoga Berhasil..

Share :