اسعار متعدده

[الشيباني1]

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

اسعار متعدده.rar

[ابراهيم الحداد]

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

ارجو ان يكون هذا هو ماتقصده

اسعار متعدده.rar

[ياسر العربى]

بعد اذن اخي الغالي زيزو

لاثراء الموضوع

تفضل الحل بطريقة اخرى

اسعار متعدده.rar

[الشيباني1]

مع شكري وتقديري لجميع الاخوه الاعزاء ارجو من السيد ياسر ايضاح (3-) الموضحه في المعادله  مع احترامي

[الشيباني1]

اخواني الاعزاء هل يمكن الحل بكود مع الشكر

[ياسر العربى]

منذ ساعه, الشيباني1 said:

مع شكري وتقديري لجميع الاخوه الاعزاء ارجو من السيد ياسر ايضاح (3-) الموضحه في المعادله  مع احترامي

اخي الغالي

-3 هذه بالمعادلة lookup

لاظهار رقم العمود الموجود به التصنيف دا من الشيت عموما يعني ممكن يطلع مثلا العمود رقم 9 اللي هي pr4

طيب نشوف معادلتنا الvlookup فيها كام عمود وبدايتها منين هنلاقيها تبدأ من العمود رقم 4 وتحتوي على 6 اعمدة فقط

نحلها ازاي نشيل اول 3 اعمدة من الرقم اللي هيظهر اللي هو 9 هيبقي6

ودا اخر عمود في الدالة vlookup عشان كدا خصمت 3 من عدد الاعمدة

ياريت تكون وضحت الصورة

 

 

 

[خالد الرشيدى]

السلام عليكم

استاذى / زيزو العجوز  .. حل متميز ..جزاك الله خيراً

استاذى / ياسر العربى .. فكرة متميزة ..جزاك الله خيراً

اخى الكريم .. اليك احد طرق الحل بالاكواد

Private Sub Worksheet_Change(ByVal Target As Range)    
    If Not Intersect(Target, Range("L4:M4")) Is Nothing Then        
        Dim LR As Integer, cl As Range, c As Range, cll As Range
        LR = Cells(Rows.Count, 4).End(xlUp).Row
        Set cl = Range("B3:B" & LR).Find([L4])
        Range("O4") = Cells(cl.Row, 3)

        For Each c In Range("D3:D" & LR)
            If c = Range("M4") Then
                Set cll = Range("E2:I2").Find([O4])
                Range("Q4") = Cells(c.Row, cll.Column)
            End If
        Next
    End If
End Sub

اليك المرفق

اسعار متعدده.rar

[رجب جاويش]

سؤال بسيط

هل ايجاد السعر يعتمد فقط على اختيار نوع المادة من الخلية M4

أم أنه لابد أن يتوافق السعر مع الثلاثة اختيارات  ( الوكيل والمادة والتصنيف )

 

[الشيباني1]

استاذنا القدير التوافق بين الاختيارات الثلاثه ضروري لايجاد السعر مع الشكر

[رجب جاويش]

السلام عليكم

تفضل أخى

هذا حل عن طريق كود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R_N As Range
Dim cl As Range
Dim x As Integer
If Target.Address = [L4].Address Then
With Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Set R_N = .Find(What:=[L4], LookAt:=xlWhole)
[O4] = Cells(R_N.Row, 3)
End With
End If

If Target.Address = [L4].Address Or Target.Address = [M4].Address Then
[Q4] = ""
For Each cl In Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
If [L4] = cl And [M4] = cl.Offset(0, 2) Then
x = Application.WorksheetFunction.Match([O4], [E2:I2], 0) + 4
[Q4] = Cells(cl.Row, x)
End If
Next
End If
End Sub

 

اسعار متعدده.rar

[الشيباني1]

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

[خالد الرشيدى]

السلام عليكم

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

..يمكنك الاطلاع على الملف ..  !!!!!!!!!!!!!!!!!!!

 

 

[رجب جاويش]

أخى الفاضل

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

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

أما عند اختيار وكيل2 مثلا واختيار ماده غير مقابلة لها ( لا توجد معها فى نفس الصف ) مثل مادة3 مثلا

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

 

[ياسر خليل أبو البراء]

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

أعتقد أن هناك موضوعات إخواني الكرام وأبحبابي يكون فيها الحل بالمعادلات أسهل وأيسر من الأكواد .. والمعادلات المقدمة تفي بالغرض وزيادة وتؤدي المطلوب بشكل ممتاز

ألستم تشاركونني الرأي في ذلك؟

 

[رجب جاويش]

أما فى حالة البحث عن السعر المطابق للمادة فقط

فان الحلول السابقة والتى قدمها الأساتذه الفضلاء  فهى تفى بالغرض تماما

 

[خالد الرشيدى]

السلام عليكم

بالفعل استاذى / ابو البراء

مثل هذا الملف حلة بالمعادلات اسهل وايسر ..وما قدمت الكود الا بناء على طلبة .. مشاركة 5 ..

وبالتاكيد معادلات اساتذتى الكرام تفى بالمطلوب تماما

تقبلوا خالص احترامى وتقديرى

[الشيباني1]

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

ادامكم الرحمن اخوة اعزاء

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

[الشيباني1]

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

اسعار متعدده كود2.rar

[خالد الرشيدى]

السلام عليكم

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

تقبل تحياتى

[الشيباني1]

استاذنا القدير الموضوع شائك بعض الشيء ولكن ساوضحه قدر الامكان .

- انا وزعت المدخلات التي تضمنتها ( ورقة1) في الخلايا (L4:o4) على خلايا اخرى في ( ورقة2) لمتطلبات العمل حيث حلت الخليه (E6) محل (L4) و (C1) محل (O4) و الخلايا من (D10:D31) محل الخليه(M4) لتظهر الاسعار ضمن المدى (N10:N31) حسبما يتم تثبيته من مواد .

- حاولت اجراء تعديلات على الكود لكن لم افلح .

شاكرا كل جهد طيب  مع التقدير

[خالد الرشيدى]

السلام عليكم

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

اسعار متعدده كود2_2.rar

[الشيباني1]

اخي العزيز مع شكري وتقديري الاسعار لا تتغبر بتغير الرمز في (C1) والذي يمثل نفاصيل اسعار الوكيل للماده المحدده حسب الجدول 

[خالد الرشيدى]

السلام عليكم

الاخ الكريم / الشيبانى .. الاسعار بالملف المرسل من قبلى تتغير بتغير رمز C1

ولو كنت قد قمت بنقل الكود الى ملف اخر لابد من مراعاة الاتى:=

-الكود فى حدث التغير فى sheet2 وليس sheet1

- لابد من الغاء دمج الاعمدة ( عمود  D - E ) الذى يحوى اسماء المواد لان الدمج يبطل عممل الكود

تقبل تحياتى

[الشيباني1]

اشكرك جدا اخي العزيز وادامك الرحمن لنا مرجعا