Sütunda Tekrar edilen rakamları teke indirerek aktarma

[Ahmet Sami]

İyi Günler,
S11 ile S300 sütununda yazılmış rakamlarım var ancak bu rakamlar bazen on veya onbeş defa tekrar edilebiliyor. Sizden istediğim yardım. S11:S300 arasında bulunan rakamları AA sütununa tekrar edilen rakamları teke düşürerek aktarması
Örnek olarak;
S11 sütununda aşağıya doğru:
15
20
23
20
28
20
gibi yazdığım zaman aşağıdaki şekilde otomatik olarak AA sütununa aktarma yapması
15
20 birkaç defa tekrarlanan 20 rakamını teke düşürerek aktardı.
23
28

 

[Asri]

Sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("S11:S300")) Is Nothing Then Exit Sub
       Application.ScreenUpdating = False
        satir = Target.Row
        Range("S11:S300").Select
        Selection.Copy
        Range("AA1").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Columns("AA:AA").Select
        sonsatir = Cells(Rows.Count, "AA").End(3).Row
        ActiveSheet.Range("$AA$1:$AA$" & sonsatir).RemoveDuplicates Columns:=1, Header:=xlNo
        Range("AA1").Select
        Application.ScreenUpdating = True
        Cells(satir + 1, 1).Select
End Sub

 

[Ahmet Sami]

Sayın asri hiçbir hata vermiyor ama işlemde yapmıyor

 

[Asri]

Sayın asri hiçbir hata vermiyor ama işlemde yapmıyor

Sayfanın adı üzerinde sağ tuş yapıp kodu görüntüle dedikten sonra çıkan sayfaya kodu yapıştırıp denediniz mi?

Kod sadece S11 ve S300 satırları arasında çalışır.
Sadece AA kolonuna sonuçları yazar.

 

[halit3]

Alternatif kod

Sub teksirala()

Range("[COLOR="Red"]AA11:AA300[/COLOR]").ClearContents
Range("[COLOR="red"]S11:S300[/COLOR]").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("[COLOR="red"]AA11[/COLOR]"), Unique:=True
MsgBox "işlem tamam"

End Sub

 

[Ahmet Sami]

Halit bey teşekkür ediyorum. Ancak hata raporu veriyor 400 diye bir hata veriyor

 

[Ahmet Sami]

Asri bey doğrudur aynen öyle yaptım ama hiç bir işlem yapmadı hata da vermedi

 

[halit3]

Eğer makrolar çalışıyorsa (güvenlik ayarlarında makrolar etkinse) ,Hiç bir kod çalışmıyorsa yada hata alıyorsanız 64 bit sorunu var gibi görünüyor sitede 64 bit sorunu diye arama yapın çıkan sonuçları irdeleyiniz

 

[Korhan Ayhan]

Örnek dosya ekleyebilir misiniz?

Paylaşım sitelerine yükleyip link verebilirsiniz.

 

[Ahmet Sami]

İlgilerinizden dolayı sizlere ve tüm ekibinize teşekkür ederim kodlar çalıştı.
Uzun zamandan beri Bilgisayardan uzaktaydım cevap veremedim. Özür diliyorum