كعبلاوى قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 ارجوا من أساتذتى المشرفين على الموقع تفعيل ماكرو حفظ والخروج إظهار الرقم 100 فى اخر خلية فارغة فى المسافة من I5 : U5 وجزاكم الله عنا كل خير أقساط حضانة.rar رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 اقساط حضانة .rar 1 رابط هذا التعليق شارك More sharing options...
كعبلاوى قام بنشر يوليو 9, 2016 الكاتب مشاركة قام بنشر يوليو 9, 2016 كل الشكر والتقدير والاحترام لك استاذي الفاضل عبدالسلام ابوالعوافي ابدعت والكلمات لا توصف حقك لى طلب اخر بعد اذنك الرقم الموجود بالخلية d2 يرحل فى صف واحد للطفل 101 ممكن يرحل الى جميع الاطفال كلا حسب الكود الموجود فى d1 فاذا كانت d1 فيها الكود 102 او 103 لك جزيل شكرى رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 9, 2016 مشاركة قام بنشر يوليو 9, 2016 بارك الله فيك أخي الحبيب عبد السلام وكل عام وأنت بخير بعد إذنك جرب التعديل في الكود بهذا الشكل ليناسب طلبك Private Sub Worksheet_Change(ByVal Target As Range) Dim LC As Long Dim Row As Long If Target.Address = "$D$2" Then Row = Application.Match([D1], Columns(5), 0) LC = IIf(Cells(Row, Columns.Count).End(xlToLeft).Column + 1 < 9, 9, Cells(Row, Columns.Count).End(xlToLeft).Column + 1) If LC > 21 Then MsgBox "No More Months", 64: Exit Sub Cells(Row, LC) = Target Target.Activate End If End Sub 1 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 10, 2016 مشاركة قام بنشر يوليو 10, 2016 جزاكم الله عنا كل خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان