sil kodunda hata

[ahmett46]

Sn levent beyin yapmış olduğu bir programda sil makrosu çalışmıyor yardımcı olurmusunuz

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub sil_Click()
    Dim X As Long
    Dim say As Integer
    Dim I As Integer
    Dim bos As Range
    
    On Error Resume Next
    
    Sheets("veri").Select
    
    If A.Text = "sıra no" Then
        MsgBox "sıra no Değeri silinemez, program tarafından kullanılıyor...", , "Sil Hatası!!!"
        Exit Sub
    End If
    
    For Each bos In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If B.Value = "" Or bos = "" Or ActiveCell = "" Then
            MsgBox "Önce kaydını sileceğiniz kişiyi listeden seçmelisiniz."
            Exit Sub
        End If
    Next
    
    If MsgBox(B.Value & " isimli kişiye ait kayıt tamamen silinecek, silmek istiyor musunuz?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
        X = Sheets("veri").Range("B:B").Cells.Find(what:=ListBox1, LookIn:=xlValues).Row
        Rows(X).Delete Shift:=xlUp
        
        say = WorksheetFunction.CountA(Range("A2:A65500"))
        
        For I = 1 To say
            Cells(I + 1, 1) = I
        Next I
        
        A.Value = WorksheetFunction.Count(Range("A1:A65500")) + 1
        MsgBox " " & B.Value & " isimli kişiye ait tüm bilgiler silinmiştir.", vbInformation, "Sendika Programı"
        formutemizle_Click
        TextBox17 = Sheets("Sheet1").Range("A2").Value 'bayan
        TextBox18 = Sheets("Sheet1").Range("B2").Value 'erkek
        TextBox19 = Sheets("Sheet1").Range("C2").Value 'toplam
        ComboBox2_Change
        A.SetFocus
        Unload Personel
        Personel.Show
    End If
End Sub

 

[ahmett46]

Yine olmadı hocam

 

[Korhan Ayhan]

Merhaba,

"SİL" kodunun çalışması için ilk olarak ListBox nesnesinde listelenen isimlerden birisine tıklamanız gerekmektedir. Ben kodu deneyerek size önermiştim.