samycalls قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 (معدل) الأخوة الكرام .. كل التحية .. هذا المرفق به كود لنقل البيانات بدون تكرار وبدون فراغات .. هل من الممكن أن يكون النقل به أبجدى بالنسبة للأسماء ، وتصاعدى بالنسبة للأرقام . مع مراعاة أن يكون كما هو بدون تكرار وبدون فراغات . نقل بدون تكرار مع الترتيب.rar تم تعديل ديسمبر 30, 2012 بواسطه samycalls
الشهابي قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 أخي العزيز / samycalls ممكن ذلك من خلال إضافة كود آخر لعملية الترتيب بعد النقل بس الكود يقوم بنقل الأسماء فقط ولا توجد أرقام الشيء الآخر ما هي الأرقام المطلوب نقلها وترتيبها وهل الترتيب يكون الأولى للأبجدي أو للأرقام لأنه لايمكن عمل ترتيب أبجدي لأسماء أرقامها غير مرتبة تصاعديا لأنه لابد أنه سيكون هناك اختلاف الأرقام أو الأبجدي للأسماء مثلا احمد رقمه 5 واسامة رقم 2 من حيث الأبجدي احمد سيكون قبل أسامة ومن حيث الأرقام اسامة قبل احمد وهكذا فضلا مزيدا من التوضيح للمطلوب وربما أحد الأعضاء الكرام فهم المقصود إن شاء الله يلبي طلبك والعفو تقبل تحياتي
samycalls قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 (معدل) الأخ الكريم .. الشهابى.. الأسماء غير مرتبطة بالأرقام .. والمراد ترتيبهم بدون فراغات ولا تكرارات كما هو فى المرفق بتعديل وذلك لاستخدام هذا الكود فى ملف أخر . نقل بدون تكرار مع الترتيب2.rar تم تعديل ديسمبر 30, 2012 بواسطه samycalls
الشهابي قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 خي العزيز / samycalls تم إضافة كود الترتيب للأسماء أبجديا إلى كود فرز القيم الفريدة في ملفك وتم الترتيب ولكن هنتك اسمين تقدما عن ترتيبهما وهما ( عبد العزيز ) وآخر ( سعيد ) فذهبت للقائمة و أعدت كتابتهما مرة أخرى فأي أسماء كان هناك خطأ في ترتيبهما قم بمسحهم ثم كتابتهم مرة أخرى لأنه ربما هناك فراغ أو خطأ في التنسيق أو غيره سبب هذه المشكلة كما حدث في الاسمين اللذين ذكرتهما لك وهذا هو الملف نقل بدون تكرار مع الترتيب.rar
samycalls قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 أخى الفاضل .. الشهابى .. الكود الذى ارسلته هو المطلوب وقام بالغرض منه فى الاسماء وفى الأرقام . ولكن عندما حاولت تطبيقة على هذا المرفق لم أنجح بعد أن غيرت فى الأعمدة وفى الصفوف حتى يتناسب مع الملف الأصلى . .. فأرجو منك أخى الكريم عمل الكود على هذا المرفق .. وكل الشكر والتقدير .. نقل بدون تكرار مع الترتيب3.rar
الشهابي قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 أخي العزيز / samycalls هذا التعديل في الكود ليفي بالغرض إن شاء الله Sub Macro3()[/b] [b]Application.Calculation = xlManual Application.ScreenUpdating = False Range("b2:b1000").ClearContents Sheets("ورقة1").Range("B1:B786").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("ورقة1").Range("B1:B786"), CopyToRange:=Range("E4"), _ Unique:=True Range("E4:E786").Sort Key1:=Range("E4"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("E4").Select Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub وهذا الملف بعد التعديل نقل بدون تكرار مع الترتيب3.rar 1
samycalls قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 أكرمك الله أخى الشهابي وبارك فيك .. كل الشكر ،،
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.