İki Sütun arasındaki aynı olan hücreleri silme

[sessizkule]

Arkadaşlar arama yaptım ama derdime derman olabilecek bi konu bulamadım.
şöyleki;
A sütunundaki numaralar ile
B sütunundaki numaraları karşılaştıran,
B sütunundaki numara eğer A sütunundada varsa
A sütunundaki numarayı silecek bi makro lazım bana....
Bana yardımcı olabilirseniz inanın çok ama çok sevineceğim..
şimdiden teşekkür ederim..
saygılarımla..

 

[Mahmut Kök]

Arkadaşlar arama yaptım ama derdime derman olabilecek bi konu bulamadım.
şöyleki;
A sütunundaki numaralar ile
B sütunundaki numaraları karşılaştıran,
B sütunundaki numara eğer A sütunundada varsa
A sütunundaki numarayı silecek bi makro lazım bana....
Bana yardımcı olabilirseniz inanın çok ama çok sevineceğim..
şimdiden teşekkür ederim..
saygılarımla..

Aşağıdaki gibi deneyebilirsiniz. A sütunundaki numaraları tarar, A sütunundaki numara B sütununda varsa, A sütunundaki hücreyi temizler.

Sub aynısil()
For a = 1 To [a65536].End(3).Row
varmı = WorksheetFunction.CountIf(Range("b1:b65536"), Cells(a, "a"))
If varmı > 0 Then Cells(a, "a").ClearContents
Next
End Sub

 

[sessizkule]

çok çok teşk.ederim hızır gibi yetiştiniz valla..
emeğiniz için saolun.