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

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

السلام عليكم سؤال لخبراء الاكسل الكرام امل تصحيح هذا الكود حيث اني الغي الامر بعد فتح النافذا فايستمر بتنفيذ الكود امل تصحيح الكود 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))&" يوم"),"") يظهر بهذا الشكل فما الحل

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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