Verilen ölçüte uyan satırların kaldırılması

[EKREM1661]

Değerli arkadaşlar..! Bir-kaç bin satırlık veri sayfası mevcut.. Silinmesi gereken satırlara, "A" sütunu boyunca, "x" karakteri konulmuş.. A sütununda "x" olan satırları nasıl kaldırabilirim.. (satırın verilerden temizlenmesi değil, satırın tamamen kaldırılması gerekiyor)

İlgilenen arkadaşlara şimdiden teşekkürler..

 

[Orion1]

Aktif sayfada çalışır.

Sub satırsil59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
For i = sonsat To 1 Step -1
    If UCase(Cells(i, "A").Value) = "X" Then Rows(i & ":" & i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "Satırlar silindi." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[EKREM1661]

Evren hocam çok teşekkür ediyorum.. Bu işlemin tam tersi işlemlerimiz de oluyor.. Kalacak olan satırlar için A sütununa x konuluyor, silinecek olanlar ise boş... Bu durumda A sütünü boyunca boş olan hücrelere ait satırları silmek istesek kodu nasıl revize edebiliriz.?

 

[Zeki Gürsoy]

Filitre kullanarak silseniz olmuyor mu? "x" olanlar veya olmayanlar gibi...

 

[Orion1]

Evren hocam çok teşekkür ediyorum.. Bu işlemin tam tersi işlemlerimiz de oluyor.. Kalacak olan satırlar için A sütununa x konuluyor, silinecek olanlar ise boş... Bu durumda A sütünü boyunca boş olan hücrelere ait satırları silmek istesek kodu nasıl revize edebiliriz.?

Deneyiniz.

Sub satirsil59v2()
Dim sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:A" & sonsat).SpecialCells(xlCellTypeBlanks).Delete
End Sub

 

[EKREM1661]

Çok teşekkürler, hocam elinize sağlık.. Farklı önerisi için Zeki bey’e de teşekkürler..

 

[Orion1]

Çok teşekkürler, hocam elinize sağlık.. Farklı önerisi için Zeki bey’e de teşekkürler..

Rica ederim.İyi çalışmalar.