DÜZELT ve SİL BUTONU

[yanginci34]

Üstadlarım Forumda aradım ama bulamadım ekteki dosyada userform2 de düzelt ve sil butonunu bir türlü beceremedim yardımlarınız için şimdiden teşekkürler.
Ekli dosyayı görüntüle DENEME TUZ.xlsm

 

[EmrExcel16]

Merhaba Userform2 nin kod kısmına aşağıdaki kodları yapıştırınız.

'Değiştirmek için
Private Sub CommandButton3_Click()
On Error Resume Next
Dim emr As Variant

    If TextBox1 = "" Then MsgBox "Önce listeden seçim yapmalısınız!", vbCritical, "Hata": Exit Sub

emr = Format(TextBox1, "dd mmmm yyyy dddd")
Set emr = Sheets("Sayfa1").Range("D:D").Find(emr, , xlValues, xlWhole)

    If Not emr Is Nothing Then
        Sheets("Sayfa1").Range("D" & emr.Row).Value = Format(TextBox1, "dd mmmm yyyy dddd")
        Sheets("Sayfa1").Range("E" & emr.Row).Value = TextBox2
        
        ListBox1.RowSource = "'" & Sayfa1.Name & "'!d3:e" & Sayfa1.Cells(Rows.Count, 2).End(xlUp).Row
        MsgBox "Kayıt Degistirilmistir", vbInformation, "İşlem Başarılı"
    End If

End Sub

'Silmek için
Private Sub CommandButton4_Click()
On Error Resume Next
Dim emr As Variant

    If TextBox1 = "" Then MsgBox "Önce listeden seçim yapmalısınız!", vbCritical, "Hata": Exit Sub

    emr = Format(TextBox1, "dd mmmm yyyy dddd")
    Set emr = Sheets("Sayfa1").Range("D:D").Find(emr, , xlValues, xlWhole)

    If Not emr Is Nothing Then
        Sheets("Sayfa1").Range("D" & emr.Row & ":E" & emr.Row).ClearContents 'Delete Shift:=xlUp
        TextBox1.Value = ""
        TextBox2.Value = ""
        ListBox1.RowSource = "'" & Sayfa1.Name & "'!d3:e" & Sayfa1.Cells(Rows.Count, 2).End(xlUp).Row
        MsgBox "Kayıt Silinmiştir", vbInformation, "İşlem Başarılı"
    End If

End Sub

 

[yanginci34]

Günaydın Üstadım ilginizden ötürü çok teşekkür ederim daha evvel giriş tarihi ve miktarı verilerinde düzelt ve sil kodlarınız sorunsuz çalışıyor fakat yeni giriş yaptığımızda bu verileri düzeltemiyor ve silemiyorum Ekli dosyayı görüntüle DENEME TUZ.xlsm

 

[EmrExcel16]

Sayfada otomatik tablo kullanmışsınız buda veri giriş ve çıkışlarında sıkıntı yaratabiliyor tahminimce normal tablo haline getirebilirseniz düzelecektir

 

[yanginci34]

çok teşekkür ederim elinize sağlık kolay gelsin.

 

[yanginci34]

Üstadım bir form daha hazırlıyorum ama bir türlü sil yazamadım sizin yukarıdaki sil kodunuzu uyarlamaya çalıştım onuda beceremedim bir yardım ederseniz sevinirim.
Ekli dosyayı görüntüle ayniyattt deneme.xlsm

 

[yanginci34]

yokmu yardım edecek konu günceldir.

 

[yanginci34]

konu günceldir.