پرسش افزودن مشتریان جدید به لیست بصورت خودکار

[naser1357]

در این فایل ممکنه روزانه چند نفر به لیست (در ستون)افزوده شود ماکرو طوری تغییر یابد که فقط لیست افراد جدید به شیت دوم افزوده شوند (در سطر)
ممنون میشوم اساتید رفع مشکل کنند خیلی ضروریه

[naser1357]

ممنون میشوم مدیر عزیز نگاهی به ان بیندازند

[naser1357]

ممنون میشوم مدیر عزیز نگاهی به ان بیندازند

انجمن غیرفعال شده ؟

[naser1357]

اینجا کسی نیست ما را راهنمایی کنند؟

[mokaram]

دوست عزیز بهتره نام شیت ها انگلیسی باشه :
تو کد زیر نام شیت اول را به main و نام شیت دوم را به data تغییر دادم.کد زیر را به دکمه ای که تو شیت اول تعبیه کردید الصاق کنید.

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("main")
    Set s2 = Sheets("data")
    s1.Range("A:A").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub 

[naser1357]

دوست عزیز بهتره نام شیت ها انگلیسی باشه :
تو کد زیر نام شیت اول را به main و نام شیت دوم را به data تغییر دادم.کد زیر را به دکمه ای که تو شیت اول تعبیه کردید الصاق کنید.

Sub CopyUnique()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("main")
    Set s2 = Sheets("data")
    s1.Range("A:A").Copy s2.Range("A1")
    s2.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub 

ضمن تشکر اما چیزی که لازم داشتم این بود که اسامی جدید بجای کپی شدن در ستون شیت دوم، در سطر اول کپی شوند ممنون می شوم رفع مشکل نمایید

- - - Updated - - -

و مورد مهمتر اینکه اگر در شیت اول اسامی جابجا یا حذف و اضافه شدند در شیت دوم اسامی قبلی تغییر نیابند و فقط اسامی جدید شیت اول که در شیت دوم نیستند به سطر اول افزوده شوند

[naser1357]

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

[iranweld]

با سلام

با توجه به درخواست شما مبنی بر انتقال اسامی افراد جدید به شیت دوم ، اینکار با ماکروی ذیل انجام شد.

انتقال سایر داده ها با شما

Sub test()

tx = False

k1 = Cells(Rows.Count, "A").End(xlUp).Row

k2 = Application.WorksheetFunction.CountA(Sheets("data").Range("1:1"))

For i = 3 To k1

For j = 1 To k2

If Range("A" & i) = Sheets("data").Cells(1, j) Then

tx = True

Exit For

Else

tx = False

End If

Next

If tx = False Then

k2 = k2 + 1

Sheets("data").Cells(1, k2) = Range("A" & i)

End If

Next

Sheets("data").Select

End Sub 

[naser1357]

یه دنیا سپاس

[iranweld]

یه دنیا سپاس

البته برای گزارشگیری پیشنهاد بنده استفاده از پیوت تیبل هست که براحتی میتوانید آمار هر فرد را نسبت به تاریخ استخراج کنید.