اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by بن علية حاجي,

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

السلام عليكم

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

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

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

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

 

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

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

  • أفضل إجابة

السلام عليكم

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

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

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

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

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

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

ملفك غير منظم

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

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

 

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

وشكراً

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

 

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

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

image.png.9790ce5baf920c6e4350d381575e24e9.png

تم تعديل بواسطه أبو عبد الله _
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

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

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

تحياتي

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

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

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

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

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

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

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

  • 2 weeks later...

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

 

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

 

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

في 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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information