[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.