احمد عبد الناصر

انا لله و انا اليه راجعون اللهم تغمده برحمتك و اسكنه فسيح جناتك

لا حول و لا قوة الا بالله العلي العظيم انا لله و انا اليه راجعون نسأل الله له الرحمة و المغفرة و الجنة و لذويه الصبر و السلوان عظم الله اجركم

ملاحظة يجب ان تكون البيانات اما مرتبة و اما كل مجموعة تبدا بحرف معين متلاحقة , الافضا ان تكون مرتبة =IF(E8="";OFFSET(Sheet1!E7;0;0;COUNTA(Sheet1!E7:E10000);1);OFFSET(Sheet1!E7;MATCH(E8&"*";Sheet1!E7:E10000;0)-1;0;COUNTIF(Sheet1!E7:E10000;E8&"*")))

السلام عليكم اسعد الله صباحكم هذه محاولة استعرت فكرة الاستاذ الاسيوطي مع بعض التعديلات البسيطة تحياتي datavalidation+.rar

السلام عليكم جرب هذه اعتقد ان معادلة الاضافي بها خلل لكنها محاولة . تحياتي الاضافى+.rar

السلام عليكم جرب المرفق لكن ستلاحظ ان المعادلة تأتي بنتائج غير مرغوب فيها من بداية المسلسل السادس , اعتقد ان الملف بحاجة لبعض التنظيم تحياتي قوائم+.rar

السلام عليكم جرب المرفق بالنسبة للوقت اعتقد ان صيغته سليمة . بالنسبة لعمود التاريخ خذه نسخ ثم لصق خاص قيم من عمود المعادلات . تحياتي 123456789+.rar

شاكر لك مرورك الكريم استاذ سعد تحياتي

السلام عليكم استاذ ايهاب حمدا لله انك وصلت الي ما تريد , ارجو ان تختبر الكود جيدا كي لا يكون به اخطاء فانا لم اراجعه جيدا . استاذي و الاخ الكبير عبدالله باقشير لك كل الشكر و التقدير تقبل تحياتي .

السلام عليكم جرب هذه تحياتي كشف حساب البنك+.rar

السلام عليكم استاذتنا الكبيرة ام عبدالله الله يسلمك للجذر التكعيبي ممكن استخدام ROW(1:100)*ROW(1:100)*ROW(1:100) صراحة انا لم اشاهد الفيديوهات في المشاركات المطلوبة فلم افهم قصد الاستاذ زمزم تماما ولكن ان كان السؤال كيف حساب الجذر بابسط طريقة فاعتقد انها بعمل حلقة من 1 الي الرقم المراد بحث الجذر له 16 مثلا و ضرب القيمة بنفسها حتي نجد القيمة المرادة و هذا اسهل باستخدام الفجوال باستخدام LOOP تحياتي

السلام عليكم اسعد الله صباحكم جرب هذه تحياتي جذر+.rar

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

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

السلام عليكم جرب هذا التعديل sConnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & "\" & [b1] & ".accdb;Persist Security Info=True " تحياتي

السلام عليكم اسعد الله صباحكم هذه محاولة مبدئية للفكرة تحياتي جرد+.rar

السلام عليكم استاذي الكريم اسعد الله صباحك معذرة علي التأخير :) صراحة لست متأكد من دقة اختياري lowest , highest سيطلب منك الملف اول قيمة قيمة step ولتكن 30 او 50 او اين كان و ثاني قيمة هي قيمة عمود النتيجة في حالة العمود c ادخل رقم 3 و رقم 4 ام اردت العمود D و هكذا جرب هذا الملف و اعلمني بالنتيجة تحياتي sttp +FIN.rar

السلام عليكم اسعد الله صباحكم لست متأكد اني فهمت المطلوب ولكن على اي حال جرب هذا Sub Dahmour() d2 = Format(DateSerial([c2], [c1] + 1, 0), "mm/dd/yyyy") r = Range("b3:j" & Cells(Rows.Count, 2).End(xlUp).Row).Address Range(r).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(1, d2) End Sub Sub SHOWall() On Error Resume Next ActiveSheet.ShowAllData End Sub تحياتي +فرز حسب الشهر.rar

السلام عليكم اسعد الله اوقاتكم جرب المرفق Sub Dahmour() Application.ScreenUpdating = False For Each c In [b9:b33] If c.Value = "" Then c.EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub تحياتي +Xl0000019.rar

السلام عليكم جرب هذا التعديل , ارجو ان تجربه علي عدة بيانات مختلفة -بالنسبة لزيادة الصفوف و باقي ال steps فهذا سهل باذن الله ولكن اريد ان اتأكد اولا من ان الكود يقوم بمعالجة البيانات بطريقة صحيحة . تحياتي sttp --4.rar

السلام عليكم اخي الكريم , معذرة مرة اخره علي التأخر في الرد --بالنسبة للقيم الخاطئة بالفعل كان هناك خطأ في الكود قمت بتعديله . --بالنسبة للتاريخ السبب ان الصيغة المكتوب بها 1.9.2013 ليست صيغة تاريخ بل نص المفروض تكون هكذا 1/9/2013 او 1-9-2013 و لكن ان كانت هذه طريقة تسجيلك للبيانات و هي ثابتة هكذا فمن الممكن التعديل في الكود ليناسب البيانات و يقوم بتحويل القيم . -- بالنسبة لملاحظة ان المفترض ان لا توضع lowest او highest في بعض الحالات فهذه لم استوعبها ارجو المزيد من الايضاح تحياتي sttp +++.rar

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

السلام عليكم اضف هذا السطر في this workbook Private Sub Workbook_Open() Application.OnKey "{f5}", "Button2_Click" End Sub تحياتي ترحيل مع vlookup+.rar

السلام عليكم مرحبا بك في المنتدي جرب هذا الملف و الافضل ارفاق ملف لتفادي الاخطاء . تحياتي -- معذرة استاذ عباد شاهدت مشاركتك مؤخرا SPLT+.rar

جرب هذا الملف sttp ++.rar