Blogger Jateng

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.
Hapus, Userform VBA Excel
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 "

Otohits.net, fast and efficient autosurf
Otohits.net, fast and efficient autosurf