اعطاء رمز لأسم المادة واعتماد السعر الاخير لها

[ابوعبدالواجد]

السلام عليكم : حياكم الله

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

المطلوب : (كود)  اعطاء رمز لكل مادة اعتمادا على شيت قائمة حساب الفواتير

واعطاء السعر الأخير للمادة (دولار)

الله يرضى عليكم

اعطاء رمز للمادة واعتماد السعر الاخير للمادة.rar

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

السلام عليكم

اخي الكريم المطلوب غير واضح.. ما المقصود بإعطاء رمز لكل ماده.. هل تقصد بكتابه الرمز تظهر الماده؟؟؟؟... 

واي سعر باي عمود يعد السعر الاخير للماده..  ايضا لاحظت ان الاسعار بالدينار العراقي وليس الدولار..؟؟؟؟ 

يرجي مزيد من التوضيح

[ابوعبدالواجد]

السلام عليكم - جزيت خير على الاهتمام والرد السريع - صحيح نسيت ان اذكر أي سعر 

 

- اعطاء رمز لكل مادة بدون تكرار استنادا الى شيت قائمة حساب الفواتير  -   السعر  هو : الموجود في شيت قائمة حساب الفواتير خانة D ( سعر الشراء)

 

الله يرضى عليك استاذ

 

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

اخي الكريم

ارجو التوضيح التفصيلى لكي يكون الحل من مره واحده ... لازلت لا افهم ما المقصود بإعطاء رمز لكل ماده .. ايضاً بالنسبة للسعر هل عندما تكتب اسم الماده يظهر السعر ؟؟؟؟ .. ام انك تقصد كود يقوم بعمل تصفيه؟؟؟؟؟؟؟؟ .. يرجي التوضيح التفصيلي .. او ان تضع شكل النتائج المتوقعه لفهم المطلوب 

تقبل تحياتي 

[ابوعبدالواجد]

السلام عليكم - اسف إن اخذت من وقتكم لعدم ايصالي طلبي بشكل مفصل

استاذي - ارف ملف يوضح ما مطلوب

جزيت خيرا

اعطاء رمز للمادة واعتماد السعر الاخير للمادة123.rar

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

السلام عليكم

اخى الكريم يمكنك ان تستخدم الكود  التالي كأحد طرق الحل  .. علة المطلوب تماماً 

Option Explicit
Sub GetUniques()

    Dim d As Object, c As Variant, i As Long, lr As Long
    Set d = CreateObject("Scripting.Dictionary")
    lr = ورقة3.Cells(Rows.Count, 2).End(xlUp).Row
    c = ورقة3.Range("b2:b" & lr)

    For i = 1 To UBound(c, 1)
           d(c(i, 1)) = 1
    Next i
    ورقة9.Range("B2").Resize(d.Count) = Application.Transpose(d.keys)
    
    With ورقة9.Range("C2:C" & d.Count + 1)
        .FormulaR1C1 = "=LOOKUP(2,1/('قائمة حساب الفواتير'!R2C2:R10000C2=RC[-1]),'قائمة حساب الفواتير'!R2C4:R10000C4)"
        .Value = .Value
    End With
    
End Sub

 

اعطاء رمز للمادة واعتماد السعر الاخير للمادة123_2.rar

تم تعديل مايو 14, 2017 بواسطه خالد الرشيدى

[ابوعبدالواجد]

السلام عليكم - جزيت خيرا - العمل ممتاز 

الله يرضى عليك