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

[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));"")