احمد حبيبه قام بنشر يونيو 26, 2018 مشاركة قام بنشر يونيو 26, 2018 السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء المطلوب معادله تقوم باستدعاء تلاميذ المستوى الاول الموجودين فى ورقة 1 وبعد انتهاء استدعاء المستوى الاول تقوم المعادلة باستدعاء تلاميذ المستوى الثانى الموجودين فى ورقه 11 فى اخر خليه فارغه بعد المستوى الاول مع مراعاة ان تكون المعادلة مطاطه وتراعى زياده او نقصان عدد التلاميذ فى كل صف استدعاء.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 27, 2018 مشاركة قام بنشر يونيو 27, 2018 جرب هذا الماكرو Option Explicit Sub Give_Data() Dim first As Worksheet Dim sec As Worksheet Dim third As Worksheet Dim lr1%, lr2%, m%: m = 4 Set first = Sheets("ورقة1") Set sec = Sheets("ورقة11") Set third = Sheets("تجميع") third.Range("b3").CurrentRegion.Offset(1).ClearContents lr1 = Application.Max(first.Range("b:b")) + 3 lr2 = Application.Max(sec.Range("b:b")) + 3 third.Cells(m, 2).Resize(lr1 - 3, 9).Value = _ first.Range("b4").Resize(lr1 - 3, 9).Value m = m + lr1 - 3 third.Cells(m, 2).Resize(lr2 - 3, 9).Value = _ sec.Range("b4").Resize(lr2 - 3, 9).Value End Sub الملف مرفق استدعاء.xlsm 2 رابط هذا التعليق شارك More sharing options...
احمد حبيبه قام بنشر يوليو 1, 2018 الكاتب مشاركة قام بنشر يوليو 1, 2018 اخى العزيز سليم حاصبيا الكود رائع وسلس لكن هل يمكن العمل من خلال المعادلات ان امكن تحياتى اخى العزيز رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 1, 2018 مشاركة قام بنشر يوليو 1, 2018 By formula استدعاء.xls رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان