Süzülmüş Satırlarda ActiveSheet.ShowAllData ile ilgili hata

[yunussss]

arkadaşlar bi program yapıyorum elimden geldigince sormadan forumdan arayarak yapıyorum ama bazı şeyleri çözemiyorum

anasayfada seçili personeli silmek için BA28 ile BA65536 arasındaki hücrelerden birine tek tıklayınca seçili hücreleri siliyordu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [$ba$28:$ba$65536]) Is Nothing Then Exit Sub
    [COLOR="Red"]ActiveSheet.ShowAllData[/COLOR]
    sat = ActiveCell.Row
    Range(ActiveCell.Address & ", l" & sat & ", g" & sat & ", p" & sat & ", t" & sat & ", y" & sat & ", ab" & sat & ", ae" & sat & ", al" & sat & ", am" & sat).Select
    If MsgBox("Seçtiğin Eleman Tamamen Silinecek ve Geri Alamayacaksın, Sileyim mi?", vbYesNo, "Dikkat!") = vbNo Then Exit Sub
    Selection.ClearContents
    [COLOR="red"]ActiveSheet.Range("$B$27:$AX$1700").AutoFilter Field:=2, Criteria1:="<> ", _
        Operator:=xlAnd[/COLOR]
    Selection.EntireRow.Hidden = False

End Sub

aslında kırmızı ile yazdıgım satırlardan önce kod düzgün çalışıyordu ama anasayfadan boş satırları gizleyince
çalışmaz hale geldi
bende

ActiveSheet.ShowAllData

ve

ActiveSheet.Range("$B$27:$AX$1700").AutoFilter Field:=2, Criteria1:="<> ", _
        Operator:=xlAnd

satırlarını sonradan ekledim yani önce tüm süzülmüş satırları görünür yapacaktı ardından silme işlemini gerçekleştirip yine boş satırları gizleyecekti (bana göre) ama daha en başta ActiveSheet.ShowAllData yöntemi başarısız hatası vermeye başladı
kod için yardımlarınızı bekliyorum

 

[PLİNT]

Merhaba

ActiveSheet.ShowAllData

yerine

ActiveSheet.AutoFilterMode = False

denedinizmi?

 

[yunussss]

böyle hata vermedi süzmeti iptal ederken ama bu seferde

Selection.ClearContents

seçili hücrelerin içeriğini temizlerken hata verdi satırı komple silmek istemiyorum sadece seçili hücrelerin içeriğinin temizlenmesi gerek

 

[Korhan Ayhan]

Alternatif olarak aşağıdaki şekilde de kullanabilirsiniz.

On Error Resume Next
ActiveSheet.ShowAllData
On Error Goto 0

 

[yunussss]

çok teşekkür ederim korhan bey harikasınız