Cara Menghapus baris data pada sheet yang memiliki otomatis cell

  1. 2 minggu lalu

    Siang master..
    mohon pencerahannya, bagaimana caranya jika saya ingin menghapus satu baris data pada sheet yang pada kolom pertamanya itu ada kolom misalnya berupa No registrasi yang terinput secara automatis saat melakukan input data. Karena pada saat saya menekan tombol hapus pada user form, yg terhapus hanya data identitas lainnya. Sementara untuk no regis tdak terhapus sehinggga saat sy melakukan input data kembali data baru akan mengisi pada baris dibawahnya dan baris diatasnya kosong. mohon bantuannya para master.. terima kasih

  2. manweljs_

    Peb 4 Terverifikasi + 7.103 Poin

    @Deri Prayudi

    ada contoh formnya ?

    #lagimalasbikin

  3. oke master sy lampirkan file nya ya.. mhon koreksinya.. khusunya untuk form Hapus data nya.. mhon bantuannya jg master untuk script jika ada data yang sudah terinput, atau menghindari data ganda maka system akan memberikan opsi simpan atau batal.

  4. @manweljs_ terima kasih attention nya master

  5. manweljs_

    Peb 7 Terverifikasi + 7.103 Poin
    Di sunting 2 minggu lalu oleh manweljs_

    @Deri Prayudi ...khusunya untuk form Hapus data nya..

    coba scrip berikut:

    Private Sub hapus_Click()
    With Lembar1
        hapusBarisData (npm)
        Unload me
    End With
    End Sub
    
    Private Sub npm_Change()
    If Len(npm) = 6 Then
        LoadData (npm)
    End If
    End Sub
    
    'skrip untuk load data sesuai nomor NPM
    Private Sub LoadData(npm As Long)
    With Lembar1
    x = .Range("A" & Rows.Count).End(xlUp).Row
        For Each sel In .Range("B3:B" & x)
            If sel.Value = npm Then
                n = sel.Row
                Me.nama = .Cells(n, 3)
                Me.alamat = .Cells(n, 4)
                Me.tempatlahir = .Cells(n, 5)
                Me.cmbTglLahir = Format(.Cells(n, 6), "dd")
                Me.cmbBulan = Format(.Cells(n, 6), "mm")
                Me.cmbTahun = Format(.Cells(n, 6), "yyyy")
                Me.cmbKelamin = .Cells(n, 7)
                Me.cmbProdi = .Cells(n, 8)
                Me.cmbMataKuliah = .Cells(n, 9)
                Me.cmbNilai = .Cells(n, 10)
                Me.tanggalujian = .Cells(n, 11)
                Me.serisertifikat = .Cells(n, 12)
            End If
        Next
    End With
    End Sub
    
    'skrip untuk hapus data
    Private Sub hapusBarisData(npm As Long)
    With Lembar1
    x = .Range("A" & Rows.Count).End(xlUp).Row
        For Each sel In .Range("B3:B" & x)
            If sel.Value = npm Then
                .Cells(sel.Row, 1).EntireRow.Delete
            End If
        Next
    End With
    End Sub

    @Deri Prayudi ....mhon bantuannya jg untuk script jika ada data yang sudah terinput, atau menghindari data ganda maka system akan memberikan opsi simpan atau batal.....

    ini maksudnya form yang mana ? apakah FormInputData ?
    jika ya maka patokan data gandanya dimana, apakah NPM ?

    @Deri Prayudi @manweljs_ terima kasih attention nya master

    saya bukan master, panggil nama aja :)

  6. @manweljs_ Saya coba sriptn ya master.. oiaa, maaf itu untuk sub hapusBarisData nya sy buat module baru atau perintah yg dimananya y?hhee..

    untuk yg input ganda itu untuk form input data nya master.. kalo saya punya 2 primary key bs gak? jd key pertama di NPM dan kedua di No Seri Sertifikat. Karena kondisinya 1 mahasiswa bisa memiliki lebih dari 1 jenis sertifikat yang berbeda di input dalam satu database mahasiswa.

    hhhee,, oke deh, sy panggil abang aja… bang master
    sy boleh mnta nomor kontaknya bang?klo ada pertanyaan sy bs konsultasi lg..

  7. manweljs_

    Peb 7 Terverifikasi + 7.103 Poin
    Di sunting 2 minggu lalu oleh manweljs_

    @Deri Prayudi ...oiaa, maaf itu untuk sub hapusBarisData nya sy buat module baru atau perintah yg dimananya y?....

    semua skirp diatas adalah untuk modul frmHapusData

    menurut saya, form Input, Hapus dan Edit bisa dijadikan 1 form aja gak perlu dipisah seperti itu... saya pernah membuatkan contohnya namun lupa diskusi yang mana. coba aja di cari-cari, siapa tau ketemu (^_^)/..

    saat ini saya lagi agak sibuk , nanti malam kalau sempat saya buatkan sekalian menjawab pertanyaan mengenai data ganda

    @Deri Prayudi sy boleh mnta nomor kontaknya bang?klo ada pertanyaan sy bs konsultasi lg..

    silahkan ditanyakan aja di sini, agar kalau ada teman2 yang lebih senggang bisa ikut membantu... kecuali untuk diskusi atau file-file yang sekiranya tidak untuk dikonsumsi publik maka bisa ditanyakan lewat PM.

  8. @manweljs_ oke bang terima kasih banyak masukan dan bantuannya.. sy coba implementasikan.. terima ksih untuk mau bntu perbaiki form design sy hhee,,, maklum masih pemula bgt bang.. mudah2an semakin bermanfaat dan berkah ilmunya bang..

    sy PM aja nnti bang untuk file lainnya ya..

 

atau Mendaftar untuk ikut berdiskusi!