a'da olup b de olmayan b'de olup a'da olmayan

[ildizim]

arkadaşlar daha iyi anlaşılması iiçin dosya ekliyorum. teşekkürler

 

[veyselemre]

[vb:1:1235e7d6c6]Sub bul()
Range("c2:d65536").ClearContents
sona = [a65536].End(3).Row
sonb = [b65536].End(3).Row
satir = 1
For x = 2 To sona
If WorksheetFunction.CountIf(Range("b2:b" & sonb), Cells(x, 1)) = 0 Then
satir = satir + 1
Cells(satir, 3) = Cells(x, 1)
End If
Next x

satir = 1
For x = 2 To sonb
If WorksheetFunction.CountIf(Range("a2:a" & sona), Cells(x, 2)) = 0 Then
satir = satir + 1
Cells(satir, 4) = Cells(x, 2)
End If
Next x
End Sub[/vb:1:1235e7d6c6]

 

[ildizim]

dogru çalışmıyor malesef kontrol etmenizi rica etsem

 

[veyselemre]

neresi çalışmıyor

 

[ildizim]

olmayanların yanında bazı olanlarıda yazıyor

 

[veyselemre]

eki inceleyin bende hatasız çalışıyor