حذف داده های تکرای در دو شیت

[ACE]

با سلام:
چطور می تونم داده های تکراری در دو شیت را حذف کنم؟
در واقع یک سری اطلاعات در شیت یک بر اساس شیت دو در حال رکورد هستند می خوام زمانی که داده ها در شیت یک وارد شد از شیت دو حذف شوند...
با تشکر

[iranweld]

با سلام
در فایل پیوست با استفاده از قابلیت Sub Worksheet_Change(ByVal Target As Range) اکسل در صورت وارد شدن دیتا در شیت یک با شیت دو چک کرده و در صورت وجود تکراری در شیت دوم آنرا حذف می نماید

Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors'

 If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then

Application.EnableEvents = False

X = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

For I = 1 To X
For J = 1 To Y

If Sheet1.Range("A" & I).Value = Sheet2.Range("A" & J).Value Then

Sheet2.Range("A" & J).Value = ""

End If
Next J
Next I


 End If
 
Application.EnableEvents = True

On Error GoTo 0

End Sub