ياسر العربى

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

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

اخي الكريم يرجى تغيير اسم الظهور للغة العربية وتفضل الحل

أسأل الله العظيم أن يفرِّج همه وينفس كربه وييسر أمره ويحقق له مطلبه . اللهم اجعل له من كلِّ همٍّ فرجاً ومن كلِّ ضيق مخرجاً وارزقه من حيث لا يحتسب اللهم آمين.

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

بعد اذن حبيبي الغالي جرب الطريقة دي وبلغني

تفضل اخي لعله المطلوب وتم وضع زر لضبط التواريخ القديمة لعله يفي بالغرض 88.rar

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

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

تسلم ايدك انت ومجهودك داخل المنتدى حبيبي الغالي ابو البراء منكم نتعلم حبيبي وتفضلو نفس الفكرة بس على حجم الفونت وهنا الحجم "10" وتقدروا تنفذو الفكرة على اشياء كتير Sub Yasser2() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Range("a3:g31") If Rng.Font.Size = "10" Then Rng.ClearContents End If Next Rng Application.ScreenUpdating = True End Sub تقبل تحياتي مسح بيانات بمعلومية حجم الخط.rar

بسم الله الرحمن الرحيم اراد احد الاخوة كود لازالة بيانات من خلايا متفرقة داخل نطاق معين فخطرت ببالي هذه الفكرة وهي حذف البيانات بمعلومية لون الخليه فوضعت لكم مثال بسيط لعله يفيدكم Sub Yasser() Dim Rng As Range Application.ScreenUpdating = False For Each Rng In Range("a3:g31") If Rng.Interior.Color = Range("h1").Interior.Color Then Rng.ClearContents End If Next Rng Application.ScreenUpdating = True End Sub مع تحياتي ياسر العربي مسح بيانات بمعلومية اللون.rar

مجهود رائع مشكورين ياغاليين حبيبي ابو البراء كنت عارف ردك يامعلم وكنت ناوي ابحث عنها لولا ضيق الوقت المهم اديك جبتها واكملت ملفك بشكل افضل جزيت خيرا انت وكل من ساهم في الحل تقبل تحياتي

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

صباح كله أمل وتفاؤل صباح الخير شاااات

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

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

الخطأ في كتابة اول الكود يوجد في اول الكود كما موضح بالصورة تكست بوكس 11 ولا يوجد بالفورم تكست بوكس11 من الاساس والمقصود هو تكست بوكس 1

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

التعديلات كانت على اساس الموضح في الملف انه لايظهر الا وقت الترقية مثل جملة هنا تلقائي بعد مرور اربع سنوات يظهر التاريخ هل المقصود يظهر تلقائي اي يحسب الفرق ويظهر النتجة ام يحسب الفرق ولا يظهر النتيجة الا بعد مرور المدة ؟؟؟؟؟؟؟؟ وهذا التعديل علي نفس الفكرة ولكن يظهر التاريخ دائما مصنف الاستحقاق.rar

مرفق مستخدم به الدالة If بطريقة بسيطة لعله المطلوب مصنف الاستحقاق.rar

حسبي الله لا اله الا هو عليه توكلت وهو رب العرش العظيم

ههههه الجو اتظبط شويه اخرج ياريس ولف براحتك

اخي احمد يعمل البرنامج جيدا معي اظهار الاندوريد بتاعك مشيع اخي كريم جزاك الله خيراتقبل تحياتي ابو البراء الغالي ياغالي نعملك اللي يناسبك وادي صور توضيحيه للبرنامج

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

*** الحمد لله الذى تتم بنعمته الصالحات *** جزاك الله خيرا تقبل فائق احترامي