Sheets("DESİMALDOSYA").Range("B:B").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete burada hata vermektedir.
Kod:
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