abouelhassan

الله الله الله الله عليك يا استاذنا كود ولا اروع بس مشكلة بسيطو عايز الجمع الى هو Global Sum عايزه يكون فى الصف47و 48 هو الان فى الصف 34و34 كل الحب والاحترام وتقديرى الشديد لسعة صدرك ربنا يكرمك يا رب استاذى وحبيبى

لم ازيله يا باشا موجود مخفى تمام حفظك الله ونجاك وأدام عليك نعمه انا فقط حاولت تعديل المعادلات وفشلت

استاذنا حاولت فى المعادلات وحاولت اعدل عليها فشلت انا والله محرج جدا من حضرتك عملت لحضرتك المعادلات المطلوب تنفيذها بالكود لو امكن حفظك الله الله يرضى عنك اخيك بمنتهى الاحترامMy_Repport_Final_1.xlsm

استاذنا انا اسف واجهتنى مشكلة فى المجموع النهائى عايز اغير المعادلة أنها تجمع من الصف الرابع وليس من الصف الثالث معادلة sum of oll حاجة جميلة بس عايز اعدل فيها محتاج شرح ازى اختار إلى محتاج أجمعه فيها والله انا اسف ليك اوى اوى اوى حبيبي

حاضر استاذنا الله يحفظك كل شكرى وتقديرى واحترامى استاذنا بارك الله فيك My_Repport.xlsm

استاذنا سليم حاصبيا الله يرضى عليك استاذنا بعد مسح رقم 1 الكود يستدعى تمام وف الاخر يخرج رسالة ايرور اضغط end الكود يجمع كل الارقام بما فيها الاجمالى واذا تركته يجمع ناقص سطر اريده يجمع كل السطور ما عاد سطر الذى به الاجمالى الى فى اخر كل شهر معلش استاذنا وبردوا الكود اخرج رسالة run time error13 عندما اضغط عليه يظهر السطرين الاتتين بالاصفر Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") معلش استاذى وحبيبى سامحنى والله بارك الله فى حضرتك اللهم امين New Microsoft Word Document.docx

بارك الله لك وبك استاذى الحبيب تم اسندعاء التقرير تمام بس وقف الكود عند السطرين Bol = Application.Evaluate _ ("ISREF('" & R.Range("A" & k) & "'!A1)") حفظك الله وكمان حضرتك بعد مااضفت الكود لملفى لاحظت انه يستدعى البيانات ويجمعها حتى السطر قبل الاخير الذى يحوى بيانات بينما اخر خلية بها بيانات لا يجمعها انا اسف استاذى الحبيب هنا استاذنا فى الشيت1 المجموع 550 بينما التقرير 450 حبيبى يا استاذ سليم اسف والله انى ازعجك بطلباتى My_Repport.xlsm

هذا هو الملف الصحيح حفظك الله تقرير.xls

استاذى ومعلمى سليم حاصبيا والله يعجز لسانى عن شكرك وادعوا لك عن ظهر الغيب باستمرار والله ربنا يحفظك يبارك فى عمرك ويعطيك كل خير الدنيا اللهم امين يارب حضرتك حبيبى والله نفذت كل التعليمات ولكن توقف الكود عند هذين السطرين If CDate(Act_sh.Cells(x, 1)) >= ST_Dat And _ CDate(Act_sh.Cells(x, 1)) <= End_Dat Then كل التقدير والشكر وخالص الدعاء لحضرتك حفظك الله وحفظ ال بيتك اجمعين

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

ربنا يحفظك يارب انت واسرتك الكريمة يااستاذي كل الاحترام والتقدير لشخص حضرتك الكريم

والله العظيم حضرتك حبيبي ربنا مايحرمنا من حضرتك ابدااااااا تمام بس ممكن حضرتم تقولي ليه المشكلة كل سنة. وحضرتك طيب استاذي وحبيبي

ظهر الخطا في هذا السطر استاذنا ممكن اعرف معناه Cells(5,11).value=cells(3,10).value_cells(5,9).value مع خالص الشكر والتقدير والاحترام

الأخوة الأفاضل ظهرت لدى هذه المشكلة فجأة Run time error 13 والفورم لا يرحل ايه الحل اخوانى الاساتذة الملف كبير أستاذى وكان يعمل تمام فجأة اليوم ظهرت هذه الحالة اشكرك

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

هذا هو الملف استاذنا سليم بارك الله فيك استاذنا حبيبي والله احتاج للتعديل ليتم اخفاء الصفوف التى تحتوى على كلمة تم فى العمود b وانجز بالإضافة إلى كلمة سدد فى العمودj مع خالص تحياتي لشخصك الكريم وبارك الله فيك استاذنا اخفاء واظهار صفوف بكلمة.xlsm

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

السادة الاساتذة الافاضل مطلوب تعديل كود احد الاساتذة بالمنتدى يعمل على كتابة اسم الشيت فى خلية هذا الكود يعمل تمام شرط وجوده بحدث ورقة العمل المطلوب تعديله ليوضع فى حدث thisworkbook لينفذ فى كامل الملف مع خالص التقدير Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A4") = ActiveSheet.Name End Sub كود وضع اسم الشيت بخلية.xlsm

بارك الله فيك استاذنا سليم حاصبيا

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

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

أعزكم الله استاذ الرائد الاستاذ على الاستاذ سليم كل الشكر والتقدير والاحترام بارك الله فيكم أساتذة

السادة الافاضل هل بالامكان المساعدة فى عمل كود يقوم بعمل شيتات اسمائها من العمود a شيت اسماء الصفحات يعنى نضع اى اسماء بالعمود a وننفذ الكود فينشأ صفحات بنفس التنسيق لصفحة home ولكن اسم كل صفحة بالترتيب من العمود a شيت اسماء الصفحات مع خالص الشكر والتقدير New Microsoft Excel Worksheet.xlsm

شكر وتقدير واحترام استاذنا على

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