mükerrer kayıt

[mustafa7691]

merhaba dostlar,sorunum çok kez benzer şekilde forumda cevaplanmış ancak ben farklı birşeye ihtiyaç duyuyorum.Yüzlerce örnek inceledim hepsi çok güzel ve emek harcanmış ancak mükerrer kaydı teke indirmek şeklinde sonuçlanıyor.Ben a sütununda mevcut verilerden mükerrer kayıt var ise hem aslını hemde tekrarını listeden yok etmek istiyorum.Yani a sütununda alt alta 1,2,3,4,5,6,1,2,3,4,5 var ise kod çalıştıktan sonra a sütununda sadece 6 kalmalı.yardımcı olursanız memnun olurum saygılarımla

Basit bir örnek ekledim

 

[leumruk]

Merhaba,
Ekteki örneği inceleyin.

Sub tek_kalsin()
For x = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & [a65536].End(3).Row), Cells(x, "a")) > 1 Then
deg = deg & "a" & x & ","
End If
Next
If deg <> "" Then
Range(Mid(deg, 1, Len(deg) - 1)).Delete shift:=xlUp
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End If
End Sub

 

[mustafa7691]

sn leumruk teşekkür ederim istediğim buydu.daha öncede size ait bazı örnekleri incelemiştim emeğinize sağlık