الـعيدروس

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

البحث من صفحة Datebase بالفعل ماعدا الوزن الحالي يأخذ من اخر حركة للمريض في ورقة FllowDate تم إضافة في هذا المرفق مجرد البحث عن مريض بيظهر لك بيانات اول دخول في مربعات النص والمتابعات اسفل التقرير المعادلات يفضل تكون يدوي لضمان نتائجها واذا اردت بكود لايمنع حدد المعادلات التي تريد يكون عملها مع الكود أولاً تأكد من المرفق اذا التعديلات زبطت معك هذا الطلب سهل نخليه اخر شيء واعدله لك في وقت لاحق برنامج_aa3.rar

السلام عليكم الاخ الاستاذ شوقي ربيع ملف جميل وقيم بارك الله فيك وجزاك خيراً تقبل مروري

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

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

السلام عليكم اكيد حل الاستاذ طارق محمود مابعده كلام ولاكن قد عملت على الملف ارفق الكود مدى النسخ واحد Public Sub Ali_Rn() Dim W As Workbook Dim Sh As Worksheet Dim Path$, My_F$ Dim Rng As Range Nm = ThisWorkbook.Name Path = ThisWorkbook.Path & Application.PathSeparator My_F = Dir(Path & "*.xlsx") On Error Resume Next Do While My_F <> "" If Not My_F = Nm Then Workbooks.Open Filename:=Path & "\" & My_F Set W = Workbooks(My_F) For Each Sh In W.Worksheets With Sh SPd False Set Rng = .Range(.Cells(2, 1), .Cells(500, 15)) Rng.Copy With Workbooks(Nm).Worksheets(.Name) Lc = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Range("A" & Lc).PasteSpecial xlPasteValues End With End With Next W.Close 0 SPd True End If My_F = Dir Loop End Sub Private Function SPd(Bn As Boolean) With Application .Calculation = IIf(Bn, -4105, -4135) .EnableEvents = Bn .ScreenUpdating = Bn .DisplayAlerts = Bn End With End Function

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

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

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

تعديلات على الكود * بحث لجميع إمتدادات الإكسل * تسريع الكود عند استخراج مسارات الملفات Kh_Srech_Al.rar

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

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

الاخ والاستاذ القدير Eid Mostafa تسلم على التهنئه وبارك الله فيك الاخ الفاضل عادل ابوزيد اشكرك على كلماتك الرقيقة ومرورك العطر

الاخ الفاضل A L M A I S T R O ان شاء الله يكون ادى الغرض الاستاذ العلامه عبدالله باقشير مرورك شرف لي جزاك الله كل خير ننتظر تطوير الملف لان ملفك حقيقة لايمكن الاستغناء من عمله اي شخص يتعامل مع برنامج الاكسل في حال اراد البحث في ملفاته تقبلو تحياتي وشكري

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

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

السلام عليكم تعديلات التقرير ------------------------- المرفق الاول شرح تجربة العمل عليه المرفق الاخر الملف شرح_للتقرير.rar برنامج_A1.rar

سلمت استاذ محمد طاهر وان شاء الله نكون عند حسن ضنكم بارك الله وجزاك كل خير

برجاء عدم تكرار المواضيع والموضوع السابق فعال تم دمج الموضوع المكرر

السلام عليكم اراك مستعجل امهلنا يااخي الكريم تفضل يومية مبيعات_Ali5.rar

الاخ الفاضل البروفيسور اراك لخبطت الجدول عن الملف الذي عملنا عليه ؟ عموما اذا توفر الوقت سوف اعمل عليه

الاخ الفاضل أبو ندى اشكرك على مرورك العطر جرب المرفق أمر صرف_Egp.rar

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

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

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