abouelhassan

الاخوة وجدت كود احتاج تعديله ليناسب البرنامج وهو للاستاذ على محمد على فى هذه المشاركة مش عارف اعدله والله احتاج تعديل الكود ليطبق على الملف المرفق مع خالص شكرى وتقديرى Sub Transfer() Sheets("Main").Activate For Each F In Range("e2:E1000") If F <> "" Then x = F.Value Range(F.Offset(0, -4), F.Offset(0, 0)).Copy LR = Sheets(x).Range("A" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("A" & LR + 1).Select Selection.PasteSpecial xlPasteValues End If Next F Sheets("Main").Activate Application.CutCopyMode = False Range("A2:E1000").ClearContents MsgBox "تم الترحيل الى كل صفحة بنجاح" End Sub ترحيل واستدعاء.xlsx

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

حبيبي يا استاذى اكثر الله خيرك وبارك لك الله يبارك لك يارب ويديك الصحة والعافية حبيبي والله

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

كل الشكر والتقدير والاحترام لحضرتك حبيبي يا باشا والله,,,معلش لو عايز الكود فى حالة أن مفيش رقم مايكتبش صفر...جزاكم الله خيرا

انا عايز معادلة جمع للصف مكانها مع خالص تحياتي لحضرتك

تمام تمام تمام كنت ناسى اكتب مجموع 1 ومجموع 2 ممكن استاذنا نغير كلمة Global Sum بالجمع عادى للصف مع خالص شكرى وتقديرى

الله الله الله الله عليك يا استاذنا كود ولا اروع بس مشكلة بسيطو عايز الجمع الى هو 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