كود جلب الارقام بدون تكرار من شيت الى شيت مع وجود شيتات كثيرة

[ابايوسف]

السلام عليكم

(كود) جلب الارقام بدون تكرار

من شيت الى شيت

مع وجود شيتات كثيرة

كود جلب الارقام بدون تكرار.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub All_uniques()
Dim sh As Worksheet
Dim F As Worksheet
Dim Dic As Object
Dim i%, Ro
Set F = Sheets("Final")
Set Dic = CreateObject("Scripting.Dictionary")
For Each sh In Sheets
    If sh.Name <> F.Name Then
        Ro = sh.Cells(Rows.Count, 3).End(3).Row
        For i = 2 To Ro
            If IsNumeric(sh.Cells(i, 3)) Then
               Dic(sh.Cells(i, 3).Value) = vbNullString
            End If
        Next i
    End If
Next sh
F.Range("B:B").ClearContents
If Dic.Count Then
  F.Cells(1, "B") = "All Uniques"
  F.Cells(2, "B").Resize(Dic.Count) = _
  Application.Transpose(Dic.keys)
 End If
Set sh = Nothing: Set F = Nothing
Set Dic = Nothing

 
End Sub

الملف مرفق ( الصفحة   Final )

Abou_Yousef.xlsm

[ابايوسف]

السلام عليكم

مرحبا استاذ - عافكم الله من كل وباء وشر

طلبي - اسف اذا لم اوصل الفكرة

اريد جلب البيانات من شيت واحد (مخصص) 

[سليم حاصبيا]

حسب طلبك مع وجود شيتات كثيرة

[ابايوسف]

السلام عليكم

الكود يجلب الارقام من كل الشيتات بدون تكرار

المطلوب استاذي 

جلب الارقام من شيت واحد فقط 

مشكورين على سرعة الرد - جزاك الله عنا خيرا

[سليم حاصبيا]

تم التعديل

1- اختر اسم الشيت المطلوبة من القائمة المنسدلة (F2 )
2 -القائمة المنسدلة تتحدّث كلما أضفت شيت جديد او حذفت شيت 

Abou_Yousef_1.xlsm

[ابايوسف]

السلام عليكم

رائع - اكثر من المطلوب - فنان

تسلم