Boş satır ve mükerrerlerinin macro ile alınabilmesi...

[lakebodom]

Arkadaşlar biz macro yardımı ile 2 farklı sütundaki verileri eşleştirip yeni olanlarının farklı bir sütuna macro yardımıyla çıkarılmasını yaptık. Ancak bizim eklediğimiz yeni listenin içerisinde mükerrer yada boş hücreler olabilir. Ben bu durumda gelişmiş filitreleme kullanarak bunları ortadan kaldırabılıyorum ancak macro yardımı ıle hiç filitrelemeye gerek kalmadan yapabilmemiz mümkünmüdür. Bunu sormak istiyorum

 

[Orion1]

Kodunuzu aşağıdaki ile değiştiriniz.

Sub AraYoksaYaz()
Dim s2 As Worksheet
Dim i As Long, j As Long
Dim c As Variant
Set s2 = Sheets("Sheet2")
s2.Select
Application.ScreenUpdating = False
Range("D2:D65536").ClearContents
j = 1
For i = 2 To [A65536].End(3).Row
    Set c = Range("B:B").Find(Cells(i, "A"), LookIn:=xlValues)
    If c Is Nothing And Trim(Cells(i, "A").Value) <> "" Then
        If WorksheetFunction.CountIf(Range("A2:A" & i), Cells(i, "A").Value) = 1 Then
            j = j + 1
            Cells(j, "D") = Cells(i, "A")
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamam " & j - 1 & " Adet Yeni Değer Bulundu..."
End Sub