طلب من عباقرة الاكسل فى المنتدى

[seao]

اخوانى فى منتدى اوفسينا الاكثر من رائع

 

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

 

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

 

 

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

 

لذا اطلب من اخوانى الكرام فى المنتدى مساعدتى فى هذا الموضوع

 

كروكى المخزن 5 ب.rar

[جمال عبد السميع]

أنظر أخى للمرفق لعله المطلوب

كروكى المخزن 5 ب.rar

[ضاحي الغريب]

أخي فارس المعادلات / محمود لي - العزيز

كل مشاركة من مشاركتك اتعلم شيئا جديداً

بارك الله فيك

حلك رائع فعلا 

وربط البلوكات جميلة ورائعة

تسلم ايديك 

[جمال عبد السميع]

أخى الحبيب ( ضاحى الغريب ) شكرا على مرورك الكريم وكلماتك الرائعة بارك الله فيك وجزاك الله عنى خير الجزاء

[seao]

جزاك الله خيرا اخى الكريم على المجهود المخلص

 

ولكنى اريد طلبا اخر وهو الاهم  ....

 

هو اننى اريد ان اعرف ان يوجد صنف ( كود ) معين بالنسبة لمكانه على الكروكى الوضح بحيث يتلون البلوك بنفس اللون الموجود فى الجدول حيث يصبح بالنسبى لى الذهاب الى هذا البلوك واحضار الصنف بسرعة

 

ولكم جزيل الشكر مقدما على تعبكم معى

[طارق محمود]

ألسلام عليكم

بعد إذن أخونا عبقري المعادلات / محمود

 

أخي الكريم

بالكود إذا أشرت بالماوس إلي أي كود صنف في المجال من D7 إلي D214

فسيتلون كلا من كود الصنف والبلوك المقابل باللون الأحمر أوتوماتيكيا

 

ستجد بالمرفق الكود التالي في حدث الورقة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 4 Or Target.Row < 7 Or Target.Row > 214 Then Exit Sub
x = Target.Offset(0, 1).Value
[D7:D214].Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
[I4:O24].Interior.ColorIndex = xlNone

For Each ce In Range("I4:O24")
    If ce.Value = x Then ce.Interior.ColorIndex = 3
Next
End Sub 

 

تفضل المرفق

كروكى المخزن 5 ب_T.rar

[حمادة عمر]

السلام عليكم

الاساتذة الكبار

بالفعل هذا الصرح العملاق رااائع بكم

وبمساعدتكم الدائمة للجميع

اكواد ومعادلات اروع من الروعة

 

ولقد اعجبت جدا جدا جدا بكود الاستاذ القدير / طارق محمود

جزاكم الله خيرا

[seao]

الف شكر على المجهود الرائع

 

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

 

 

وهو وجود صنف واحد مكرر فى اكتر من بلوك

المطلوب

 

الاستعلام ( الفلترة )  عن عدد معين من الاصناف مرة واحدة وفى نفس الشاشة

 

بحيث يضيئوا جميعا فى الشاشة مرة واحدة ( اى جميع الاصناف المستعلم عنها " المفلتر عليها " ) تظهر مضيئة على الشاشة 

[طارق محمود]

السلام عليكم

أخي العزيز

غير الكود السابق بالتالي

 

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 4 Or Target.Row < 7 Or Target.Row > 214 Then Exit Sub

[D7:D214].Interior.ColorIndex = xlNone
[I4:O24].Interior.ColorIndex = xlNone

For Each i_cl In Target
    i_cl.Interior.ColorIndex = 3
    x = i_cl.Offset(0, 1).Value
    For Each ce In Range("I4:O24")
        If ce.Value = x Then ce.Interior.ColorIndex = 3
    Next
Next
End Sub 

 

ثم بإختيار أكثر من (كود صنف) مع الضغط علي زر الكنترول Ctrl

ستجد ماتريد

[seao]

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