Sutunda mukerrer degerleri bulup satiri silme (kosullu)

[fredycrouger]

Merhaba,

E sutunu altindaki verileri kontol edip eger mukerrer ise satiri silmek istiyorum (sadece bir veri kalmali). Fakat bunu yaparken F sutununuda kontrol etmek istiyorum.

Ornek olarak: eger E2, E3, E4 hucrelerindeki degerler mukerrer ise ve F2, F3, F4 hucreleri bos ise satirlar silinecek. Fakat eger F2, F3 veya F4 hucrelerinin herhangi birisinde veri var ise, veri olan satira bir islem yapmayacak.

Internet uzerinden bir makro buldum ve bu makro ile E sutunu altindaki mukerrerleri silebiliyorum, fakat F sutununu kontrol edecek bir kod eklemem gerekiyor ki nasil yapabilirim hic bir fikrim yok.

Sub RemoveDuplicaterow2()

Dim Rng As Range
Dim x As Long
Set Rng = Range("E2", Range("E" & Rows.Count).End(xlUp))
x = Rng.Rows.Count

For x = x To 1 Step -1
    With Rng.Cells(x, 1)
       If WorksheetFunction.CountIf(Rng, .Value) > 1 Then
                  .EntireRow.Delete
       End If
     End With
Next x

End Sub

Yardimlarinizi rica ediyorum.

Simdiden cok tesekkurler,
Ferdi

 

[AdemCan]

Merhaba,
If WorksheetFunction.CountIf(Rng, .Value) > 1 Then satırını değiştiriniz.

If WorksheetFunction.CountIf(Rng, .Value) > 1 And Cells(x + 1, "F") = "" Then

 

[fredycrouger]

Sn. @AdemCan cok tesekkurler, harikasiniz!

 

[AdemCan]

Teşekkürler. Rica ederim.