Sütundan satır silip yeni sütuna sıralamak

[blackmonkey]

Sayın Arkadaşlar ekli dosyada da belirttiğim gibi mevcut sütundaki (A) ve (B), listem kalıcı listem; eksikliklikleri ise (C) yandaki sütuna yazdığımda bana son mevcut listemi (D) ve (E) sütunlarına kod ile versin istiyorum... Teşekkürler..

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Public Sub Kalan_Aktar()
Kalan_Son = [C65536].End(3).Row
Aktarılacak_Satır = 2
Range("D2:E65536").ClearContents
For i = 2 To [A65536].End(3).Row
    j = Application.WorksheetFunction.CountIf(Range("C2:C" & Kalan_Son), Cells(i, "A"))
    If j = 0 Then
        Cells(Aktarılacak_Satır, "D") = Cells(i, "A")
        Cells(Aktarılacak_Satır, "E") = Cells(i, "B")
        Aktarılacak_Satır = Aktarılacak_Satır + 1
    End If
Next i
Range("D2:E" & [D65536].End(3).Row).Sort Key1:=[D2]
MsgBox "Aktarma ve Sıralama İşlemi Bitmiştir....."
End Sub

 

[blackmonkey]

Sayın Hocam teşekkür ederim... Sağolun...