ابوعلي الحبيب

استاذي الـعيدروس ماشاء الله تبارك الله عليك باقي يضيف تاريخ اليوم

وسوف ارفق صورة والملف من جديد المطلوب يكون اسم الصورة من خلية G1 مع التاريخ ولك الشكر جرب استاذي فك ظغط الملف في مجلد وبعد فتح الملف وظغط ع الكود تجد الصوره بنفس المجلد ولكن تحمل رقم 1 حفظ صورة ياسم خلية.rar حفظ صورة ياسم خلية.xlsb

اشكرك استاذي لدي كود قصي يحفظ بي دي اف Range("A2:A17").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & " " & Range("A1").Value _ & " " & Format(Now, "dd-mm-yyyy"), Quality _ :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False _ , OpenAfterPublish:=True If a = vbNo Then End Application.ScreenUpdating = False هل فيه امكانية التعديل على هذا الكود بحيث يكون قصير ويحفظ الصورة بالتاريح لانه ضمن كود طويل ملاحظة مهمه يوجد كود صيغة الصور بالملف ثابت ل ولك الشكر

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

اتمنى اجد حل

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

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

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

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

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

السلام عليكم ياكرام بحث عن طريقة لتسريع تنفيذ الاكواد وتوصلت الى ان وضع التالي في البداية كل كود 'هذه الأكواد الثلاثة في الاول تعمل على تسريع تنفيذ الأوامر Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual ووضع 'هذه الأكواد الثلاثة في الاخير تعمل على تسريع تنفيذ الأوامر Application.ScreenUpdating = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic في الاخير في كل كود تفيد بتسريع كل كود هل هذا الشي صحيح امل التوضيح شكر ومقدر لكم

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

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

السلام عليكم الاساتذه الكرام امل المساعدة كيف التنقل بزر ((زيادة أو نقصان)) والتوقف عند كل اسم 5 صفوف ينهم والعوده وكيف منع قبول تكرار من قائمه منسدلة من غير التنسيق الشرطي لماذا COUNTIF يظهر العدد فيه كسور والمجموع خطا وما الحل لانه يحسب المعادلات وكيف الذهاب لاخر صف فيه كتابه وليسى معادله مرفق ملف للتوضيح ولكم الشكررر الانتقال 25 صف.xlsm

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

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

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

السلام عليكم يا كرام لدي ملف في كود بحث او فرز حسب التاريخ كيف اجعله يبحث ويحضر من جميع الاوراق الحالي والتي سوف تضاف في المستقبل بنفس التنسيق --------------- وقام الاستاذ سليم مشكور بعمل كود ولكن يحتاج تعديل --------------- المطلوب ان ياخذ التاريخ من العامود َQ فقط في جميع الاوراق وهو المهم اما قبل التاريخ او بعده وحذفت عامود ((من ))لكي لا يسبب اشكال المشاكلة الان هي بعد تعديل التاريخ في خلية التاريخ من الى C1 C2 لا يظهر شي حتى اذا كان التاريخ قصير تظهر نتيجة مختلفة امل المساعدة ولكم جزيل الشكرررررر مرفق ملف جلب حسب التاريخ.xlsm

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

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

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

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

اشكرك استاذي على تفاعلك ولكن ليس هذا المطاوب مرفق صوره المشكله

استاذي بعد هذا الكود و اذا ظهرة نافذة عدد النسخة للطباعة واخترت الغاء الكود يستمر في تنفيذ الامر والمطلوب اذا لم اختر العدد وقررت الغاء الطباعة ان يقف الكود ويتم الخروج من الامر Dim Numcop As Integer Numcop = Application.InputBox("ادخل عدد النسخ المطلوب طباعتها ", 1, Type:=1) If Numcop = 0 Then ElseIf Len(Numcop) > 0 Then End If ActiveWindow.SelectedSheets.PrintOut copies:=Numcop

للاسف استاذي نفس المشكلة