أبو العاصم

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

السلام عليكم ورحمة الله أخونا محمود بارك الله فيك أنا لم أطلب تعديل القائمة المنسدلة الفرعية وانما أردت إستبدالها بمعادلات تتغير بتغير الخلية الرئيسية فعند تغيرالخلية الى العملاء اريد فى النطاق الاصفر التى توضع فيه المعادلة ان يكتب العملاء عميل رقم 01011 وعميل رقم 01012 وعميل رقم 01013 وهكذا المرفق طلب مهم.rar

هل من مشمر للجواب مبتغ للثواب

إخوانى الأكارم رواد المنتدى المبارك بارك الله فيكم لدى فكرة عمل ميزان تحليلى وأرجو المساعدة فى دالة بحث لفرعيات تحت حساب رئيسى تجلب الفرعيات واحد تلو الأخر من خلال نطاق معين المرفق طلب مهم.rar

السلام عليكم ورحمة الله بارك الله فيك أخى وجزاك عنى خيرا بقى لى لإنهاء الملف السؤال عت أمرين الاول كيف أغير إسم الملف فى محرك الفيجوال من ورقة 1 2 3 أو sheet 1 2 3 فأنا لا أعرف ذلك الثانى معادلة البحث التى تكرمت ووضعتها لا تستجيب إلا بعد فتح الخلية ( عن طريق دابل كليك أو كتابة كلمة بداخلها والخروج بإنتر أو إسكيب أو النقر تحت ..) فهل من طريق لجعل الملف يستجيب لدالة البحث بمجرد عمل paste value فى خلايا الرمز أو هل هناك طريقة لعمل ما يقوم به زر f2 لكل خلايا العمود دفعة واحدة

أخى الحسامى بارك الله فيك على ما تقدمه لى الفلترة من الصف 12 وحتى الصف 7112 بناءا على القيمة الموجودة فى الخلية B10 رقم القيد أما معادلات الخلايا H7 , H8 ,H9 فهى للبحث عن بيانات القيد الذى أقوم بالفلترة عليه فييغير بيانات القيد بعد كل عملية فلترة للنطاق فأن لم نتمكن من ذلك نترك المعادلات وجزاك الله خيرا

جزاك الله خيرا هذا هو ولم أدقق انك جزاك الله خيرا نسخته داخل النطاق بارك الله فيك هل لى من طلب وانا اسف على الاطالة فى الخلايا h i j من الصف 7113 معادلات وكذلك h8 h9 هل من الممكن إستبدالها بالأكواد وهل ممكن ان تراجع لى كود الفلترة اللهم بارك لأخى عماد فى وقته وعمله

جزاك الله خيرا هذا هو ولم أدقق انك جزاك الله خيرا نسخته داخل النطاق بارك الله فيك هل لى من طلب وانا اسف على الاطالة فى الخلايا h i j من الصف 7113 معادلات وكذلك h8 h9 هل من الممكن إستبدالها بالأكواد وهل ممكن ان تراجع لى كود الفلترة اللهم بارك لأخى عماد فى وقته وعمله

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

بارك الله فيك وجزاك عنا خيرا

أخونا عماد بارك الله فيك وفى عملك ولو تكرمت أجبتنى على طلبى الموجود بالرابط http://www.officena.net/ib/index.php?showtopic=34079&st=0&gopid=178130&#entry178130 وأسف على الإلحاح

أستاذنا الحسامى عماد بارك الله فى وقتك وجهدك الذى تبذله لإفادة المشاركين

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

أخى الحسامى بارك الله فيك على سرعة إجابتك وتوضيح المطلوب وهو عبارة عن إستبدال المعادلات فى الخلايا K G F M N بوضعها داخل الفيجوال لتخفيف الملف أعدت إرفاق الملف وبه توضيح للمطلوب بارك الله فيك وجزاك الله خيرا إن لم تفهم الفكرة المطلوبة فماذا أفعل Main File 2.rar

الملف الذى وضعته لم أستطع تحميله http://www.officena.net/ib/index.php?showtopic=34058&st=0&gopid=178080&#entry178080

السلام عليكم ورحمة الله وبركاته إخوانى المباركين عامة وأخى الحسامى خاصة كنت قد قمت بعمل كشف حساب بالكود على الرابط http://www.officena.net/ib/index.php?showtopic=34007 فهل من الممكن تطبيقة على ملف به معادلات vlookup فى خلايا العمود K G F مرتبطة بالخلية الرمز الموجودة بالعمود E ومعادلات IF موجودة فى خلايا الأعمدة M N مرتبطة بالخلية L فهل من الممكن إستبدال المعادلات ووضعها فى الفيجوال بدلا من الخلايا والملف به كود أخر للفلترة التلقائية فهل هو صحيح بارك الله فيكم Main File.rar

لم أستطع تحميل الملف والمشاركة السابقة كانت لتقديم الشكر

أخى وحبيبى أحمد يعقوب بارك الله فيك وجزاك عنى خيرا والله لا أجد أوفى من الدعاء لك

قام أخى الكريم فى المنتدى المبارك بعمل هذا الكود ولكنى أريد التعديل على الكود ليشمل أعمدة لا تتأثر بالكود تظل ما بها من معادلات كما هو 1111.rar

أخى الحسامى عملك عين المطلوب لكن جزاك الله خيرا لو تفضلت علينا بشرح الكود الخاص بالفلترة جزاك الله خيرا Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("j12")) Is Nothing Then '------------------------- Application.ScreenUpdating = False ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=15 ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=16 ActiveSheet.Range("$A$15:$Q$52").AutoFilter Field:=17 Range("j16:q100").AutoFilter Field:=16, Criteria1:=Range("j12").Value End If If Not Intersect(Target, Range("j13")) Is Nothing Then '------------------------- Application.ScreenUpdating = False Range("j16:q100").AutoFilter Field:=15, Criteria1:=Range("j13").Value End If If Not Intersect(Target, Range("K14")) Is Nothing Then '------------------------- Application.ScreenUpdating = False Range("j16:q100").AutoFilter Field:=17, Criteria1:=Range("K14").Value End If End Sub

لإثراء الموضوع كيف أقوم بالجمع بدالة SUMIFS لمدى معين بين تاريخين مثلا بين 01-01-2010 و 31-12-2010 فكيف أكتبها فى المعادلة انا حاولت ولكن دون جدوى فقمت بعمل خلية مرجع تستخلص الشهر وقمت بالجمع بناءا عليها فهل من بديل

لإثراء الموضوع كيف أقوم بالجمع بدالة SUMIFS لمدى معين بين تاريخين مثلا بين 01-01-2010 و 31-12-2010 فكيف أكتبها فى المعادلة انا حاولت ولكن دون جدوى فقمت بعمل خلية مرجع تستخلص الشهر وقمت بالجمع بناءا عليها فهل من بديل

السلام عليكم ورحمة الله وبركاته إخوتى فى الله عندى الكود التالى وأود إضافة عنصران للتصفية الجزئية علية وأرفقت ملف به مثال للمطلوب وبه خلايا فارغة حتى اذا عجزت عن فهم الكود لصقته فى ملف العمل الخاص بى بدون متاعب بارك الله فيكم Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$j$12" Then Range("j16:q100").AutoFilter Field:=7, Criteria1:=Target.Value End If End Sub good.rar

بارك الله فيك اخى لقد قمت بعمل اللازم والبركة فى مجهودك وجزاك الله خيرا

الملف المرفق أرجو إصلاح الكود الذى به ومفتاح الإختصار العملاء.rar