Berkaitan dengan artikel sebelumnya yang membahas tentang Cara Membuat Coding Update di Userform Excel
Baca juga artikel:
Cara Membuat Coding Simpan 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..
Post a Comment for "Cara Membuat Coding Hapus dan Batal di userform Excel "
Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.