المساعدة فى ترحيل الفواتير

[الحســـام]

بسم الله الرحمن الرحيم

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

اتمنى من اساتذتنا فى الموقع مساعدتى فى ترحيل الفاتورة لورقة قاعدة البيانات او ما ترونه صحيحا لانى حاولت كثير ولا اعرف كثير عن VBA

ولكم جزيل الشكر مقدما

Data.rar

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

الاخ الكريم الحسام

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

Sub TarhilClientData()
    Dim LR As Long
    Dim sDate As Long, sClient As Long
    LR = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    sDate = Application.WorksheetFunction.Match(Sheet3.Range("C5"), Sheet2.Range("A1:A" & LR), 0)
    sClient = Application.WorksheetFunction.Match(Sheet3.Range("C7"), Sheet2.Rows(1), 0)
    
    Application.ScreenUpdating = False
        Sheet3.Range("B10:B13").Copy
        Sheet2.Cells(sDate, sClient).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

Tarhil Invoice To DataBase Based On Match Function.rar

[الحســـام]

استاذ ياسر والله يعجز لسانى عن الشكر

جزاك الله الجنه

ممكن تعديل بسيط وهو ترحيل الاعداد (الكمية اليومية - الاضافة - والخصم - المستلم ) وليس المبلغ

وتفعيل التقرير فى الورقة Report

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

تفضل الكود بعد التعديل المطلوب

Sub TarhilClientData()
    Dim LR As Long
    Dim sDate As Long, sClient As Long
    LR = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    sDate = Application.WorksheetFunction.Match(Sheet3.Range("C5"), Sheet2.Range("A1:A" & LR), 0)
    sClient = Application.WorksheetFunction.Match(Sheet3.Range("C7"), Sheet2.Rows(1), 0)
    
    Application.ScreenUpdating = False
        Sheet3.Range("C10:C13").Copy
        Sheet2.Cells(sDate, sClient).PasteSpecial xlPasteValues
        Sheet2.Activate
        Sheet2.Cells(sDate, sClient).Select
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

[الحســـام]

شكرا استاذ ابو البراء تعبتك معايا

 

طيب والنسبه للتقرير .... ؟؟

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

مش فاهم ..يعني ايه بالنسبة للتقرير !!؟؟ وضح المطلوب بمزيد من الكلمات ..

أنا لا أفقه شيء في شغلك ..!! أنا بعيد كل البعد عن تلك المصطلحات .. اعذرني لقلة علمي بهذا الأمر ..

كلمني كأنك بتكلم واحد جاااااااااهل ..أيوا والله زي ما بقولك كدا ..كلمني بلغة الإكسيل ...

ايه المطلوب ؟

تم تعديل مارس 27, 2015 بواسطه YasserKhalil

[الحســـام]

استاذ ياسر انت استاذنا كلنا وبنتعلم منك ازاى تقول كدا !!!!!

 

 

التقرير اللى فى الورقة Report بيجى مثلا العميل رقم 1 بيطلب كشف بالمسحوبات من الفترة .... الى الفترة ....

 

بنختار اسم العميل والتاريخين  وبالتالى  يظهر كل اللى اخده العميل بين التاريخين زى كشف حساب بس كميات مش مبالغ من خلال الفواتير اللى رحلناها لقاعدة البيانات

[الحســـام]

استاذ ياسر انت استاذنا كلنا وبنتعلم منك ازاى تقول كدا !!!!!

 

 

التقرير اللى فى الورقة Report بيجى مثلا العميل رقم 1 بيطلب كشف بالمسحوبات من الفترة .... الى الفترة ....

 

بنختار اسم العميل والتاريخين  وبالتالى  يظهر كل اللى اخده العميل بين التاريخين زى كشف حساب بس كميات مش مبالغ من خلال الفواتير اللى رحلناها لقاعدة البيانات

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

الأخ الفاضل الحسام

أعتقد أن هذا الطلب كان يجب أن يكون في موضوع منفصل .. لاختلاف الطلب عن عنوان الموضوع ...

عموما يرجى من الأخوة المشرفين تغيير عنوان الموضوع ليشمل الطلب الثاني (وهو إعداد تقرير بيانات بين تاريخين) على سبيل المثال ..

تفضل جرب الملف المرفق وإن شاء الله يكون المطلوب (ومتنساش لأني تعبت تحدد المشاركة اللي نالت إعجابك كأفضل إجابة بعد إذنك)

 

Report Data Between Two Dates.rar

[الحســـام]

استاذ ياسر جزاك الله كل خير وان شاء الله هو المطلوب من غير ما اشوف لانى فاتح دلوقت  من جهاز مفيهوش اوفيس 2010

ان شاء الله اول ما اروح البيت اشتغل علي الملف

وبالنسبه للتقرير بين تاريخين ماهو كلو في ملف واحد

عموما  اشكرك كل الشكر استاذ ياسر مره ثانية

وانا بتابع دروسك دايما وبحاول افهم

وعلى فكرا ياريت الصوت يبقى عالى شوى في الفيديو لانى بعلى السماعات على الاخر وجميع مستويات الصوت وبيكون برضو الصوت منخفض

كل سنة وانت طيب استاذ ياسر

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

الأخ الحبيب الحسام ..

الحمد لله أن تم المطلوب إن شاء الله على خير ...

 

 

إنت لاحظت رقم المشاركة اللي إنت عاملها أفضل إجابة (إنتو بتنرفزوني ليه :Rules:

 

تقبل تحياتي

[الحســـام]

اسف استاذ ابو البراء

تم التعديل ......

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

الحمد لله الذي بنعمته تتم الصالحات

تقبل تحياتي