أيهاب ممدوح

بعد التحويل التاريخ الي هجري بواسطه الداله المرفقه من الاخ ابن مصر وطبعا الشكر موصول للأستاذ ياسر خليل بانشاء الدوال للتحويل من الهجري الي ميلادي نرجوا منكم استخراج رقم الشهر حيث استخدمت داله left ولكن المشكله عندما يكون الشهر رقمين والشهور التي تتكون من رقم فالداله تستخرخ العدد المطلوب فقط هل من حل ehab.rar

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

اخي الكريم ابن مصر لا اريد تحويل التاريخ من هجري الي ميلادي او العكس ما اريده ان تكون قيمه الخليه هي التاريخ الهجري وليس الميلادي اريد عند كتابه 1 مارس 2015 تكتب الخليه التاريخ الهجري كقيمه وليس تنسيق ميلادي الي هجري

الاخوة الافاضل الشرح بالملف ehab.rar

للرفع

للرفع

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

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

اخي الكريم الاخوة الكرام لم ينجح الحل معي !!!! ارجوا المساعده

شكرا اخي الكريم

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

للرفع

الاخوة الكرام الكود لا يعمل اثناء اخفاء الصفحه ما الحل ؟؟

للرفع

طيب اخي الكود لا يعمل في حاله اخفاء الصفحه ما الحل؟؟؟

الكود الثاني يقوم بفتح فورم به بعض التنبيهات

شكرا اخي الكريم ارجوا ايجاد حل لدمج كودين عند فتح الملف ehab.rar

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

مرفق ملف للتوضيح

Private Sub Workbook_Open() btnSendEmail End Sub Private Sub Workbook_Open() Application.ScreenUpdating = False With SEARCH_4_DOC_SPECIAL .Label1.ForeColor = &HFF& .ListBox1.ForeColor = &HFF& .Label1.Caption = "ÈíÇäÇÊ ÇáÇíÌÇÑÇÊ ÇáãØáæÈå" .TextBox1.text = "ãØáæÈ" .Show End With Application.ScreenUpdating = True End Sub اخي ابن مصر الاخوة الكرام لدي مشكله في تشغيل الكود عند فتح الملف تظهر هذى الرساله ولدي كود سابق يعمل عند فتح الملف ليظهر فورم به بعض التنبيهات ولدي كود الثاني يقوم بتشغيل كود الارسال فور فتح الملف كيف دمج الوظيفتين في الكود شكرا

اخي ابن مصر لو امكن عند ارسال الرساله يظهر التاريخ بالميلادي والملف بالهجري اريده يظهر في الايميل بالهجري او الميلادي كما هو في الملف ؟ ممكن حل شكرا

شكرا جدااااااااااااااااااااااااااا بارك الله فيك هو المطلوب فعلا شكرا جداااااااااااااااااااااا

للرفه

اخي الكريم نفس النص هو هو لجميع الحالات لكن عندما تكون اقامه يكون انتهاء الاقامه السيد...... بتاريخ ..... ومتبقي عليها..... لكن عندما تكون ايجار يكون انتهاء ايجار للمحل .... بتاريخ ..... ومتبقي عليها .... لكن عندما تكون سجلات يكون انتهاء السجلات للمحل ..... بتاريخ .... ومتبقي عليها..... لاحظ ان الفرق الوحيد هو ( السيد عند انتهاء الاقامه لانها تخص شخص) لكن عند انتهاء الايجار او السجل يكتب انتهاء ايجار او سجل للمحل الخلاف فقط للمحل و للسيد شكرا

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