Soru Hücre içerisinde belirli bir sözcüğün geçmesi halinde tüm satırı silmek

[seckinb]

Merhaba
Bazı hücreleri otomatik silmek için bir hazırlamaya çalışıyorum.

içerisinde "TRT_ozet_seckin" geçen yani "TRT_ozet_seckin_2022_05", "TRT_ozet_seckin_2022_04" gibi hücreler dahil olmak üzere
bu hücrenin bulunduğu satırları silmeye çabalıyorum.

Sub Delete_Row_If_Cell_Contains_String()

Dim Row As Long

Dim Wrk As Long

Row = 10000

For Wrk = Row To 1 Step -1

If Cells(Wrk, 1) = "TRT_ozet_seckin" Then

Rows(Wrk).Delete

End If

Next

End Sub

şu an %100 aynısı yazmadığı takdirde kodum çalışmıyor.
yani "TRT_ozet_seckin" siliniyor, "TRT_ozet_seckin_2022" silinmiyor.

A sütunu içerisinde nasıl "TRT_ozet_seckin" içerenler şeklinde bir eleme hazırlayabilirim?
teşekkürler

 

[Ziynettin]

Merhaba.


If Cells(Wrk, 1) = "TRT_ozet_seckin" Then

kod satırı yerine;

If Cells(Wrk, 1) Like "*TRT_ozet_seckin*" Then

 

[seckinb]

Merhaba.


If Cells(Wrk, 1) = "TRT_ozet_seckin" Then

kod satırı yerine;

If Cells(Wrk, 1) Like "*TRT_ozet_seckin*" Then

peki bunlardan birden fazla ekleyebilir miyim?

yoksa her seferinde yeni bir sub mı oluşturmalıyım?

 

[Ziynettin]

peki bunlardan birden fazla ekleyebilir miyim?

yoksa her seferinde yeni bir sub mı oluşturmalıyım?

Sub Delete_Row_If_Cell_Contains_String()
Dim Row As Long
Dim Wrk As Long
Application.ScreenUpdating = False
Row = 10000
krt = Array("TRT_ozet_seckin", "deg1", "deg2") '.... veri giriniz.
For Wrk = Row To 1 Step -1
    For j = 0 To UBound(krt)
        If Cells(Wrk, 1) Like "*" & krt(j) & "*" Then
            Rows(Wrk).Delete
        End If
    Next j
Next Wrk
Application.ScreenUpdating = True
End Sub

 

[seckinb]

Sub Delete_Row_If_Cell_Contains_String()
Dim Row As Long
Dim Wrk As Long
Application.ScreenUpdating = False
Row = 10000
krt = Array("TRT_ozet_seckin", "deg1", "deg2") '.... veri giriniz.
For Wrk = Row To 1 Step -1
    For j = 0 To UBound(krt)
        If Cells(Wrk, 1) Like "*" & krt(j) & "*" Then
            Rows(Wrk).Delete
        End If
    Next j
Next Wrk
Application.ScreenUpdating = True
End Sub

Elinize sağlık