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

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

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

الاستاذ القدير اسامه البراوي لك مني جزيل الشكر ولكن لم يعمل الكود الاول =IF(E6<>"",IF(h2g(E6)>NOW(),"باقي على إنتهاء الصلاحية "&(ROUND((h2g(E6)-NOW())+1,0))&" يوم","إنتهت الصلاحية من "&(-ROUND((h2g(E6)-NOW())+1,0))&" يوم"),"") يظهر بهذا الشكل فما الحل

مساعدة ياكرام باقي مشكله التاريخ

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

اشكرك استاذ علي واشكر الاستاذ القدير / زيزو العجوز جزاكم الله خير

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

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

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

‏آللّهُمَّ صّلِ وسَلمْ علىّ ِ نِبٓينِاًّ مُحَمد ﷺ

المساعدة ياكرام

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

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