نور جعفر

نسال الله سبحانه وتعالى ان يغفر له ويثبته ويرزقه الجنة

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

تقبل الله منك وأدامك على طاعته

عمرة مقبولة بإذن الله

انا لله وإنا اليه راجعون

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

انا لله وإنا اليه راجعون

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

شغل رائع وحل الاخ نور صحيح لكن لاحظ انه فى السطر الثالث نفس الخلية ستساوى TEXTBOX5

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

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

3-1.rar

تفضل المرفق

ActiveCell.Offset(0, 0).Value = ComboBox1

ActiveCell.Offset(0, 3).Value = ComboBox1

3-1.rar

جزاك الله كل خير اخي نادر

و انته كده ماشي 100×100

و ان شاء الله قريبا نشوف لك دوال رائعة

استاذى احمد زمان شهادة اعتز بها

أخى الفاضل / نادر

وفقكم الله على الطريق المنير

تقبل تحياتى

استاذى العزيز دغيدى تحياتى لك

اخى نادر

مجهود ممتاز

الحسامى من الناس المميزين اسال الله ان يصلح له ولك دنياك

اللهم امين

سعد عابد

استاذى العزيز سعد عابد تحياتى لك

والفضل فى تعلم اكسيل يعود لله تعالى ثم هذا المنتدى العظيم بابنائه فمنذ دخولى المنتدى والحمد لله استطعت ان اتعامل مع اكسيل بسهولة ويسر فى اعمالى بفضل الشروحات المميزة من اساتذة المنتدى الكرام .

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

تحياتى للجميع

اخوانى الاعزاء

لقد استفدت من دوال استاذى العزيز حسامى فى الموضوع

دوال مستحدثة جديدة ( دوال البحث VLOOKUP متنوعة)

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

شكرى لجميع اعضاء ومشرفى المنتدى الكرام

VLOOKUPFOUR&FIVE.rar

السلام عليكم

جرب المرفق

وهل هذا ماتريده

وبالنسبة لاستعراض الجدول

ربما عرض بيانات الجدول في الليست تقوم مقامه

ولاكن الرأي رأيك

انتظر ردك

تحياتي

استاذى العزيز ابو نصار

حل مميز من استاذ اكثر تميز

لقد قمت بالتعديل على الفورم والاكواد لاضافة المعدل للفورم والتعديل عليه بالاضافة الى انه عند تغيير الاختيار من الكمبوبوكس يتم مسح محتويات التكست بوكس1 والليست بوكس وهى تعمل معى وكنت اتمنى منك ان تراجع الفورم والاكواد بعد تعديلى عليها وارشادى الى اى ملاحظات تراها على تعديلاتى

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

تحياتى لك ولكل اعضاء المنتدى الكرام

مرفق الملف بعد التعديل

ALIDROOS_JC_3.rar

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

استاذى العزيز ابو نصار

فورم ممتاز واتمنى ان يتسع صدرك لى

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

تحياتى لك ولكل اعضاء المنتدى الكرام

السلام عليكم و رحمة الله وبركاته

بعيدا عن الفورم

ومن ورقة الإكسل

اختار اسم الكنة

اختار رقم العملية

تظهر البيانات

من هنا اذا اعجبتك الفكرة

ممكن

نضيف كود للتعديل على البيانات التي تظهر

اعطيني خبر

نكمل او لازم فورم

مع التحية

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

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

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

فورم بحث وتعديل1.rar

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

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

فورم بحث وتعديل.rar

_{مرفق ملف اكسيل بسيط لمعرفة الارقام المقابلة لكل لون قمت بتنزيله من احدى المواقع الاجنبية ارجو ان يكون مفيد}

excel-color-index-and-palette.rar

فكرة اكثر من ممتازة وذلك لندرة وجود كتب عربية لمن يريد تعلم VBA ووجود مجموعة كبيرة بالمنتدى من النجوم الساطعة فى سماء شروحات VBA فى العالم العربى والدورة ستكون تطبيقا لفكرة لا تعطنى سمكة ولكن علمنى كيف اصطاد واقترح :

• ان يكون هناك تدرج فى الشرح بدءً من اساسيات التعامل مع VBA وحتى مستوى الاحتراف.
  
• ان يتم ارفاق الشرح الخاص لكل درس فى ملف وورد وذلك لسهولة الطباعة.
  
• ان يكون فى نهاية الدرس اهم المصطلحات المستخدمة فى الشرح.
  
• ان يكون فى نهاية كل درس سؤال كتدريب عملى على الدرس.
  

وفى النهاية اتمنى ان التوفيق للجميع مع شكرى لهذا المنتدى العظيم

السلام عليكم و رحمة الله في الخلية c8 جرب المعادلة التالية :

 =LOOKUP(2,1/((انتاج[كود الماكينة]=تقرير!C3)*(انتاج[رقم العملية]=تقرير!C5)),انتاج[التاريخ]) 

و في الخلية c9 ضع المعادلة التالية :

 =LOOKUP(2,1/((انتاج[التاريخ]=تقرير!C8)*(انتاج[كود الماكينة]=تقرير!C3)*(انتاج[رقم العملية]=تقرير!C5)),انتاج[كمية الانتاج]) 

استاذى العزيز يحيى

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

السلام عليكم أخي الكريم مرفق الملف وبه ماطلبت (لم أفهم جيدا موضوع الكود المركب) ستجد المطلوب بطريقتين الأحمر يعتمد علي كود العملية وكود الماكينة والأزرق يعتمد فقط علي كود الماكينة إختر مايناسبك لي ملاحظة يمكنك أن تضع المعادلة التالية بالخلية C6 بالورقة "تقرير"

=VLOOKUP(C5,INDIRECT(REPLACE(C4,SEARCH(" ",C4),1,"")),2,0)

بدلا من تلك الطويلة

 =IF(C3=1,VLOOKUP(C5,ايماس67[#Data],2,0),IF(C3=2,VLOOKUP(C5,ايماس68[#Data],2,0),IF(C3=3,VLOOKUP(C5,ميكرون28[#Data],2,0),IF(C3=4,VLOOKUP(C5,ميكرون_طلمبات[#Data],2,0),IF(C3=5,VLOOKUP(C5,OTB[#Data],2,0),IF(C3=6,VLOOKUP(C5,اكلاشيه_قديم[#Data],2,0),IF(C3=7,VLOOKUP(C5,اكلاشيه_جديد[#Data],2,0),IF(C3=8,VLOOKUP(C5,بروتش_الى[#Data],2,0),IF(C3=9,VLOOKUP(C5,بروتش_يدوى[#Data],2,0),IF(C3=10,VLOOKUP(C5,مجرى_جديدة1[#Data],2,0),IF(C3=11,VLOOKUP(C5,مجرى_جديدة2[#Data],2,0),IF(C3=12,VLOOKUP(C5,مجرى_قديمة[#Data],2,0),IF(C3=13,VLOOKUP(C5,تسنين_قديم[#Data],2,0),0))))))))))))) 

بشرط (1) تغيير إلغاء علامة "_" من كل أسماء المجالات التي وضعتها بها مثلا "ميكرون_طلمبات" يكون "ميكرونطلمبات" تركتها لك في الخلية E6 للعلم فقط وستجدها مضبوطة طالما أن أسماء المجالات تساوي نفس أسماء الماكينات بعد حذف المسافات منها مثال كود الماكينة 1 ، 2 ، 3 أو بشرط (2) تغيير وضع علامة "_" لكل أسماء المجالات التي وضعتها بها مثلا "ايماس 67" يكون "ايماس_67" ووقتها تستخدم المعادلة التي بالخلية E7 وطبعا لأن اسماء المجالات ليست ثابتة العلاقة مع أسماء الماكينات ، فستجد أحد الخليتين يعطي ناتج مضبوط والأخري تعطي خطأ حسب الحالة

الف شكر استاذى العزيز هذا هو المطلوب

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

فى انتظار الحل من عباقرة المنتدى

اسف مرفق الملف بعد التعديل

استخراج اخر تاريخ باكثر من شرط2.rar

السلام عليكم

لقد حاولت ان اطبق بعض ما تعلمته فى هذا المنتدى العظيم وقمت بعمل الاتى لعل ذلك يساعد فى ايجاد حل ابسط للمطلوب

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

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

السلام عليكم

هنا محاولة باستخدام كود تلقائي

استخراج اخر تاريخ باكثر من شرط.rar

استاذى العزيز حسامى

الف شكر على تجاوبك

ولكن الملف الاصلى تم تنفيذه عن طريق اكسيل 2007 وعند تحويله الى 2003 يفقد اغلب المعادلات الموجودة به

ارجو مراجعة الملف المرفق من قبل سيادتكم

مع وافر شكرى للجميع

السلام عليكم

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

تم تعديل موضع عمود التاريخ ورقم الماكينة لتتناسب وعمل الدالة

شاهد المرفق

الف شكر استاذى العزيز على تجاوبك

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

السلام عليكم

=======

اعطى مثالا لما تريد وهل يمكن تكرار كود الماكينة

السلام عليكم

استاذى العزيز شكرا لسرعة ردك

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

مطلوب معادلة او كود لاستخراج اخر تاريخ باكثر من شرط

مرفق ملف

استخراج اخر تاريخ باكثر من شرط.rar