ابوعبدالواجد قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 السلام عليكم : حياكم الله بفضل الله تعالى وثم هذا المنتدى - لا يبقى سوى خطوتين او ثلاث ويكمل المطلوب - جزيتم خيرا المطلوب : (كود) اعطاء رمز لكل مادة اعتمادا على شيت قائمة حساب الفواتير واعطاء السعر الأخير للمادة (دولار) الله يرضى عليكم اعطاء رمز للمادة واعتماد السعر الاخير للمادة.rar رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 السلام عليكم اخي الكريم المطلوب غير واضح.. ما المقصود بإعطاء رمز لكل ماده.. هل تقصد بكتابه الرمز تظهر الماده؟؟؟؟... واي سعر باي عمود يعد السعر الاخير للماده.. ايضا لاحظت ان الاسعار بالدينار العراقي وليس الدولار..؟؟؟؟ يرجي مزيد من التوضيح 1 رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مايو 14, 2017 الكاتب مشاركة قام بنشر مايو 14, 2017 السلام عليكم - جزيت خير على الاهتمام والرد السريع - صحيح نسيت ان اذكر أي سعر - اعطاء رمز لكل مادة بدون تكرار استنادا الى شيت قائمة حساب الفواتير - السعر هو : الموجود في شيت قائمة حساب الفواتير خانة D ( سعر الشراء) الله يرضى عليك استاذ رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 اخي الكريم ارجو التوضيح التفصيلى لكي يكون الحل من مره واحده ... لازلت لا افهم ما المقصود بإعطاء رمز لكل ماده .. ايضاً بالنسبة للسعر هل عندما تكتب اسم الماده يظهر السعر ؟؟؟؟ .. ام انك تقصد كود يقوم بعمل تصفيه؟؟؟؟؟؟؟؟ .. يرجي التوضيح التفصيلي .. او ان تضع شكل النتائج المتوقعه لفهم المطلوب تقبل تحياتي 1 رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مايو 14, 2017 الكاتب مشاركة قام بنشر مايو 14, 2017 السلام عليكم - اسف إن اخذت من وقتكم لعدم ايصالي طلبي بشكل مفصل استاذي - ارف ملف يوضح ما مطلوب جزيت خيرا اعطاء رمز للمادة واعتماد السعر الاخير للمادة123.rar رابط هذا التعليق شارك More sharing options...
خالد الرشيدى قام بنشر مايو 14, 2017 مشاركة قام بنشر مايو 14, 2017 (معدل) السلام عليكم اخى الكريم يمكنك ان تستخدم الكود التالي كأحد طرق الحل .. علة المطلوب تماماً 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 بواسطه خالد الرشيدى 1 رابط هذا التعليق شارك More sharing options...
ابوعبدالواجد قام بنشر مايو 14, 2017 الكاتب مشاركة قام بنشر مايو 14, 2017 السلام عليكم - جزيت خيرا - العمل ممتاز الله يرضى عليك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.