Şarta göre alt satır silme

Katılım
15 Mart 2010
Mesajlar
244
Excel Vers. ve Dili
2019 Türkçe
Selamlar (M) harfi olan satırın bir alt satırının silme macrosu lazım yardımlarınızı rica ediyorum.
İyi Günler
 

Ekli dosyalar

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Selamlar (M) harfi olan satırın bir alt satırının silme macrosu lazım yardımlarınızı rica ediyorum.
İyi Günler
Buyurun. :cool:
Sub msil59()
Dim i As Long, sonsat As Long, deg As Integer
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
For i = sonsat To 2 Step -1
deg = InStr(1, Cells(i - 1, "B").Value, "(M)")
If deg > 0 Then Rows(i & ":" & i).Delete
Next
MsgBox "İşlem Tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub
 
Katılım
15 Mart 2010
Mesajlar
244
Excel Vers. ve Dili
2019 Türkçe
Çok teşekkür ederim.
Ellerinize sağlık.:giggle:
 
Üst