İstenmeyen verilerin bulunduğu satırları silme

[rekkezum]

Merhabalar,
Ekteki dosyada B2 den TK diye başlayan verilerden TK2..., TK3...,TK4...,TK5...,TK7...,TK8...,TK9... ile başlayan verilere ihtiyacılm olmadığından B sütununda bu veriler ile başlayan satırları otomatik nasıl silebilirim.

Not : TK dan sonra verilerin 4 haneli olduğu düşünlür 3 haneli olanların önünde 0 varmış gibi varsayılarak benim ihtiyacım olan veriler
TK0 TK1 TK6 ile başlayanlardır. Yardımlarınız için teşekkürler.

 

[mesuttasar]

Selamlar , aşağıdaki kodları denermisiniz.Saygılarımla,

Sub deneme()
Dim i, k, b As Integer
k = [b65536].End(3).Row
For i = k To 2 Step -1
Cells(i, 15).Select
ActiveCell.FormulaR1C1 = "=RIGHT(LEFT(RC[-13],4),1)"
b = Cells(i, 15).Value
If b = 1 Or b = 0 Or b = 6 Then GoTo 10 Else Rows(i).Delete
10
Next i
Columns("o:o").ClearContents
MsgBox "İşlem tamamlanmıştır."
Cells(1, 1).Select
End Sub

 

[Necdet]

Merhaba,

Alternatif olsun

Sub Sil()
    Dim i As Long
    
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, "B") Like "TK 2*" Or _
           Cells(i, "B") Like "TK 3*" Or _
           Cells(i, "B") Like "TK 4*" Or _
           Cells(i, "B") Like "TK 5*" Or _
           Cells(i, "B") Like "TK 7*" Or _
           Cells(i, "B") Like "TK 8*" Or _
           Cells(i, "B") Like "TK 9*" Then Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
    MsgBox "Düzenleme Bitmiştir"
    
End Sub

 

[mesuttasar]

Like komutunu da alternatifiniz sayesinde öğrenmiş oldum ,mutlaka işime yarayacak , sonsuz teşekkürler Necdet bey

 

[Necdet]

Like komutunu da alternatifiniz sayesinde öğrenmiş oldum ,mutlaka işime yarayacak , sonsuz teşekkürler Necdet bey

Rica ederim Sayın Mesut Taşar,

Her an herkesten birşeyler öğrenmeye karşılıklı olarak devam ediyoruz.

 

[rekkezum]

Günaydınlar,

Sayın Mesut Taşar, sayın Necdet Yeşertener alakanız için teşekkürler.

 

[Necdet]

Günaydınlar,

Sayın Mesut Taşar, sayın Necdet Yeşertener alakanız için teşekkürler.

"alaka" yerine "ilgi" sözcüğünü kullansaydınız daha çok sevinirdim

 

[rekkezum]

Bundan sonra dikkat ederim.