DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
biraz daha açabilirmisiniz
Sub AynilariBul()
Dim bak As Long
Dim Bulunan As String
On Error Resume Next
For bak = 1 To Cells(Rows.Count, "A").End(3).Row
Bulunan = Range("B:B").Find(What:=Cells(bak, "A").Text, LookAt:=xlWhole).Text
If Not Err.Number > 0 Then
Cells(Cells(Rows.Count, "D").End(3).Row + 1, "D").Value = Bulunan
End If
Err.Number = 0
Next
End Sub
=eğer(a1=b1;a1;"")