استدعاء بيانات فاتورة من ورقة عمل أخرى طبقاً لرقمها

[طارق_طلعت]

السادة الخبراء الأعزاء

 

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

 

رقم الفاتورة هو رقم مسلسل فى العمود D  فى صفحة "فواتير" و هو من رقم 1 الى رقم 20 فى الملف المرفق (كمثال)

المطلوب عند كتابة رقم الفاتورة فى صفحة "استدعاء فاتورة" فى الخلية A2 يتم نسخ الفاتورة المطلوبة بالكامل من صفحة "فواتير" الى صفحة "استدعاء فاتورة".

 

فكما فى المثل المرفق فالمطلوب استدعاء الفاتورة رقم 7 و قد قمت بتظليل النطاق المطلوب للفاتورة رقم 7 باللون الرمادى لتوضيح النطاق المطلوب

مع العلم ان طول الفواتير يختلف من فاتورة الى اخرى

 

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

كود استدعاء فاتورة.rar

[إبراهيم ابوليله]

اخى طارق انا شايف انك

مصعب الموضوع حبتين

يعنى ممكن الشيت يتهندل باسلوب

احسن من كده شويه

علشان تسهل على نفسك الحصول على المعلومه بسهوله

دا رأى

فى انتظار رؤيه الحلول من جابن الاعضاء

............................................................

لو عجباك فكره اعاده تظبيط الشيت

ممكن تشاهد الرابط الاتى

اهداء الى المنتدى--شرح كيفية عمل فاتوره على الاكسيل بدون فورم

تقبل تحياتى

[ياسر خليل أبو البراء]

الأخ الفاضل طارق طلعت

مشكور على ذكرك لاسمي ، واعلم أنني ما أنا إلا طالب علم ، واستفدت كثيراً من أساتذتي الكرام بالمنتدى ولا زلت أنهل من علمهم الغزير .. بارك الله لنا فيهم وحفظهم لنا

 

إليك الملف التالي عله يكون المطلوب إن شاء الله

لا تنسى وأكرر لا تنسى أن تحدد المشاركة التي أعجبتك كأفضل إجابة ليظهر الموضوع مجاب ومنتهي

إليك الكود :

Sub GrabBillData()
    Dim WS As Worksheet, SH As Worksheet
    Dim BillNo As Long, lRow As Long
    Set WS = Sheets("فاتورة"): Set SH = Sheets("استدعاء فاتورة")
    BillNo = SH.Range("A2").Value
    If IsEmpty(SH.Range("A2")) Then MsgBox "أدخل رقم الفاتورة المطلوب استدعائها": Exit Sub
    Application.ScreenUpdating = False
        On Error Resume Next
        SH.Range("A4:M1000").Clear
        lRow = Application.WorksheetFunction.Match(BillNo, WS.Columns("D:D"), 0) - 1
        With WS
            .Activate
            .Range("A" & lRow & ":M" & .Range("A" & lRow).End(xlDown).Row).Copy SH.Range("A4")
        End With
        SH.Activate
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Grab Bill Data YasserKhalil.rar

[إبراهيم ابوليله]

اخى واستاذنا ياسر

كود جميل طبعا

ومجهود كبير

تقبل تحياتى

[ياسر خليل أبو البراء]

حبيبي وأستاذي إبراهيم أبو ليلة

هذا بعض ما عندكم ..بارك الله لنا فيكم وزادكم علماً

ومشكور على مرورك الطيب بالموضوع

[محمد لطفى]

عال عال عال

[طارق_طلعت]

الاستاذ العظيم ياسر خليل

فعلا مهما شكرت حضرتك لن اوفيك حقك حيث انك اعطيتنى الكود المطلوب تماما

فشكرا جزيلا على مجهودك و وقتك بارك الله فيك وجعلك سندا لجميع الاعضاء

و جزيل الشكر ايضا للاستاذ ابراهيم ابو ليله

[ياسر خليل أبو البراء]

أخي الفاضل طارق

مشكور على كلماتك الرقيقة

يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب

تقبل تحياتي

[طارق_طلعت]

افضل اجابه اجابه الاستاذ ياسر خليل

مع الشكر للجميع

[ياسر خليل أبو البراء]

أخي الكريم طارق

يوجد أسفل كل مشاركة من المشاركات كلمة "تحديد كأفضل إجابة" يتم النقر عليها في المشاركة التي أعجبتك

كما يوجد كلمة "أعجبني" أيضاً .. عشان العضو اللي ساعدك ياخد نقطة ..

ومعلش إذا كنت مسبب لك إزعاج ..بس دي عملية تنظيمية ليظهر الموضوع منتهي ، ويلتفت الأخوة الكرام لموضوع آخر

تقبل تحياتي

[عادل ابوزيد]

الاستاذ الكبير الجميل ياسر خليل

لو بايدى كنت خبط على كل مشاركه لك افضل اجابة ولكن اعذرنى

ابداعاتك تتواصل ليتواصل علمنا

تقبل منى كل الحب والتقدير :fff:

[طارق_طلعت]

أخي الكريم طارق

يوجد أسفل كل مشاركة من المشاركات كلمة "تحديد كأفضل إجابة" يتم النقر عليها في المشاركة التي أعجبتك

كما يوجد كلمة "أعجبني" أيضاً .. عشان العضو اللي ساعدك ياخد نقطة ..

ومعلش إذا كنت مسبب لك إزعاج ..بس دي عملية تنظيمية ليظهر الموضوع منتهي ، ويلتفت الأخوة الكرام لموضوع آخر

تقبل تحياتي

تم المطلوب و شكرا جزيلا