اضافه شدن خودکار داده منحصر به فرد در شیت جدید

[pooria]

سلام
من میخوام اگر داده ای به ستون a شیت a اضافه شد و تکراری نبود (جدید بود) به ستون a شیت b اضافه بشه.
میشه لطفا کمکم کنید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

با استفاده از رویدادها در صورت تغییر شیت از A به B ماکرویی اجرا میگردد که یک لیست بدون تکرار برای شما در شیت B ایجاد مینماید.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
TEST
End Sub 

Sub TEST()

Sheets("b").Columns("A:A").ClearContents

    Sheets("A").Range("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("B").Range( _
        "A1"), Unique:=True
End Sub 

[amir_ts]

با سلام
از این فرمول هم میتونید در سلول A2 از شیت b استفاده کنید.

=IFERROR(INDEX(a!$A$1:$A$40;MATCH(0;COUNTIF($A$1:A1;a!$A$1:$A$40)+(COUNTIF(a!$A$1:$A$40;a!$A$1:$A$40)<>1);0));"")