Farklı olanı listenin altına ekleme

[turkanet]

Merhaba,
Sayfa1'de D sütununda veriler var. Bu verilerden Data sayfasında A sütununda bulunmayanlar, A sütununun altına eklensin istiyorum.
Şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları deneyiniz.

Sub Aktar()
    Dim i   As Long
    Dim Son As Long
    Dim c   As Range
    Dim s1  As Worksheet
    Dim sd  As Worksheet
    Dim Adet As Integer
    
    Set s1 = Sheets("Sayfa1")
    Set sd = Sheets("Data")
    
    For i = 2 To s1.Cells(Rows.Count, "D").End(3).Row
        Set c = sd.Range("a:a").Find(s1.Cells(i, "D"), LookIn:=xlValues, LookAt:=xlWhole)
        If c Is Nothing Then
            Son = sd.Cells(Rows.Count, "A").End(3).Row + 1
            sd.Cells(Son, "A") = s1.Cells(i, "D")
            Adet = Adet + 1
        End If
    Next i
    
    MsgBox Adet & " Adet Sözcük Aktardım"
    
End Sub

 

[turkanet]

tşk ederim

 

[janveljan]

Alternatif olarak eğersay fonksiyonunun sonucuna göre de ekleme yapılabilir.