Aranan kelimeyi bulup o satırı temizleyen makro

[YASINT]

Arkadaşlar benim derdim A sütununda "Sunta" ile başlayan yazıları bulup o satırı silen bir makro yapmak bana yardımcı olursanız sevinirim.

 

[YASINT]

yardımcı olacak kimse yok mu ???

 

[Ali]

Sub sil()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "Sunta" Then
Rows(i).Delete
End If
Next
End Sub

 

[alpi]

Dosyanız ekte

 

[YASINT]

arkadaşlar çok teşekkürler ellerinize sağlık.

 

[abuzer06]

merhabalar

bu kod işime yaradı ama şöyle bir sorunum var.

metinin yanında başka yazılarda varsa maalesef silmiyor.

yani "sunta" değilde A6 hücresinde "TAHTA sunta AGAC" şeklinde.

bu durumda o satırı nasıl sildirebilirim ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz.

Sub SIL()
For SUT = 1 To Cells(65536, "A").End(3).Row
DEG1 = Replace(Replace(Cells(SUT, "A"), "I", "ı"), "İ", "i")
DEG2 = Replace(Replace("sunta", "ı", "I"), "i", "İ")
If DEG1 Like "*" & DEG2 & "*" Then
Rows(SUT).Delete
End If
Next
End Sub

 

[abuzer06]

sunta AGAC
TAHTA sunta AGAC2 agac
TAHTAAA sunta AGAC
sunta AGAC
sunta

A sütunundaki değerlere macro'yu uyguladığımda geriye

TAHTA sunta AGAC2 agac
sunta AGAC

bu kalıyor

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub SIL()
[COLOR="Blue"]For SUT = Cells(65536, "A").End(3).Row To 1 Step -1[/COLOR]
DEG1 = Replace(Replace(Cells(SUT, "A"), "I", "ı"), "İ", "i")
DEG2 = Replace(Replace("sunta", "ı", "I"), "i", "İ")
If DEG1 Like "*" & DEG2 & "*" Then
Rows(SUT).Delete
End If
Next
End Sub