sil hata

[sinemomec]

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

Sheets("GİDENKURUM").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete bu kısımda hata alıyorum.

 

[YUSUF44]

Ya aranan veri o sayfada yoktur ya da sayfada koruma şifresi/kilit vardır diye düşünüyorum.

 

[sinemomec]

Sheets("GİDENEVRAK").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
burdan siliyor
Sheets("GİDENKURUM").Range("A:A").Find(what:=ara, lookat:=xlWhole).EntireRow.Delete
burda silmiyor veri duyuyor

 

[YUSUF44]

Bir önceki mesajınızdan farklı bir şey yazmadınız, hala aynı şeyi düşünüyorum. Belirttiğim durumlar yoksa örnek dosya görmemiz iyi olur.