استدعاء بيانات من فاتورة

[أبو عبد الله _]

السلام عليكم

اولا أود أن اشكر جميع القائمين على المنتدى على مجهودهم الرائع 

ثانيا قمت بمحاولة البحث لكن الاستدعاء والترحيل الموجود بشكل مختلف عما أريد ولذلك لان البيانات في اعمدة مختلفة 

ثالثا : قد يصادف البعض تعديل فاتورة ومن السهل العمل عليها لكن في المرفق الفاتورة يتم تجهيزها من شيت اخر باستخدام Vlockup  المطلوب كود يقوم باستدعاء الارقام الموجودة أمام كل صنف في الفاتورة ووضعه أما الاسم المختصر للصنف في شيت البيع .

ولكم وافر الشكر

 

قائمة المبيعات.xlsm

[بن علية حاجي]

السلام عليكم

محاولة في المرفق لكن ليس بكود بل بمعادلات استُعملت فيها الدوال VLOOKUP و INDEX... ملفك غير منظم.

قائمة المبيعات.xlsm

[أبو عبد الله _]

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

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

4 ساعات مضت, بن علية حاجي said:

ملفك غير منظم

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

ف الملف جزء من ملف أخر كبير فقط أرفقت مثال لما أريد وطبيعة العمل تستدعي عرض كامل الاصناف في شاشة واحدة ويتم كتابة الكمية المطلوبة للبيع بجوار كل منها ونطاق العمل هو B4:W35

 

أما اذا كان غير ذلك برجاء التوضيح وعمل التعديل المناسب من وجهة نظركم 

وشكراً

الأجزاء المظللة من الاعمدة يتم كتابة مختصر الصنف والأبيض يتم كتابة الكمية وتم التصميم بهذا الشكل كي يسهل عملية ادخال القيم دون الحاجة للتحرك لأعلى ولأسفل كثيرا داخل الملف ( صفحة كشاشة أجهزة الكاشير الموجودة في المراكز التجارية الكبيرة )

 

أرجو أن أكون وفقت في التوضيح

الشاشة تظهر أمام المستخدم بالشكل التالي مع وجود أزرار التنقل والطباعة

تم تعديل يناير 6, 2023 بواسطه أبو عبد الله _

[أبو عبد الله _]

السلام عليكم ياليت تحويل المعادلات إلى كود

[عبدالفتاح في بي اكسيل]

@أبو عبد الله _

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

الاسماء  التي  يتم  المطابقة  بين  الورقتين  حتى يتم  جلب  قيمها  غير  مطابقة !!  

كيف  سيفعل  الكود  ذلك ؟؟؟

قد يساعدك  احد  الاعضاء  .

تحياتي

[أبو عبد الله _]

الاستاذ عبد الفتاح 

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

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

وطبيعة العمل تتطلب تقسيم البيانات في اعمدة متجاروة وليست في عمود واحد 

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

[أبو عبد الله _]

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

 

Dim rng As Range
With Range("F2:F4" & Range("A4" & Rows.Count).End(3).Row)
    .Formula = "=IFERROR(VLOOKUP(""*""&RC[-1]&""*"",R2C1:R8C5,1,0),"""")"
    .Value = .Value
  End With
End Sub

 

الكود للاستاذ بن علية حاجي 

[محمد يوسف ابو يوسف]

تفضل

Sub Run()
'
Application.ScreenUpdating = False '
Application.DisplayAlerts = False
        Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28") = _
        "=IFERROR(VLOOKUP(INDEX(ÇáÇÕäÇÝ!R3C4:R1500C4,MATCH(RC[-1],ÇáÇÕäÇÝ!R3C3:R1500C3,0)),ÇáÝÇÊæÑÉ!R5C2:R1500C5,2,0),"""")"
    Range("C3:O35").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C4:C15,E4:E15,O4:O15,C17:C28,O4:O15,E17:E28").Select
    Application.CutCopyMode = False
    Range("A1").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

 

[أبو إيمان]

في 30‏/1‏/2023 at 10:55, أبو عبد الله _ said:

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

تفضل 

With Range("e4:e" & Range("d" & Rows.Count).End(3).Row)
.Formula = "=IFERROR(VLOOKUP(INDEX(ÃÕäÇÝ!R3C4:R1500C4,MATCH(RC[-1],ÃÕäÇÝ!R3C3:R1500C3,0)),'ÝÇÊæÑÉ ááÊÚÏíá'!R5C2:R1500C5,2,0),"""")"
    .Value = .Value
  End With

مع ملاحظة أنه لتطبيقها على باقي الخلايا يلزمك عمل حلقة تكرارية أو تكرار الكود على الاعمدة المراد العمل عليه 

[أبو عبد الله _]

كيف يمكن عمل هذه الحلقة