ابايوسف قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم (كود) جلب الارقام بدون تكرار من شيت الى شيت مع وجود شيتات كثيرة كود جلب الارقام بدون تكرار.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 جرب هذا الكود 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 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم مرحبا استاذ - عافكم الله من كل وباء وشر طلبي - اسف اذا لم اوصل الفكرة اريد جلب البيانات من شيت واحد (مخصص) رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 حسب طلبك مع وجود شيتات كثيرة 1 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم الكود يجلب الارقام من كل الشيتات بدون تكرار المطلوب استاذي جلب الارقام من شيت واحد فقط مشكورين على سرعة الرد - جزاك الله عنا خيرا رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 7, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 7, 2020 تم التعديل 1- اختر اسم الشيت المطلوبة من القائمة المنسدلة (F2 ) 2 -القائمة المنسدلة تتحدّث كلما أضفت شيت جديد او حذفت شيت Abou_Yousef_1.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر سبتمبر 7, 2020 الكاتب مشاركة قام بنشر سبتمبر 7, 2020 السلام عليكم رائع - اكثر من المطلوب - فنان تسلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.