İki Hücre Aynı ise Satırı Silmek

[ta2uk]

509 satırdan teşkil ekteki tabloda, bir satırın C sütunundaki veri ile E sütunundaki veri aynı ise o satırın tamen silinmesine ihtiyacım var. Teşekkürler Şimdiden...

 

[bmutlu966]

Deneyiniz.

Sub sil()

son = [C65000].End(3).Row

For t = son To 1 Step -1
    If Cells(t, "C") = Cells(t, "E") Then
        Rows(t).Delete
    End If
Next
End Sub

 

[ta2uk]

Sub sil() son = [C65000].End(3).Row For t = son To 1 Step -1 If Cells(t, "C") = Cells(t, "E") Then Rows(t).Delete End If Next End Sub

Çalıştı, sorun yok, çok teşekkür ederim.

 

[yanginci34]

Denermisiniz

Sub mukerrer_sil()
Dim i
Dim son
son = Cells(Rows.Count, 3).End(3).Row
For i = 2 To son
Cells(i, 3).Select
If Cells(i, 3).Value = Cells(i, 5).Value Then
    ActiveCell.EntireRow.Select
    Selection.Delete Shift:=xlUp
End If
Next
End Sub

 

[ta2uk]

Denermisiniz

Sub mukerrer_sil()
Dim i
Dim son
son = Cells(Rows.Count, 3).End(3).Row
For i = 2 To son
Cells(i, 3).Select
If Cells(i, 3).Value = Cells(i, 5).Value Then
    ActiveCell.EntireRow.Select
    Selection.Delete Shift:=xlUp
End If
Next
End Sub

Elinize sağlık, çok teşekkür ederim