الشيباني1

استاذنا العزيز مع تقديري هذه الطريقه واضحه في ردكم السابق ادامكم الرحمن لنا منقذا

الاخ محمد رسلان تحية طيبه ارجو المساعده بطريقة عمل البحث الظاهر في ورقة ( تحليل العملاء )( الخليه A2 ) كونه يخدمني في برنامجي الذي اعمل عليه مع تقديري

اخواني الاعزاء تحية طيبه هل بالامكان تحويل النسخه الى 2003 مع الامتنان

الاستاذ طارق المحترم تحية طيبه هل يمكن اجراء تعديل على المعادلات كي لا تظهر ( #N/A) مع الامتنان

الاستاذ طارق المحترم تحية طيبه مع شكري وتقديري لردكم الكريم كيف يمكن ازاحة ( #N/A ) عن الطريق مع الامتنان

اخي العزيز حل رائع جزاك الرحمن كل خير

اخواني الاعزاء تحية طيبه ارجو المساعده فيما جاء بالمرفق مع الامتنان Book1.zip

اخواني الاعزاء تحية طيبه في ادناه كود لاحد عمالقة المنتدى (لحماية مديات مختلفه ) اتساءل عن امكانية اجراء تعديل عليه ليعمل بزر ويلغى بزر آخر مع الامتنان علما ان المسج بوكس تقرأ ( الرصيد محمي ) . Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Me.[T1] Then Exit Sub If Not Application.Intersect(Target, Range("k5:n100,C1:U1,p5:p100,aa5:aa100,ah2,ak2")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "ÇáÑÕíÏ ãÍãí " End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Dim Rng As Range Static cell As Range Static TheFormula As String Set Rng = Range("k5:n100,C1:U1,p5:p100,aa5:aa100,ah2,ak2") If Not Application.Intersect(Target, Rng) Is Nothing Then If Not cell Is Nothing Then cell.Formula = TheFormula End If Set cell = ActiveCell With cell TheFormula = .Formula .Value = .Value End With Else With cell .Formula = TheFormula End With End If End Sub

اخواني الاعزاء تحية طيبه لا زلت منتظرا لأني لن يخيب باذن الله ظني

اخواني الاعزاء تحية طيبه ارجو المساعده فيما جاء بالمرفق للحاجة الماسة مع الامتنان اختيار الاسم بالحرف.zip

استاذنا العزيز اشكرك جدا على هذا الكود الرائع ادامك الرحمن لنا منقذا

استاذنا العزيز تحية طيبه مع جزيل شكري وتقديري لما تقدمون من اسعاف وانقاذ ارجو النظر في موضوع امتناع بعض الاسماء من الظهور ضمن قائمة الفرز للمواد حيث ان الوكيل (محمد 3 )مثلا لم يسحب من (الماده6 )ولكنها لم تظهر في الجدول المفرز اضافة الى بعض الوكلاء الآخرين الذين تمت تجربتهم. اتمنى ان يكون السبب بسيطا بأذن الله فالموضوع رائع بكوده ومفيد جدا لي في عملي مع الامتنان

استاذنا العزيز مع تقديري لاهتمامكم ارفق المف بعد توضيح ما مطلوب مع الامتنان Book12.zip

استاذنا العزيز الملف الصحيح مع الاعتذار Book11.zip

اعتذر اخي العزيز عن خطأ غير مقصود بارفاق ملف بعيد عن الموضوع وسأرفق الملف الصحيح غدا بأذن الله تحياتي

اخواني الاعزاء تحية طيبه ارجو المساعده فيما جاء بالمرفق من حيث وضع معادله او كود لتثبيت المواد المجهزه وغير المجهزه لكل وكيل ومن ثم اظهار نتائج ذلك ضمن قائمه منسدله مع الامتنان

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

استاذنا العزيز مع تقديري لما بذلتم من جهد لايصال المعلومه ما استخدمه اكسل 2003 هل تتغير الطريقه مع الامتنان

استاذنا العزيز مع جزيل شكري وتقديري اتساءل عن امكانية وضع شرح مبسط لكيفية عمل الزر ليعمل في ملفي الرئيسي مع الامتنان

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

اخواني الاعزاء تحية طيبه في المرفق كود رائع لحماية مديات مختلفه هل بالامكان عمل كود مع زر لالغاء الحمايه عند الحاجه ثم اعادتها بزر آخر مع الامتنان كود لحماية أكثر من نطاق بدون حماية الورقة.zip

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

اخواني الاعزاء تحية طيبه ارجو المساعده بكود يقوم بنقل محتويات سطر من المعادلات الى السطر التالي بعد الانتهاء من ادخال كامل البيانات مع الامتنان Book1.zip

أستاذنا الكبير اشكرك وادامك الرحمن لنا منقذا

اخواني الاعزاء تحية طيبه الحاجة ملحة لحل من اساتذتنا الكرام لترحيل الارصده السالبه والارصده المصفره من جدول الى آخر مع الامتنان Book1.zip