cara mengkoding macro menghapus satu baris data

  1. tahun lalu

    bagaimana cara mengkoding macro menghapus satu baris data dengan catatan bila baris diatas cell H itu 0 maka bisa dihapus, lebih dari 0 tidak dapat dihapus
    koding macro tersebut ada di macro2 kalau di dalam sheet saya taruh di tombol undo
    macro 1 mengimput data sudah bisa
    mohon bantuannya
    terima kasih

    Oh... begitu. Klo file yang saya saya lampirkan bisa digunakan atau diadaptasikan ke aplikasi mas @wawANDome, coba lakukan sedikit perubahan pada prosedur HapusData menjadi:

    Public Sub HapusData()
        Dim objTable As ListObject
    
        Set objTable = Sheet2.ListObjects("TabelData")
        If (objTable.ListRows.Count > 0) Then
            With objTable
                If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then
                    .ListRows.Item(.ListRows.Count).Delete
                End If
            End With
        End If
    
    End Sub

    Perubahannya hanya pada baris (sebelumnya):

    If (.Range(.ListRows.Count, .ListColumns.Count).Value = 0) Then

    Menjadi:

    If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then

    Saya juga suka menggunakan record macro terlebih dahulu, baru kemudian disusun ulang sesuai keinginan atau metode lainnya... :D Mudah-mudahan dengan koding tersebut pekerjaan mas @wawANDome terbantukan.

  2. Caton

    1 Jun 2017 Terverifikasi Indonesia + 11.474 Poin
    Di sunting tahun lalu oleh Caton

    Maaf mas @wawANDome ... saya agak kurang paham dengan maksud:

    @wawANDome ... dengan catatan bila baris diatas cell H itu 0 maka bisa dihapus ...

    Dalam hal ini, saya coba bantu dengan versi saya, dengan menggunakan tabel data dan named range untuk memudahkan pemrogramannya. Untuk menghapus baris datanya, proses akan menghapus baris terakhir jika kolom terakhir pada baris data n - 1 bernilai 0. Sehingga apabila terdapat 2 baris data, dan jika kolom terakhir (kolom ID) pada baris pertama bernilai 0, maka baris terakhir (yakni baris data kedua) akan dihapus.

    Untuk lebih jelasnya coba periksa file terlampir. Mudah-mudahan sesuai. Klo tidak sesuai, nanti kita bongkar lagi... :D

  3. begini mas @Caton jadi nilai 1 dan 0 dimaksutkan ketika saya klik tombol tambah maka baris data akan dibuat baru dengan nilai 0 dan baris data lama akan bertambah nilainya 1, dimaksutkan ketika saya ingin mengulang data bila salah saat melakukan pembelian maka saya menekan tombol undo maka data yg bernilai 0 akan terhapus sedangkan data yg nilainya diatas 0 tidak akan terhapus dimaksutkan bila terjadi kesalahan menekan tombol undo berulang2 baris datas lama tidak terhapus jadi yg terhapus baris data sebelumnya setelah menekan tombol tambah.

    jadi pada inti permasalahannya tombol undo berfungsi menghapus data dari hasil kita tekan tombol tambah dan bila menekan tombol undo lagi maka colom data yg lama tidak terhapus jadi cuma satu colom data saja yg kita input tadi yg akan terhapus.

    btw mantap banget bantuan masnya rapi sekali. saya masih menggunakan record macro jadi terlihat sangat sederhana hehehe

  4. Caton

    1 Jun 2017 Terverifikasi Jawaban Terpilih Indonesia + 11.474 Poin

    Oh... begitu. Klo file yang saya saya lampirkan bisa digunakan atau diadaptasikan ke aplikasi mas @wawANDome, coba lakukan sedikit perubahan pada prosedur HapusData menjadi:

    Public Sub HapusData()
        Dim objTable As ListObject
    
        Set objTable = Sheet2.ListObjects("TabelData")
        If (objTable.ListRows.Count > 0) Then
            With objTable
                If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then
                    .ListRows.Item(.ListRows.Count).Delete
                End If
            End With
        End If
    
    End Sub

    Perubahannya hanya pada baris (sebelumnya):

    If (.Range(.ListRows.Count, .ListColumns.Count).Value = 0) Then

    Menjadi:

    If (.Range(.ListRows.Count + 1, .ListColumns.Count).Value = 0) Then

    Saya juga suka menggunakan record macro terlebih dahulu, baru kemudian disusun ulang sesuai keinginan atau metode lainnya... :D Mudah-mudahan dengan koding tersebut pekerjaan mas @wawANDome terbantukan.

  5. terima kasih mas @Caton ini yang saya cari :D
    btw sheet 2 itu diartikan apa ya? halaman ke 2? atau nama dari sheet?

  6. Caton

    2 Jun 2017 Terverifikasi Indonesia + 11.474 Poin

    Sama-sama mas @wawANDome ... iya, Sheet2 itu object name dari Sheet 2.

 

atau Mendaftar untuk ikut berdiskusi!