اذهب الي المحتوي
أوفيسنا

اسعار متعدده


الردود الموصى بها

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

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

اخي الغالي

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

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

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

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

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

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

 

 

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

سؤال بسيط

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

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

 

رابط هذا التعليق
شارك

السلام عليكم

تفضل أخى

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

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

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

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

 

 

رابط هذا التعليق
شارك

أخى الفاضل

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

 

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تقبل تحياتى

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information