رجب جاويش

أستاذنا الكبير الحاج // مجدى بارك الله فيك وننتظر الشرح مع البرامج تقبل تحياتى

أخى الفاضل / احمد ابو زيزو جزاك الله كل خير

الأخ الفاضل الأستاذ / فتحى ابو الفضل :fff: بارك الله فيك وجزاك الله كل خير علي هذه التهنئة الرقيقة دمتم فى أمان الله وحفظه وتقبلوا منى وافر الإحترام والتقدير

أخى الفاضل / حمادة باشا شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أستاذنا الفاضل / محمد يوسف شرفنى جدا مرورك العطر وكلماتك الطيبة وجزاك الله كل خير

أخى الفاضل / عادل الرجاء المزيد من التوضيح عن القيم المطلوب وضعها وأماكن وضعها

أخى الفاضل / نجم الدين ابراهيم جزاك الله كل خير

أخى الفاضل / أرجو الإنتباه الى قواعد المشاركة فى المنتدى قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم.

أخى الفاضل / الجموعي لا شكر على واجب أخى الفاضل بارك الله فيك

أخى الحبيب / ابراهيم شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل / الجموعي شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

تفضل أخى المصنف 4.rar

تفضل أخى Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.ScreenUpdating = False x = Val(Sheets(1).Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Move After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Cells.Copy ActiveSheet.Range("A1").PasteSpecial xlPasteFormats ActiveSheet.Range("A1:G1").Value = Sheets(1).Range("A1:G1").Value Application.CutCopyMode = False Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف 4.rar

السلام عليكم تفضل أخى Sub ragab() Application.ScreenUpdating = False x = Val(ActiveSheet.Name) For i = 1 To Sheets.Count If Val(Sheets(i).Name) > x Then x = Val(Sheets(i).Name) Next Sh_Name = x + 1 ActiveSheet.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Sh_Name Sheets(1).Select Application.ScreenUpdating = True End Sub المصنف3.rar

أخى الفاضل / نجم الدين هذه الأقواس تدل على أن المعادلة من نوع معادلات الصفيف هذا النوع من المعادلات عند ادخالة لابد من الضغط على مفاتيح Ctrl + Shift + enter معا فيقوم الاكسل تلقائيا بوضع هذه الأقواس { } حول المعادلة لتميزها على أنها معادلة صفيف تقبل تحياتى

أخى الفاضل لا داعى للإعتذار

أخى الفاضل / محمد ابراهيم برجاء عدم فتح نفس الموضوع أكثر من مرة لأن ذلك مخالف لقوانين المنتدى وعند استعجال الرد يمكنك استخدام كلمة للرفع أو UP فقط تقبل تحياتى

أخى الفاضل / إسلام جزاك الله كل خير

أخى الفاضل / إسلام خى الفاضل / محمد شكرا جزيلا على هذه الكتاب الجميل ولكن هذا الموضوع مكرر وسوف يتم دمج الموضوعين معا مع الموضوع الأصلى

أخى الفاضل : أولا : لك منى دعوة طيبة بتغيير اسم الظهور الى اللغة العربية ليسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثانيا : تم تعديل عنوان الموضوع ليدل بدقة على محتوى الموضوع أرجو الانتباه الى هذه النقطة فى المرات القادمة

اللهم تقبل اللهم آمين

اللهم آمين تسلم ايدك علي العمل الجميل الرائع

أخى الفاضل المحترم / وليد شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الحبيب / محمد أبو البراء شكرا جزيلا أخى الحبيب على هذه الكلمات الطيبة وجزاك الله كل خير

أخى الفاضل المحترم / أبو طارق شكرا جزيلا أخى الفاضل على هذه الكلمات الطيبة وجزاك الله كل خير