sil sorunu

[sinemomec]

kodları ekledim ancak hata veriyor acaba neden bilemedim.

Range("B2:D341").Select
    ActiveWindow.ScrollRow = 287
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 1
    ActiveWorkbook.Worksheets("DESİMALDOSYA").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("DESİMALDOSYA").Sort.SortFields.Add Key:=Range( _
        "B2:B341"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("DESİMALDOSYA").Sort
        .SetRange Range("B2:D341")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.SmallScroll Down:=24

End Sub
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("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
End If
Next
End Sub

 

[sinemomec]

Sheets("DESİMALDOSYA").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete hatayı burada veriyor

 

[ÖmerFaruk]

Find komutu eğer aranan değer bulunamazsa HATA ile sonuçlanır ve kodları keser.
Bunun yerine farklı bir değişken tanımlayıp hata sorgulamalısınız. Örnek kodu kendinize göre uyarlayın lütfen

Dim Bul As Range
Set Bul = Sheets("Sayfa1").Range("A:A").Find(what:=ara, lookat:=xlWhole)
If Bul Is Nothing Then
    MsgBox "Aranan bulunamadı"
Else
    Bul.EntireRow.Delete
End If