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

حياك الله اخي الفاضل يمكنك نسخ الكود لجميع الصفحات التي تريد ووضع زر الامر بها جميعاً ام ان المقصود شيء أخر؟

اخي القومي شكراً لك اخي مجدي شكراً لك استاذ معتصم شكراً لمرورك

استاذنا الفاضل ابو الحارث ملف جميل وقيم تشكر عليه ابواحمد

السلام عليكم اخي الفاضل كما قال استاذنا الاول محمد طاهر حفظه الله فالملف كان محمي المرفق تم ازالة الحماية منه ابواحمد أسئلة فى الثقافة الإسلامية والعلوم الدينية.rar

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

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

الاستاذ الفاضل محمد يحياوي بارك الله فيك وسلمت يمينك

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

السلام عليكم ملاحظة للاخ جمال الفار بخصوص الشريط المتحرك في الاعلى ومنها للافضل يا اوفسينا

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

السلام عليكم ورحمة الله وبركاته الاستاذ محمد طاهر المحترم نبارك لكم ولنا ظهور المنتدى بحلته البهية والمواكبة للتطورات كل عام وانتم بخير

اخي سعد عابد تسلم على الملف الجميل جدا وفقك الله وخواتم مباركة

اخي طاهر شكراً لهذا التشجيع خواتم مباركة وكل عام وانت بخير

الاستاذ الفاضل هشام شلبي اسعدني مرورك فشكراً لك

الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره وكل عام وانتم بخير وخواتم مباركة Sub officna() Set XX = Application.WorksheetFunction X1 = InputBox(" حدد رقم الصف المطلوب ادراج صفوف ابتداءً منه", "OFFICNA") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عدد الصفوف المراد ادراجها", "OFFICNA") 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 End Sub اخوكم ابو احمد ادراج عدد ميعين من الصفوف ابتداء من صف محدد.rar

اخواني الكرام هذا الكود تم عمله بناءً على طلب احد الاخوة واحببت ان ارفقه في موضوع منفصل ليتم الاستفادة منه بالشكل المطلوب الكود يقوم بادراج صفوف معينه ابتداءً من اي صف نختاره للعلم فقد تم الاستفادة من كود للاخ الخالدي حفظه الله للوصول لهذه الفكرة وكل عام وانتم بخير وخواتم مباركة Sub officna() Set XX = Application.WorksheetFunction X1 = InputBox(" حدد رقم الصف المطلوب ادراج صفوف ابتداءً منه", "OFFICNA") If IsNull(X1) Or X1 = "" Then Exit Sub X2 = InputBox(" حدد عدد الصفوف المراد ادراجها", "OFFICNA") 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 End Sub اخوكم ابو احمد ادراج عدد ميعين من الصفوف ابتداء من صف محدد.rar

اخي skyblue وبعد اذن استاذنا الفاضل يحياوي جرب وضع الكود التالي في زر امر لعل هذا ما تطلب Dim cl As Range For Each cl In Sheets(1).[c5:f7] t = cl.Value If t = "" Then Exit Sub a = cl.Address If a = "$C$5" Then Sheets(2).[H7] = t If a = "$D$5" Then Sheets(2).[I7] = t If a = "$E$9" Then Sheets(2).[J13] = t If a = "$F$9" Then Sheets(2).[K13] = t Next cl

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

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

الاستاذالفاضل نارت عمل مميز وافكار رائعة تستاهل الشكر عليها واكثر ولا نملك الا ان ندعو لك بظهر الغيب ابواحمد

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

الاخ الفاضل سعد عابد ملف اكثر من رائع خواتم مباركة

اخي الكل مجمع على عدم فهم المطلوب اولاً صلِ على النبي ثانياً اشرح لمطلوب بشكل نقاط لا ترفق ملف ليس له علاقة بالمطلوب والله الموفق ابواحمد

كود بحث وإضافة من اعداد الاستاذ الخالدي رابط المشاركة الاصلية x1 = InputBox(" ادخل نص البحث", "بحث وإضافة") If IsNull(x1) Or x1 = "" Then Exit Sub x2 = InputBox("البحث عن : " & x1 & Chr(13) & Chr(13) & " ادخل نص الإضافة", "بحث وإضافة") If IsNull(x2) Or x2 = "" Then Exit Sub On Error GoTo Error: r1 = "$A$1" r2 = "$A$1" 1: r3 = Cells.Find(What:=x1, After:=Range(r2), LookIn:=xlValues, LookAt:=xlPart).Address s = s + 1 r2 = r3 If s = 1 Then r1 = r3 Else If r1 = r3 Then GoTo 2 x3 = Range(r2).Value x4 = x3 & " " & x2 Range(r2).Replace What:=x3, Replacement:=x4, LookAt:=xlPart GoTo 1 2: MsgBox ("عدد النتائج:" & s - 1) Exit Sub Error: MsgBox ("لايوجد نتائج") بحث وإضافة.rar

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