Fungsi delete error

  1. 3 tahun lalu

    Mohon bantuan dari para suhu disini. Saya ada sedikit kendala, jika saya menghapus data dari listbox maka yang terhapus bukan data yg dipilih. Misalnya saya akan hapus data di baris 3, maka data yang terhapus adalah baris ke 2. berikut kode vba yg saya gunakan. mohon bantuan untuk koreksi. terima kasih sebelumnya

  2. Kalau seperti ini, berarti row targetnya harusnya di tambah 1 biar pas baris yang dihapus.

    Oh ya untuk kode gambar diatas, saya lihat kok gak ada kode ListBoxnya?

  3. Ini utk kode list boxnya

  4. oh, ini kode list boxnya double klik untuk mindahin ke textbox

  5. Betul, dan kode hapus datanya hanya seperti yg di atas, cuma data yg terhapus jika di pilih row 3 yg terhapus row 2

  6. Berarti untuk kode hapusnya yang rows(i+1).delete
    Coba ganti angka 1 dengan 2, atau sesuai baris awal datanya, jika di mulai dari baris 2 ya tambahkan 2, jika dimulai dari baris ke-5 ya tambahkan 5.

  7. Makasih, udah berfungsi

  8. like.png

  9. Saya ada kendala 1 lagi, barangkali bisa bantu. Saya membuat tombol edit utk userform 2 dan copy formula dr user form 1. Dan utk targetnya sudah sy set utk userform 2. Tp kendalanya begitu setelah di edit munculnya malah di target userform 1. Dan keluar msgbox begitu di klik ok, data terus bertambah di target userform 1

  10. saya ngelihatnya ini targetnya di sheet yang sama dengan yang ada di userform1, hanya beda kolom acuannya saja range I.

    karena kolomnya mulai I maka penulisan kolomnya harusnya mulai dari 10, dibagian:

    ws.cells(baris4, 10).value  = ... dst 

  11. sudah saya ganti, tp kasusnya sama begitu di klik update keluar seperti ini dan malah pindah baris. jika msg boxnya sy tekan OK datanya jadi seperti mengkopi

  12. Private Sub EDIT1_Click()
    On Error Resume Next
    Dim lastrow
    Dim X1 As String
    Set ws = Worksheets("SPROPR")
    ws.Activate
    lastrow = ws.Range("T" & Rows.Count).End(xlUp).Row
    X1 = Jenis_Unit.text
    For baris4 = 1 To lastrow
    
    If Cells(baris4, 2).text = X Then
    
    ws.Cells(baris4, 20).Value = Me.ID_Unit.Value
    ws.Cells(baris4, 21).Value = Me.Jenis_Unit.Value
    ws.Cells(baris4, 22).Value = Me.Merek.Value
    ws.Cells(baris4, 23).Value = Me.Cabin.Value
    ws.Cells(baris4, 24).Value = Me.No_Mesin.Value
    ws.Cells(baris4, 25).Value = Me.No_Seri.Value
    ws.Cells(baris4, 26).Value = Me.Lokasi1.Value
    
    Call MsgBox("Data Telah Update", vbInformation, "Update Data")
    
    
    End If
    
    Next baris4
    
        Jenis_Unit.SetFocus
        Me.ID_Unit.Value = ""
        Me.Jenis_Unit.Value = ""
        Me.Merek.Value = ""
        Me.Cabin.Value = ""
        Me.No_Mesin.Value = ""
        Me.No_Seri.Value = ""
        Me.Lokasi1.Value = ""
    
    End Sub

    Mohon bantu koreksi jika ada yg salah

  13. oh, kolom T saya kira I. itu yang

    If Cells(baris4, 2).text = X Then

    kolomnya masih kolom ke dua alias kolom B dan variable X tidak ada, adanya X1

  14. terima kasih sudah berjalan dg semestinya

 

atau Mendaftar untuk ikut berdiskusi!