أحمد يوسف

استاذى الكريم شكرا لك لكن مازال هناك رسائل خطأ تظهر

اهلا بك اخى الكريم فى المنتدى عليك برفع ملف وتوضيح عليه المطلوب بدقة فلا يمكن العمل على التخمين وايضا تجنبا لإهدار الوقت

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

لا يوجد برامج جاهزة هنا عليك بتصميم البرنامج بنفسك واذا تعثرت فى حاجة فعليك برفعها هنا بارك الله فيك

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

تفضل للمنتدى تعديل الطباعة.xlsx

الملف غير كامل اخى الكريم لابد من وجود اسماء التلاميذ الذى بناءا عليه يتم جلب التقديرات

وما هو الغرض من هذا ؟!!!

وعليكم السلام عليك برفع ملف وشرح المطلوب بالتفصيل حتى تلقى المساعدة

بارك الله فيك اخى الكريم هى بالتأكيد مختصرة لكنها جيدة

تفضل Test.xlsm

يعنى يجب عليك تمكين الماكرو كما بالصورة

أخى الكريم موضوعك ليس بالسهل او الهين عليك التحلى بالصبر حتى تتمكن الأساتذة والخبراء من المساعدة والحل ان شاء الله

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

عليك برفع ملف موضح فيه المطلوب بالتفصيل

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

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

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

تم الحل بتقديم كود رائع للمطلوب من قبل أستاذنا الكبير العلامة الأستاذ ياسر خليل ابو البراء له منا جميعا كل الحب والإحترام فدائما وابدا نتعلم منه الكثير زاده الله من فضله ووسع الله فى رزقه وبارك الله فى أولاده ورحم الله والديه وغفر لهم والحل موجود على هذا الرابط يمكنك الدخول اليه-فأعتقد ان هذا هو اقل حاجة تقدمها لأستاذنا الكبير هو الشكر على هذا العمل الرائع وهذا يعتبر اقل شيء حتى نعطيه ونوفيه حقه فى العمل https://excel-egy.com/forum/t2811&count=0#28256

لابد من رفع ملف وشرح فيه ما تريد بالتفصيل فكده الموضوع والطلب مبهم وغير واضح

يمكنك استخدام هذا الكود Sub sbCopyingAFile() 'Declare Variables Dim FSO Dim sFile As String Dim sSFolder As String Dim sDFolder As String 'This is Your File Name which you want to Copy sFile = "Sample.xls" 'Change to match the source folder path sSFolder = "C:\Temp\" 'Change to match the destination folder path sDFolder = "D:\Job\" 'Create Object Set FSO = CreateObject("Scripting.FileSystemObject") 'Checking If File Is Located in the Source Folder If Not FSO.FileExists(sSFolder & sFile) Then MsgBox "Specified File Not Found", vbInformation, "Not Found" 'Copying If the Same File is Not Located in the Destination Folder ElseIf Not FSO.FileExists(sDFolder & sFile) Then FSO.CopyFile (sSFolder & sFile), sDFolder, True MsgBox "Specified File Copied Successfully", vbInformation, "Done!" Else MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists" End If End Sub

تفضل مخازن.xlsx

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

وعليكم السلام كيف هذا ؟!!!! وهذا غير منطقى

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