Ali Mohamed Ali

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

وعليكم السلام-تفضل كشف رصد درجات المرحلة الأساسية.xlsb

أحسنت اخى الكريم عمل ممتاز بارك الله فيك

تفضل لك ما طلبت حساب القيمة الاستهلاكية.xlsm

وعليكم السلام-تم تعديل وضبط الملف واستخدام هذه المعادلة =SUMIFS('2001'!$D$6:$D$770,'2001'!$C$6:$C$770,$A5,'2001'!$B$6:$B$770,C$3) FIX Formula1.xlsx

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

بارك الله فيك اخى الكريم وزادك الله من فضله

وعليكم السلام-اخى الكريم وبما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة وذلك لأنه لا يمكن العمل على التخمين ... فلما لا تقوم بإستخدام خاصية البحث بالمنتدى فقد تكرر طلبك كثير وشوف بنفسك : كود تفقيط الارقام من رقم إلى كتابة تفقيط عربي مميز دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود

وعليكم السلام-لك ما طلبت كميات مقاولين556 .xlsm

جزاك الله كل خير استاذنا الكريم

بارك الله فيك وزادك الله من فضله

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

بعد اذن استاذنا سليم , ولإثراء الموضوع يمكنك وضع هذه الأكواد فى حدث الصفحة Dim mRg As Range Dim mStr As String Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("A2:D1000"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" If xRg.Value <> mStr Then xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A2:D1000"), Target) Is Nothing Then Set mRg = Target.Item(1) mStr = mRg.Value End If End Sub

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله تم التجربة ويعمل بكل كفاءة

وعليكم السلام-لك ما طلبت JC new1.xlsx

ألف سلامة استاذنا الغالى , شفاك الله وعافاك وبارك الله لنا فيك

وعليكم السلام-لك ما طلبت تحويل الارقام الى عربي عند استدعاء البيانات1.xls

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

وعليكم السلام-جرب هذا How to Copy or Import VBA Code to Another Workbook أو هذا Copy every worksheet from one excel file to another او يمكنك بطريقة بسيطة بأن تقوم بتحديد كل صفحات الملف بطريقة يدوية ثم بعد ذلك تقوم بالضغط كليك يمين بالماوس ثم اختيار move or Copy ثم بعد ذلك اختيار ملف الإكسيل الذى تريد نقل الصفحات اليه وتحديد كل الصفحات التى تريد نقلها ... فسيتم النقل ايضا بالمعادلات وبنفس تنسيقات الملف القديم اما بالنسبة لنقل الأكواد فقط عليك بفتح الملف القديم والملف الجديد والدخول الى محرر الأكواد بالضغط على Alt F11 ثم الضغط الى الكود الذى تريد نقله وسحبه الى المكان الجديد بالملف الجديد

تفضل لك ما طلبت Payroll.xlsm

بالطبع سيكون عمل ممتاز استاذ سليم بارك الله فيك وزادك الله من فضله

بارك الله فيك وزادك الله من فضله ورحم الله والديك

تفضل 201.xlsx

بارك الله فيك استاذ أحمد وزادك الله من فضله

يمكنك مشاهدة هذا الفيديو https://www.youtube.com/watch?v=CpR8QvC6pAA