Çok Hızlı Satır Silebilmek

[mesudiye_052]

Selamlar;
Sayın Ömer

x'lerden önce boş satırları silme olayını anlamadım

birde kodu güncelledim

Sub BulTemizleSil()

    Columns("A:A").Select
    Selection.Replace What:="x", Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub

Saygılar;

 

[Ömer]

A1:A5 arasındaki değerler;

A1 de 5
A2 de x
A3 boş olsun
A4 x
A5 7

olsun eğer siz x leri temizleyip boş hücreleri silerseniz A3 hücreside silinir. Oysaki bizim amacımız sadece x olan hücreleri silmekti.

Boş hücreden kastım buydu. Bu yüzden #20 nolu mesajı boş hücrelerin kalması için düzenlemiştim.

 

[mesudiye_052]

Selamlar;
Sayın Ömer

Filtreleme ile bir çözüm buldum

Option Compare Text
Sub silx()

    a = Range("A65536").End(xlUp).Row
    Range("A1:A" & a).Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="x"
    Selection.ClearContents
    Range("A1") = "İsimler"
    Range("A1").Select
End Sub

?
Saygıla;