محي الدين ابو البشر

اسف اسف اسف بالغلط والله ما بعرف كيف حصل بعتذر بشدة عالغلط

عودأ حميداً مشكور على جهودك الطيبة بارك الله بك

فغلا لكن في المرة الاولى لم انتبه مع اني لن افهم فعلاً انك انسان رائع

بانتظارك استاذنا العزيز

استاذي الكريم، المعادلة الموجودة في المرفق رائعة ولكن دالة (IsFormula) غير موجودة إلا في الملف المرفق اذا ممكن تتكرم علنا بالحصول على الكود

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

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

عذرا مناك استاذ سليم ليس هذا المطلوب ربما بالمرفق يمكن السؤال أوضح وشكرا لك من كل قلبي

عندي سؤال محيرني من فترة عادة دالة البحث تعيد أول قيمة في العمود الذي نبحث فيه وتهمل باقي العمود الذي نبحث عنه سؤالي اذا كنا نبحث عن اسم ما في عمود A مثلا ونريد إعادة القيمة الموجودة في العمود B فإذا كان ألاسم مكرراً في العمود A ونريد إعادة مجموع ما يقابل الأسم المكرر هل هناك إي إمكانية لهذا العمل أفيدوني جزاكم الله كل خير

شكرا للك للإفادة والنصائح أيضاً

أستاذ ياسر شكراً لك من كل قلبي على مجهودك تعجز الكلمات عن التعبير عن تقديري لك وشكرك جزاك اله كل خير

لا مجيب شكراً

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

<Sub sumpages() Pages = InputBox("عدد الصفحات", "جمع الصفحات") P = Pages For i = 26 To 34 * P Step 34 Application.Calculation = xlCalculationManual Range("F" & i).Select ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)" Next i Range("f" & P * 34 - 7).Select ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C" Application.Calculation = xlCalculationAutomatic End Sub>

بارك الله بك أخي العزيز وآسف على خطأي إليك المرفق مع ملاحظة أنه مثال 4 صفحات ومجموع الصفحات صحيح ولكن هناك خطأ ما وممكن أن يكون عدد الصفحات متغيراً من وقت لاخرBook.rar

Sub sum

في البداية هذه اول مرة اشارك في هذا المنتدى الراقي فعلا والقائمين عليه أناس رائعين وقلوبهم دافئة يذهلني سرعة دودهم وصبرهم وسعة صدرهم على المبتدئين أمثالي عندي الملكرو التالي ولكن كما هو واضح انه غير عملي مع أنه يعمل بشكل او باخر مع وجود خطأ ما المشكلة عند وضع معادلة الجمع ضمن الماكرو لم استطع أ، اجد اي وسيلة لادخال متغير ضمن المعادلة او ضمن حلقة for next loop Sub sumpages() Pages = InputBox("عدد الصفحات", "جمع الصفحات") P = Pages For i = 26 To 34 * P Step 34 Application.Calculation = xlCalculationManual Range("F" & i).Select ActiveCell.FormulaR1C1 = "=SUM(R[-20]C:R[-1]C)" Next i Range("f" & P * 34 - 7).Select ActiveCell.FormulaR1C1 = "=R[-1]C+R[-35]C+R[-69]C+R[-103]C+R[-137]C+R[-171]C+R[-205]C+R[-239]C+R[-273]C+R[-307]C+R[-341]C+R[-375]C+R[-409]C+R[-443]C+R[-477]C+R[-511]C+R[-545]C+R[-579]C+R[-613]C+R[-647]C+R[-681]C+R[-715]C+R[-749]C+R[-783]C+R[-817]C+R[-851]C+R[-885]C+R[-919]C+R[-953]C+R[-987]C+R[-1021]C+R[-1055]C+R[-1089]C+R[-1123]C+R[-1157]C+R[-1191]C+R[-1225]C+R[-1259]C+R[-1293]C+R[-1327]C+R[-1361]C+R[-1395]C+R[-1429]C+R[-1463]C+R[-1497]C+R[-1531]C+R[-1565]C+R[-1599]C+R[-1633]C+R[-1667]C" Application.Calculation = xlCalculationAutomatic End Sub هل هناك طريقة لاختصار الجزء الأحمر في هذا الماكرو وبشكل عام كيف يمكننا استخدام متغير لأو متغيرات في هذه الحالة عدد الصفحات المراد جمع مجموعها اشكركم في جميع الأحوال فقد استفدت منكم الكثير الكثير