Excelde Belirli Satırları Silmek

[mustafa1205]

Ekte bulunan örnekte açıklama yaptım.Satırlarda A sütununda bulunan "ANKARA" olan satırlar hariç diğerlerini makro yardımı ile nasıl sildirebiliriz acaba ?

 

[Excelmy]

Sayın Mustafa1207,

Ekli dosyayı inceleyiniz.

 

[mustafa1205]

Teşekkür ediyorum ancak benim istediğim Ankara yazanların kalıp diğer satırların silinmesi idi. Tam tersi olmuş.Düzeltme imkanınız var mı ?

 

[mustafa1205]

Hocalarımdan yardımcı olabilecek var mı acaba ?

 

[İhsan Tank]

Ekte bulunan örnekte açıklama yaptım.Satırlarda A sütununda bulunan "ANKARA" olan satırlar hariç diğerlerini makro yardımı ile nasıl sildirebiliriz acaba ?

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub kriterli_sil_61()
Dim ts, trabzonspor, hamsi
trabzonspor = MsgBox("Ankara Yazanların Dışında" _
& " Hepsini Siliyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
hamsi = Time
For ts = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Cells(ts, "A") <> "ANKARA" Then
Rows(ts).Delete
End If
Next
Application.ScreenUpdating = True
MsgBox Format(hamsi - Time, "hh:mm:ss") & vbLf _
& "Sürede Ankara Dışındakileri Sildim", , "Bitiş - www.excel.web.tr -"
End Sub

 

[mustafa1205]

Hocam ellerine sağlık. Çok güzel çalıştı. Çok teşekkür ediyor ve hayırlı akşamlar diliyorum.

 

[İhsan Tank]

Hocam ellerine sağlık. Çok güzel çalıştı. Çok teşekkür ediyor ve hayırlı akşamlar diliyorum.

Rica ederim
:keyif: