Tekrar eden satırları (sutunda 2 ise 1'e düşürme) ayırma

[ozlem.cg]

Tekrar eden satırları (sutunda 2 ise 1'e düşürme) ayırma

Merhaba
ekte yolluyorum yardımcı olursanız sevinirim.

 

[Ali]

Aşağıdaki linkteki örnekleri inceleyiniz.

Mükerrer Kayıt Uygulamaları

.

 

[ozlem.cg]

ama ben işaretlemek yada belirlemek istemiyorum direk silinmesini istiyorum.

 

[Merhum İdris SERDAR]

Merhaba
ekte yolluyorum yardımcı olursanız sevinirim.

Dosyanız ekte.

.

 

[Ali]

Tam incelemediğiniz belli..

Oradan zaten vardı ama yinede yazalım.

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

A sütunundaki yazdığı rakamların herbirine ait özel numara olduğunu kabul ettim.

Eğer B sütununa göre yapacaksanız makrodaki a'ları b olarak tanımlayın.

 

[ozlem.cg]

ya cok özürdilerim. Dün cok yoğun olduğum için sorunumu yanlış yansıttım. eğer yardımcı olabilecekseniz yeni ek te dosyayı yolluyorum. Şimdiden teşekkür ederim.

 

[Ali]

Son dosyanız için,

Sub aynı_olanlar()
x = WorksheetFunction.CountA(Range("B:B")) + 1
For Each hucre In Range("B1:C" & x)
If WorksheetFunction.CountIf(Range("B1:C" & x), hucre) = 1 Then
If WorksheetFunction.CountIf(Range("D1:D" & x), hucre) = 0 Then
c = c + 1
Cells(c, 4) = hucre
End If
End If
Next
End Sub

 

[ozlem.cg]

Syn. Ali bey cevabınız için teşekkürler makro özürlüsü olmamı bildiğim halde yolladığınızı denedim yine başarılı olamadım

 

[Ali]

O zaman fonksiyonlu çözüm vereyim.

Örnek ektedir.

 

[ozlem.cg]

Fonksiyonlu çözüm bana uydu ellerinize sağlık,teşekkürederim.