- 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.
Yardimlarinizi rica ediyorum.
Simdiden cok tesekkurler,
Ferdi
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 SubSimdiden cok tesekkurler,
Ferdi
