Satır silme

[mesudiye_052]

Herkese selamlar

Arkadaşlar makroyu yeni öğrenmeye başladım
şu an takıldığım bir yer oldu yardımlarınız bekliyorum

MAKRO
Sub sil()
Dim sayac As Range
For Each sayac In Range("a1:a30")
If sayac <> "faruk" And sayac <> "" Then
sayac.EntireRow.Delete
End If
Next sayac
End Sub

A HÜCRESİNDE
ali
sedat
şahin
serpil
koray
faruk
nermin
isa
faruk
hakkı
ahmet
yasin
ferit
faruk
aslı
ferhat
gibi bilgiler var bu hücrelerde faruk dışındakilerin silinmesini istiyorum
yukarıdaki makroyu yazdım bir de düğme koydum
faruk dışındakilerin hepsinin silinmesi için 3 kez düğmeye basmak zorunda kaldım
tek tıklama ile silmedi
makro da ne gibi bir eksiklik olabilir ayrıntılarıyla anlatırsanız sevinirim

 

[veyselemre]

Yazdığınız makroda silinen ilk satırdan sonra alttaki satır üstte geçer ve siz sayacı arttırdığınızdan dolayı artık bu satırda işlem yapamıyorsunuz. Bu yüzden bu şekilde satır silme işlemlerinin olduğu makrolarda alttan üste doğru çalışırsanız, kayma işlemi olmayacağından tüm silme işlemlerini bir kerede yapabilirsiniz.

Sub sil()
For x = 30 To 1 Step -1
    If Cells(x, 1) <> "faruk" And Cells(x, 1) <> "" Then Rows(x).Delete
Next
End Sub

 

[mesudiye_052]

Teşekkürler Sayın Veyselemre