ahmed00

السلام عليكم ورحمة الله وبركاته أخي الكريم واستاذي أبو تامر فعلاً لا اجد ما يوفي هذا الفكرة من كلمات ولكن ادعو الله لك ان يزيدك علماً وينفعل بك المسلمين ان شاء الله جزاك الله خير الجزاء في انتظار الفكرة الثانية ان شاء الله بدون اي وعد منك او استعجال منا أخوك أحمد

السلام عليكم ورحمة الله وبركاته أخي الكريم أبو تامر منتظرين الطريقة حتى الآن !!! أخوك أحمد

السلام عليكم ورحمة الله وبركاته أخي الكريم أنور المرتاح ................................................................................ ........................... أقتباس ويا أخي aah-aah2008 ليس للخلية M19 أي علاقة بالموضوع ولا أعرف لماذا أدخلتها ضمن الصيغة يرجى من الأخوة قراءة الشرح في السؤال جيدا لانني أعتقد [انني شرحت شرحا كافيا ونافيا للجهالة في الموضوع ................................................................................ ........................... يا أخي اشكر الناس علي المساعدة الغير مجبرين علي عملها بدل ما تقول انني شرحت شرحا كافيا ونافيا للجهالة في الموضوع !!!!! هم غير مطالبين بشئ؟؟؟ والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله هذا الملف به قيود يومية ____.rar

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

السلام عليكم ورحمة الله وبركاته أخي لو كنت قرأت المشاركات كلها كنت عرفت ان ملف ابو تامر فتحه اخونا ابو اكرم في نفس الرابط أخوك أحمد الاكواد داخل الملف Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) NoDelCode End Sub Private Sub Workbook_Open() DelCode Dim Expiry As Date 'If today's date > expiry date, the file will close Expiry = DateValue("28/12/2010") If Date > Expiry Then Application.EnableEvents = False Call MsgBox("ÚÝæÇ ÇáãáÝ ÇÛáÞ Ýì " & Expiry & ". ãä ÝÖáß ÇÑÌÚ Çáì ãÔÑÝíä ãäÊÏì ÇæÝÓíäÇ áÔÑÇÁ ÇáäÓÎÉ ÇáÇÕáíÉ åÔÇã", vbCritical, "áÇ íãßäß ÝÊÍ ÇáãáÝ") Application.DisplayAlerts = False Application.ScreenUpdating = False ActiveWorkbook.Close Application.DisplayAlerts = True Application.ScreenUpdating = True Application.EnableEvents = True End If End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) 'NoDelCode End Sub Private Sub DelCode() Application.DisplayAlerts = False On Error Resume Next Dim oCtrl As CommandBarControl MeNow = True Dim num(5) num(1) = 1561 num(2) = 488 num(3) = 30017 num(4) = 748 num(5) = 3 For X = 1 To 5 For Each oCtrl In Application.CommandBars.FindControls(ID:=num(X)) oCtrl.Enabled = MeNow Next oCtrl Next X With Application .OnKey "%{F11}", "" .OnKey "%{F8}", "" .OnKey "%{F6}", "" ' .OnKey "{F12}", "" .OnKey "%{F2}", "" .OnKey "^s", "" .OnKey "+{F12}", "" End With Application.CommandBars(14).Enabled = True Application.CommandBars(103).Enabled = True CommandBars("Toolbar List").Enabled = True End Sub Private Sub NoDelCode() On Error Resume Next Dim oCtrl As CommandBarControl MeNow = False Dim num(5) num(1) = 1561 num(2) = 488 num(3) = 30017 num(4) = 748 num(5) = 3 For X = 1 To 5 For Each oCtrl In Application.CommandBars.FindControls(ID:=num(X)) oCtrl.Enabled = MeNow Next oCtrl Next X With Application .OnKey "%{F11}", "" .OnKey "%{F8}", "" .OnKey "%{F6}", "" ' .OnKey "{F12}", "" .OnKey "%{F2}", "" .OnKey "^s", "" .OnKey "+{F12}", "" End With Application.CommandBars(14).Enabled = False Application.CommandBars(103).Enabled = False CommandBars("Toolbar List").Enabled = False End Sub

السلام عليكم ورحمة الله وبركاته أخي الكريم هذا الملف قام بعمله احد الاعضاء وكان عمل ما شاء الله جميل انظر للمرفق وستجد ما يسرك ArabicBudgetPlanner.rar

السلام عليكم ورحمة الله وبركاته أخي اصابة الهدف هذا كان موضوع تم طرحه سابقاً يمكن ان تستفيد منه كثيراً مع مراعاة انك تدخل علي المشاركات كلها في الموضوع والبخصوص ابو تامر وممكن ايضاً البحث عن كلمة تنفيذي وستجد كل ما يخص ذلك الموضوع الرابط http://www.officena.net/ib/index.php?showt...0&hl=تنفيذي

السلام عليكم ورحمة الله وبركاته بعد اذن اخي طارق هذا الملف به فكرتك مع اعادة الورقة بعد اخفاءها حتى لا يصعب عليه اعادة الورقة مرة اخرى أخوك أحمد_________.rar

السلام عليكم ورحمة الله وبركاته تفضل _____________2.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم خبور شرح وافي وجميل وهذا جديد بالنسبة لي ومفيد جداً , شكراً علي المجهود الطيب أخوك أحمد

السلام عليكم ورحمة الله وبركاته هذا رابط مهم ممكن تتعلم منه إن شاء اللهhttp://www.officena.net/Taher/Pivot/Pivot.htm

السلام عليكم ورحمة الله وبركاته اعتقد ان هذا ما تريد اما لو عايز شئ تاني ممكن ترفق شرح عن العمولة هل هي عند مبلغ معين لا يستحق المندوب اي شئ ؟؟؟ _______________.rar

السلام عليكم ورحمة الله وبركاته أخي هذا الكود المكتوب داخل الملف ايضاً من أحد الاعضاء وأنا تعلمته منه وأرجو ان ده يكون طلبك حيث هذه امكانياتي محدودة أخوك أحمد _______2.rar

السلام عليكم ورحمة الله وبركاته أخي آسف للتأخير بالرد اليك هذا الملف ومعه الملف مؤخذ منه الفكر الخاص بالاستاذ عمر وأشكر لأخي TareQ M علي ملفه الذي تعلمت منه _______.rar VLOOKON_With_No_Limitation.rar

السلام عليكم ورحمة الله وبركاته كل عام وانت بخير وبصحة يا ريت لو عند شكل معين وان شاء الله نستطيع عمل المطلوب أخوك أحمد

السلام عليكم ورحمة الله وبركاته أخي EngMoh هذا ملف به المطلوب ولو تحب تدرج صورة ثانية من خلال التالي : 1 - افتح قائمة إدراج في الورد . 2 - اذهب الي الخيار صورة واختار من ملف سيفتح لك نافذة تختار منها مكان الصورة . ___________________.doc

السلام عليكم ورحمة الله وبركاته أخي الفاضل يا ريت تعمل كارت لاخي أيضاً اسمه حسن طنطاوي

السلام عليكم ورحمة الله وبركاته كل عام وأنت بخير وصحة عمل جميل واحب ان يكون لي كارت تهنئة أيضاً أحمد طنطاوي

آسف نسيت أضع الملفات ____________SUMPRODUCT.rar countif.rar

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

السلام عليكم ورحمة الله وبركاته أخي الخضر الموقع اللي انت واضع عليه الملف لا يعمل بالسعودية أو تغيير الموق علي أحد هذه المواقع zshare, ziddu, 4share وشكراً أخوك أحمد

السلام عليكم ورحمة الله وبركاته أخي هذا الملف اضغط عليه دبل كليك وهو سوف يقوم بإعادة الاكسيل كما كان هذا الملف من أحد الاعضاء انا مجربه أخوك أحمد ______________________________.rar

السلام عليكم ورحمة الله وبركاته اسرع رد انت فنان واستاذ جزاك الله خيراً أخوك أحمد

السلام عليكم ورحمة الله وبركاته أخيGHMN7174 نفس المشكلة لاني في السعودية أمل رفع علي موقع آخر مثل zshare, ziddu, 4share بس ضروري جداً للأهمية أخوك أحمد