aradığım kelime dışındaki satırların silinmesi makro

[ahmeduafi]

makro ile

N sütununda 1097F haricindeki bütün satırların yukarıya doğru silinmesi epey konu okudum ama bir türlü kendime uyarlıyamadım

 

[PLİNT]

makro ile

N sütununda 1097F haricindeki bütün satırların yukarıya doğru silinmesi epey konu okudum ama bir türlü kendime uyarlıyamadım

Merhaba
Aşağıdaki gibi deneyin.
1.satır hariç

 Sub sil()
For a = Cells(Rows.Count, "N").End(3).Row To [COLOR="Red"]2[/COLOR] Step -1
If Cells(a, "N") <> "1097F" Then
Cells(a, "N").EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

 

[ahmeduafi]

İlginiz için teşekkür ederim

ilk satır hariç siliyor ilk satırıda dahil edebilirmisiniz

 

[ahmeduafi]

For a = Cells(Rows.Count, "N").End(3).Row To 1 Step -1

bu şekilde yaptım 1 satırıda sildi

tekrar ilginiz için teşekkür ederim