sil hatası

[sinemomec]

Sheets("DESİMALDOSYA").Range("B:B").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete burada hata vermektedir.

Private Sub CmdSil_Click()
sor = MsgBox("SEÇİLEN KAYIT SİLİNECEK.", vbYesNoCancel + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub
If sor = vbCancel Then Exit Sub
For a = 0 To lstdesimaldosya.ListCount - 1
If lstdesimaldosya.Selected(a) Then
ara = lstdesimaldosya.List(a, 0)
Sheets("DESİMALDOSYA").Range("B:B").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
End If
Next
End Sub

 

[sinemomec]

acil yardımınızı bekliyorum...

 

[sinemomec]

İndir EVRAK KAYIT DENEME

Dosyayı indir EVRAK KAYIT DENEME

dosya.co

 

[byfika]

Merhabalar,
CmdSil_Click kodlarını aşağıdaki gibi değiştirip denermisiniz?

Private Sub CmdSil_Click()
sor = MsgBox("SEÇİLEN KAYIT SİLİNECEK.", vbYesNoCancel + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub
If sor = vbCancel Then Exit Sub
i = lstdesimaldosya.ListIndex + 2
If i < 2 Then Exit Sub
Sheets("DESİMALDOSYA").Rows(i).Delete Shift:=xlUp
For j = 2 To Sayfa5.Range("b:b").End(3).Row
Sheets("DESİMALDOSYA").Cells(j, 1).Value = j - 1
Next
ActiveWorkbook.Save
MsgBox "KAYIT SİLİNDİ", , "BİLDİRİ"
End Sub

 

[sinemomec]

teşekkür ederim. Çözüm buldum.