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

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

السلام عليكم الاساتذه الكرام لدي مشكله معقدة بعض الشي وحلها باذن الله لديكم وهي تعبئة التاريخ من الفورم ولكن مرة يكون بالهجري ومرة بالميلادي وقد وضعت كود معرفة عدد الايام المتبقية وتقييم السداد اخر عامودين بالجدول المشكلة هي تخرج ارقام غير صحيحة بعض المرات لانه لا يتعرف على التاريخ والعمل يتطلب مره يكون بالهجري ومرة بالميلادي فما هو الحل ولكم جزيل الشكر محاولة ادخال التاريخ هجري وميلادي.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

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

(( خير الناس انفعهم للناس ))

السلام عليكم سؤال لخبراء الاكسل الكرام امل تصحيح هذا الكود حيث اني الغي الامر بعد فتح النافذا فايستمر بتنفيذ الكود امل تصحيح الكود Sub Macro01() a = MsgBox("هل تريد طباعة الان ؟", vbYesNo + vbQuestion, "طباعة") ' اذ اخترت لا اريد الطباعة الصحيح الكود يقف ويلغي التنفيذ هنا If a = vbYes Then With ActiveSheet 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 'اذ اخترت لا اريد الطباعة عدد الصحيح الكود يقف ويلغي التنفيذ كذالك هنا End With End If Dim X3 As Long, X4 As Long X3 = Sheets("DATA").Range("a1000").End(xlUp).Row + 1 X4 = Sheets("aaa").Range("B24").End(xlUp).Row Sheets("DATA").Range("B" & X3).Resize(X4 - 5, 21) = Sheets("aaa").Range("B6").Resize(X4 - 5, 21).Value End Sub ولكم الشكر تنفيذ المكرووو.rar

اللهم صل وسلم على نبينا محمد وعلى آله وصحبه أجمعين

السلام عليكم سؤال لخبراء الاكسل الكرام ماهي الطريقة الصحيحة لحماية ملف فية مجموعة اوراق عمل فيه اكواد ومعادلات تنفذ عن طريق الترحيل لبعض الصفحات وتنسيق شرطي ومعادلات بكل ورقة اعرف هذي الطريقة 'قبل الكود لفك الحماية ActiveSheet.Unprotect Password:="" 'بعد الكود لاعادة الحماية ActiveSheet.Protect Password:="" هل يوجد افضل منها خاص ان الاكواد متداخله الملف بصيغة.xlsb ولكم الشكر

. السلام عليكم لدي كود من عمل الاستاذ القدير ياسر وهو حساب عدد الخلايا باللون حسب التنسيق الشرطي المشكلة يحتاج تحديث كل مره لخلية s2 ما الحل لاني اوريد ان تظهر النتيجة في البيل في اليوزر فورم ((( خير الناس انفعهم للناس ))) حساب عدد الخلايا باللون تنسيق 222.rar