عبدالله المجرب

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

السلام عليكم بعد اذن البشمهندس طارق ضع هذا الكود في حدث ورقة العمل وبعد الادخال تحرك بالاسهم Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A4:A53]) Is Nothing Then Target.Offset(0, 3).Select End If If Not Intersect(Target, [D4:D53]) Is Nothing Then Target.Offset(1, -3).Select End If End Sub

اذا كان هذا طلبك فيجب ان يكون التعديل خيار ضمن فورم الترحيل والاستدعاء

السلام عليكم تفضل التعديل حسب ما تريد كما تم تنسيق الفورم فاتورة 7.rar

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

ياريت يتم شرح تكوين جمل sql

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

كرم الله وجهه شكراً لك اخي احمد

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

بارك الله فيك استاذنا الفاضل

تفضل المرفق Listbox.rar

هل جربت تثبيت المدى باستخدام علامة $

فكرة جميلة وتنفيذ اجمل بارك الله فيك اخي رجب

تفضل المرفق تم عمل الطلبين تامينا ت2012 (1).rar

ما شاء الله تبارك الله زادك الله من علمه ونفع بك ابو احمد

السلام عليكم == نرجو في المستقبل وضع بيان للمطلوب في الطلب == تفضل المرفق Book1 (2).rar

تفضل Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [D7:D1000,F7:F1000]) Is Nothing Then Cells(Target.Row, 8).FormulaR1C1 = "=IF(RC[-2]="""","""",VLOOKUP(RC[-2],prices,2,0))" Cells(Target.Row, 9).FormulaR1C1 = "=IF(RC[-3]="""","""",RC[-2]*RC[-1])" Cells(Target.Row, 10).FormulaR1C1 = "=IF(COUNTIF(RC[-7]:R5C[-7],RC[-7])=1,SUMIF(C[-7],RC[-7],C[-1]),"""")" Cells(Target.Row, 11).FormulaR1C1 = "=IF(RC[-5]="""","""",VLOOKUP(RC[-5],prices,3,0))" Cells(Target.Row, 12).FormulaR1C1 = "=IF(RC[-6]="""","""",RC[-5]*(RC[-4]-RC[-1]))" For i = 8 To 12 Cells(Target.Row, i).Value = Cells(Target.Row, i) Next End If End Sub

لما لا تستخدم التصفية المتقدمة

اولاً اهلاً بك بيننا ثانياً نرجو الالتزام بقواعد المشاركة === ضع هذه المعادلة في الخلية i3 ثم اسحب للاسفل =IF(C3<50;C$1;"")&" " &IF(D3<50;D$1;"")&" "&IF(E3<50;E$1;"")&" "&IF(F3<50;F$1;"")&" "&IF(G3<50;G$1;"")&" "&IF(H3<50;H$1;"")

اخي الفاضل بعد فك الضغط عن الملف اضغط شفت وابقى ضاغط عليه وافتح الملف وسيتم فتح الملف بحيث تستطيع التعديل عليه

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

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

السلام عليكم راجع الشروح هنا الدروس الاولى http://www.officena.net/ib/index.php?showtopic=39323

اولاً : نرجو في المستقبل وضع وصف للطلب ===== اليك هذا الرابط

وانا كذلك اقتبس كلام ابا ادم