Mükerrer olmayanları Aktarma

[Yesilyurtlu]

Değerli Üstadlarım.
Ekli dosyada mükerrer olmayanları aktarma konusunda yardımlarınızı bekliyorum.

 

[Ömer]

Merhaba,

Module kopyalarak çalıştırınız.

Sub OlmayaniAktar()
 
    Dim i As Long, sat As Long
    
    Range("D3:D" & Rows.Count).ClearContents
    
    sat = 3
    For i = 3 To Cells(Rows.Count, "C").End(xlUp).Row
        If WorksheetFunction.CountIf([B:B], Cells(i, "C")) = 0 Then
            Cells(sat, "D") = Cells(i, "C")
            sat = sat + 1
        End If
    Next i
 
End Sub

.

 

[Yesilyurtlu]

Ömer Abi ALLAH yar ve yardımcın Olsun

Hızır gibi cevap verdiniz. Rabbülaleminde tüm sıkıntınızı HIZIR gibi gidere inşallah. AMİN...

 

[Ömer]

Allah hepimize yardımcı olsun.

İyi çalışmalar...