Satır Silme

[cemshan]

Arkadaşlar

Bir excel sayfasında J2:j5000 arasındaki 33YEM içeren satırları silsin.

Bunu VBA kodu ile nasıl yapabilirim.

 

[dEdE]

Merhaba,
bir modülr yapıştırarak dener misiniz?

Sub sil()
    For i = 5000 To 2 Step -1
        If Cells(i, "J") = "33YEM" Then Rows(i).Delete Shift:=xlUp
    Next i
End Sub

 

[RBozkurt]

Deneyiniz.

Sub Sil()

Dim cell As Range

For Each cell In Range("J2:J5000")
    If cell.Value = "33YEM" Then
        cell.EntireRow.Delete
    End If
Next cell

End Sub