Aynı satırları güncel tutarak silme

[adokskel]

Merhaba
Veri Doğrulama>liste yöntemindeki tekrarlamanın önüne geçmek için ana sütunumu başka bir sayfaya kopyalayarak veri>filtrele>benzersiz kayıtlar şeklinde düzenledim. Fakat bu durumda ana sütunuma eklediğim yeni hücreler gözükmüyor. Bunu her defasında yapmak zorunda kalıyorum. Keza makroda da öyle. her seferinde makro çalıştırmak zorunda kalıyorum.

tek amacım veri doğrulama>listedeki tekrarlamaları önlemek. Başka bir yol var mı acaba.
teşekkür ederim.

 

[Ömer]

Merhaba,

Bir örnek;

Verileri girdiğiniz sayfanın kod bölümüne kopyalayın. A sütununa her veri girişinizde kod Sayfa2 ye verileri benzersiz listeler.

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim S2 As Worksheet
 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
 
    Set S2 = Sheets("Sayfa2")
 
    Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=S2.Range("A1"), Unique:=True
 
End Sub

.