Benzersiz verileri farklı yere kopyalama

[küçük kardeş]

A sütünunda yazılı olan hücreleri sırası ile B sütununa eklemek istiyorum tekrarsız bir biçimde yinelenenleri kaldırarak(daha sonra benzersiz şekilde kod verebilmek için).
A sütununa veri girişi yaptıkça eğer sütunun geri kalanıyla benzersiz ise B sütununa eklensin istiyorum nasıl yapabilirim.

 

[ÖmerBey]

Merhaba,
A sütununu seçin
Veri sekmesinden Sırala ve Filtre uygula bölümünden Gelişmiş (Filtre) seçeneğine tıklayınız.
Açılan pencereden Başka yere kopyala seçeneğini seçtikten sonra hedef kutusuna B1 hücresini seçin.
Altta yer alan Yalnızca benzersiz kayıtlar seçenek kutusunu işaretleyin.
Tamam diyerek işlemi tamamlayınız.
İyi çalışmalar...

 

[muygun]

Merhaba;
Örnek dosya ekleyerek...

Yada sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1:a65536]) Is Nothing Then Exit Sub
sat = Target.Row
sonsatir = Range("b65536").End(xlUp).Row + 1
If Cells(1, 2) = "" Then sonsatir = 1
If WorksheetFunction.CountIf(Range("b1:b" & sonsatir), Cells(sat, "a")) = 0 Then
Cells(sonsatir, "b") = Cells(sat, "a")
End If
End Sub

Kodlarını ekleyerek.

İyi çalışmalar.

Not: Ömer beyin cevabını görmemiştim. (Alternatif olsun)

 

[Muzaffer Ali]

Merhaba.
Sayfa adını sağ tıklatın "Kod Görüntüle" Seçin.
Açılan sayfaya aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If WorksheetFunction.CountIf(Range("B:B"), Target) = 0 Then
        Range("B" & Cells(Rows.Count, "B").End(3).Row + 1).Value = Target.Value
    End If
End Sub

 

[sekhil]

Merhaba.
Sayfa adını sağ tıklatın "Kod Görüntüle" Seçin.
Açılan sayfaya aşağıdaki kodları yapıştırın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If WorksheetFunction.CountIf(Range("B:B"), Target) = 0 Then
        Range("B" & Cells(Rows.Count, "B").End(3).Row + 1).Value = Target.Value
    End If
End Sub

[A:A] sütunu başka sayfadaysa kodu nasıl düzenleyebilirim?

 

[sekhil]

[A:A] sütunu başka sayfadaysa kodu nasıl düzenleyebilirim?

sorumun cevabı burada tekrar teşekkürler

Diğer Sayfadaki Benzersizleri Bul ve Listele

Merhabalar, Sayfa1 deki A sütundaki verileri sayfa2 de H sütununa benzersiz olarak otomatik olarak yazsın-listelesin istiyorum. böyle bir kod buldum forumda çalışıyor fakat aynı sayfada listeneliyor. Not: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or...

www.excel.web.tr