احتاج تعديل بسيط على الكود

[ميسون الدايني]

السلام عليكم

اريد كود يقوم بتصفية وادراج القيم من الشيت الرئيسي الى الشيت الاخر بدون تكرار القيم ويقوم بتحديث القيم كل مره نقوم باجراء تعدير في الشيت الرئيسي بشكل تلقائي .. ملاحظة / القيم في القائمة الرئيسية كبيرة قد تصل الى ٣٠٠٠ والدوال لا تجدي نفعا

كما في المرفق واعتذر عن الاطاله واشكركم جميعا 

انتبه من فضلك فممنوع تكرار نفس المشاركات والا ستحذف جميع المشاركات

تصفية.xlsx

[lionheart]

Sub Test()
    Dim a, x, ws As Worksheet, sh As Worksheet, r As Range
    Set ws = ThisWorkbook.Worksheets(1)
    Set sh = ThisWorkbook.Worksheets(2)
    Set r = ws.Range("C2:C" & ws.Cells(Rows.Count, "C").End(xlUp).Row)
    a = Application.Transpose(r.Value)
    With Application
        x = .Index(a, 1, Filter(.IfError(.Match(.Transpose(.Evaluate("ROW(1:" & UBound(.Match(a, a, 0)) & ")")), .Match(a, a, 0), 0), "|"), "|", False))
    End With
    sh.Range("B2:B" & Rows.Count).ClearContents
    sh.Range("B2").Resize(UBound(x)).Value = Application.Transpose(x)
End Sub

 

[ميسون الدايني]

شكراً جزيلاً  @lionheart 

هذا الكود الذي احتاجة 

فقط عندي مشكلة لما احفظ الملف بنوع Excel Workbook لا يعمل

باي نوع احفظ اشتغل عندي لما خليته على

Excel Macro-Enabled Workbook

ولو تعملها انته اكون شاكره لك

لان تظهر عندي رساله تحذير لم افهمها

[lionheart]

Here's the file

You can click the button which has the caption [Click Here] or you can enter any value in column C in the first sheet to trigger the code

GetUnique.xlsm

[ميسون الدايني]

السلام عليكم

شكرا للاستاذ @lionheart قدم لي هذا الكود

احتاج تعديل عليه ليقوم بنقل القيم من الشيت الاول الى الشيت الثاني 

ليس عمود ( P ) فقط بل احتاج جلب بقية القيم من الاعمدة ( P + M + O + T + U )

المطلوب واضح في المرفق .. شكرا مقدما الى كل من يمد الي يد العون 

نموذج.xlsm

[ميسون الدايني]

@lionheartارجو المساعدة 

نموذج (2).xlsm

[lionheart]

No clear logic in your request

Look at rows 2 and 3, there are some columns with different data so how will you deal with such case

It will be better to put some of the expected results