عبدالله المجرب

أخي محمد بعد اذن استاذنا ومشرفنا الخلوق هشام شلبي وحسب فهمي للمطلوب جرب المرفق ابواحمد product.rar

اخي محمد لا يوجد مرفقات ابواحمد

اخي شمس عيد سعيد وبعد اذن عميد المنتدى الاستاذ دغيدي جرب المرفق وابلغني هل قصدت هذا؟ ابواحمد Book 200.rar

السلام عليكم اخي بوعلام كل عام وانت وجميع الاخوة بخير واعاده الله علينا بالخير واليمن والبركات. اخي الفاضل هذا الموضوع الاولى به المنتدى المفتوح فنرجو من الاخوة المشرفين نقل الموضوع الى هناك. كما انه يوجد موضوع مفتوح للتهاني للاخ احمد فضيلة (هنكوك). ابواحمد

اولاً عيد فطر سعيد على جميع الاخوة. ثانياً الاستاذان جمال دغيدي و هشام شلبي ابداع متواصل للوصل الى المطلوب وزيادة ثالثاً الاخ حسن يمكنك ضغطه ورفعه على احد مواقع الرفع ووضع رابطه في مشاركة جديدة لتعم الفائدة ولك جزيل الشكر ابواحمد

اخي أحمد فضيلة (هنكوك) شمراً جزيلاً لك ابواحمد

السلام عليكم عيد مبارك وكل عام وانت بخير اخي الفاضل جرب المرفق ملف.rar

اخي ارجو منك التوضيح اكثر وخصوصاً هذه الجملة ابواحمد

اخواني الكرام cat101 'abo_alaa ان شاء الله يكون المرفق ما تطلبانه ابواحمد عبدالله المجرب.rar

اخي ياسر (ابو الحارث) كل عام وانت وجميع الاخوة الاعضاء بألف خير ابواحمد

الاخوة الافاضل ياسر الحافظ جمال الفار شكراً جزيلاً لمروركما ابواحمد

شكراً جزيلاً لك وكل عام وانت بخير ابواحمد

اخي نورانور شكراً جزيلاً لمرورك ابواحمد

الاساتذة الكرام جمال دغيدي هشام شلبي جمال الفار الخالدي تعدد الحلول وتنوعت الافكار والنتيجة واحدة وهي معرفتنا لا فكار جديدة وحلول مفيدة ابواحمد

اخي الفاضل راجع هذه الروابط لعل فيها مايفيد الحضور والانصراف - 1 الحضور والانصراف - 2 ويوجد الكثير فإستخدم خاصية البحث ابواحمد

اخي الفاضل هل هذا ما قصدته ابواحمد Insert Row Above Total ver 1.zip

النشرة الدورية لمواضيع المنتدى - العدد الثالث http://www.officena....s/news%2003.htm و سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر و ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى مرفق الملف فى صيغة Pdf مع الشكر و التقدير لربان سفينة أوفيسنا المهندس محمد طاهر لثقته فيني وان شاء الله أكون عند حسن الظن والشكر موصول للأخ نور الرياض على البانر news 03.pdf

الاستاذان الكريمين 1. كيماس ابا عمر 2. محمد يحياوي شكراً لكما على مروركما ابواحمد

الاخ الفاضل cat101 الاخ الفاضل nasersaeed ارجو منكما ومن الاخوة الكرام مراجعة هذا الرابط لمشاهدة النسخة المحدثة للكود السابق ابواحمد http://www.officena.net/ib/index.php?showtopic=38179

السلام عليكم ورحمة الله وبركاته اخواني الكرام كما تعلمون فاني قمت قبل فترة بوضع كود لادراج عدد محدد من الصفوف ابتداءً من صف محدد وبناء على طلب اكثر من عضو باضافة الى الكود شرط الصفحة أي انه يمكن تحديد ورقة العمل التي تريد ادراج الصفوف فيها حتى الانتهاء من الاوراق التي تريد الاضافة فيها بمعنى أوضح فانه يمكن اختيار ورقة عمل محددة لادراج الصفوف فيها وبعد الانتهاء من ذلك يصبح لك الخيار في اختيار ورقة أخرى أو الاكتفاء وهكذا وقد احببت ان افرده في موضوع منفصل للفائدة Sub OFFICNA() Set XX = Application.WorksheetFunction X11 = InputBox("حدد أسم الشيت الذي تريد إدراج صفوف فيه أو اتركه خالي لإختيار الشيت الحالية", "www.officena.net") If IsNull(X11) Or X11 = "" Then ActiveSheet.Select Else Sheets(X11).Select End If X1 = InputBox(" حدد رقم الصف المطلوب إدراج صفوف إبتداءً منه", "www.officena.net") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عد الصفوف المراد إدراجها", "www.officena.net") If IsNull(X2) Or X2 = "" Then Exit Sub X3 = XX.Sum(X1, X2) Rows(X1 & ":" & X3 - 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A" & X1).Select aa = MsgBox("هل تريد إدراج صفوف في أوراق جديدة", vbYesNo, "www.officena.net") If aa = vbYes Then OFFICNA End If End Sub ابواحمد إدراج صفوف في أوراق مختارة.rar

اخي الفاضل هل تقصد ان يتم سؤالك عن الورقة التي تريد ادراج الصفوف فيها؟؟

اخي ابو الاء شكراً لمرورك اخي ابو نصار شكراً لمرورك والحمدلله على سلامتك ابواحمد

لك العذر اخي الفاضل واعذرني على حدة الرد ولكن حبي للمنتدى هو الدافع كل عام وانت بخير

ما شاء الله عليك استاذ محمد دوماً تتحفنا بما هو جديد كل عام وانت بخير