Ahmed Saad 2017 قام بنشر ديسمبر 10, 2018 مشاركة قام بنشر ديسمبر 10, 2018 برجاء من الاخوة الاعضاء المساعده في عمل كود محدد لعمل سيريال لملف في عمود السيريال بناء علي شرط محدد مرسل الملف وصورة للمطلوب وشكرا لسيادتكم ادخال بيانات8465.xlsm رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 10, 2018 مشاركة قام بنشر ديسمبر 10, 2018 تفضل ادخال بيانات8465.xlsm 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 10, 2018 مشاركة قام بنشر ديسمبر 10, 2018 بعد اذن اخي على هذه المعادلة تكتي في الحلية D11 وتسحب نزولاً =IF($E11<>"FP",MAX($D$10:D10)+1,"") 2 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 10, 2018 مشاركة قام بنشر ديسمبر 10, 2018 بارك الله فيك استاذى الكريم سليم معادلة رائعة ولكن لابد ان تكون هكذا لعمل الشرط =IF($E11="FP",MAX($D$10:D10)+1,"") بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 10, 2018 مشاركة قام بنشر ديسمبر 10, 2018 47 دقائق مضت, ali mohamed ali said: بارك الله فيك استاذى الكريم سليم معادلة رائعة ولكن لابد ان تكون هكذا لعمل الشرط =IF($E11="FP",MAX($D$10:D10)+1,"") بارك الله فيك تصحيح رائع (غلطة مطبعية) 1 رابط هذا التعليق شارك More sharing options...
Ahmed Saad 2017 قام بنشر ديسمبر 11, 2018 الكاتب مشاركة قام بنشر ديسمبر 11, 2018 شكرا للاخوه الكرام انا محتاج كود vba لان ممكن اضيف صفوف جديده او احذف رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 الماكرو المطلوب Option Explicit Sub Plese_Go() Dim mY_rg As Range Dim I%, k%, x%, m% If ActiveSheet.FilterMode = True Then ActiveSheet.Range("Table2").AutoFilter End If Range("Table2").Columns(3).ClearContents ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _ "FP" Set mY_rg = Range("Table2").Columns(3).SpecialCells(xlCellTypeVisible) x = mY_rg.Areas.Count For k = 1 To x For I = 1 To mY_rg.Areas(x).Rows.Count mY_rg.Areas(k).Rows(I) = m + 1 m = m + 1 Next Next ActiveSheet.Range("Table2").AutoFilter End Sub الملف مرفق ادخال بياناتNew.xlsm 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 كود ممتاز استاذى سليم ولكن كما ترى بالصورة كما تلاحظ استاذى الكريم عندما اضع شرط الترقيم متتالى لا يعطى سريال الا لكود واحد فقط كما ترى ياريت يكون هناك حل جزاك الله كل خير رابط هذا التعليق شارك More sharing options...
Ahmed Saad 2017 قام بنشر ديسمبر 11, 2018 الكاتب مشاركة قام بنشر ديسمبر 11, 2018 استاذ سليم شكرا جزيلا انا جربت الكود للاسف بياخد وقت كبير لانه بينفز كل امر (الفلتر - و السيريال ) والشيت الاساسي فوق ال 10000 صف اعتقد هيحتاج وقت كبير جدااااا فهل ممكن نعملها بطريقة المصفوفات رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 خطأ بسيط في الكود تمت المعالحة Option Explicit Sub Plese_Go() Dim mY_rg As Range Dim I%, k%, x%, m% If ActiveSheet.FilterMode = True Then ActiveSheet.Range("Table2").AutoFilter End If Range("Table2").Columns(3).ClearContents ActiveSheet.ListObjects("Table2").Range.AutoFilter Field:=4, Criteria1:= _ "FP" Set mY_rg = Range("Table2").Columns(3).SpecialCells(xlCellTypeVisible) x = mY_rg.Areas.Count For k = 1 To x For I = 1 To mY_rg.Areas(k).Rows.Count mY_rg.Areas(k).Rows(I) = m + 1 m = m + 1 Next Next ActiveSheet.Range("Table2").AutoFilter End Sub الملف ادخال بياناتNew_1.xlsm 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 أحسنت استاذ سليم كود ممتاز جعله الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
Ahmed Saad 2017 قام بنشر ديسمبر 11, 2018 الكاتب مشاركة قام بنشر ديسمبر 11, 2018 (معدل) شكرااااا جزيلا الكود شغال زي الفل بارك الله فيك تم تعديل ديسمبر 11, 2018 بواسطه Ahmed Saad 2017 1 رابط هذا التعليق شارك More sharing options...
Ahmed Saad 2017 قام بنشر يناير 3, 2019 الكاتب مشاركة قام بنشر يناير 3, 2019 ممكن نعملها بطريقة المصفوفات حيث ان الكود يحتاج وقت طويل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان