Sutunda mukerrer degerleri bulup satiri silme (kosullu)

Katılım
12 Mart 2009
Mesajlar
119
Excel Vers. ve Dili
Office 365 - Ingilizce
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.

Kod:
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

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Merhaba,
If WorksheetFunction.CountIf(Rng, .Value) > 1 Then satırını değiştiriniz.
Kod:
If WorksheetFunction.CountIf(Rng, .Value) > 1 And Cells(x + 1, "F") = "" Then
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Teşekkürler. Rica ederim.
 
Üst