اضافة شيت لترحيل بيانات الصرف كل شهر منفصل

[موريادي]

السلام عليكم

اخواني عندي برنامج السندات اعمل عليه حيث اريد اضافة شيت جديد او تلقائي يتم عمله كل شهر بما تم ادخاله في الشيت الاول (Data) بحيث يصبح مثل التقرير الشهري للمصاريف

 

وأيضاً لو يتم تصنيف الشيت حسب نوع السند (حسب العمود G) فقط

 

مودتي ...

سندات الصرف.rar

[موريادي]

هل من افادة يا اخواني ؟

[أبوعيد]

وعليكم السلام

الرجاء التوضيح أكثر يعني

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

ثم بعد ذلك سيتم عمل الكود بناء على ما عملته

 

تحياتي

[موريادي]

@أبوعيد

تم اضافة الشيت المراد عمل التقرير عليه

 

سندات الصرف.rar

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

أخي الكريم موريادي

صراحة ما زال المطلوب غير واضح حتى بعد إرفاق شكل التقرير المطلوب

ارفق ملف وضع به بعض البيانات في ورقة العمل Data و في ورقة التقرير اكتب النتائج المتوقعة ..

وهل الورقة المسماة Report هي مجرد Template يمكن العمل عليها أم أنها موجودة بالفعل وتريد فقط أن تغير البيانات فيها

وإذا كان الأمر تغيير البياانات فيها فيرجى ذكر الخلايا المطلوب تغييرها والنتائج المتوقعة في هذه الخلايا ..

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

وضح الأمر كما ينبغي لتجد الاستجابة الصحيحة كما ينبغي

تقبل تحياتي

 

[موريادي]

@ياسر خليل أبو البراء

الملف بشكل عام استخدمه لطباعة السندات المصروف بشكل يومي يتم ادخال البيانات في الشيت Data ويتم الترحيل البيانات المطلوبة في الشيت Recepit  عند اختيار رقم البند في الخلية C6 ويتم الطباعة !

 

الان اريد اضافة شيت حيث يتم كل شهر هجري عمل قائمة بالمصاريف المدخلة حسب الشهر وفيها المبلغ والتاريخ والبيان فقط بتوضيح آخر اريد نقل محتويات الشيت Data ذات الخلايا D,E,H الى الشيت Report ذات الخلايا A,B,C فقط

D=>A

E=>B

H=>C

الشيت Report هو الشكل الذي اريده وليس مجرد تصميم

[موريادي]

نسيت ارفق الملف بعد كتابة بعض البيانات

سندات الصرف.rar

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

أكرر أخي الكريم ضع بعض البيانات في الورقة Data .. مع وضع مثال لنتيجة متوقعة في الورقة Report

الأمر ملتبس عليا في نقطة واحدة الآن : قلت في مشاركتك الأصلية أنك تريد إنشاء ورقة عمل جديدة لعمل التقرير ، والآن تقول أن الشيت Report هو الشكل الذي أريده أي أن الورقة موجودة .. حدد بالضبط هل ورقة العمل Report موجودة أم أنك تريد إنشاء ورقة عمل جديدة مثلها ، وفي تلك الحالة ما هي مواصفات ورقة العمل ما اسمها مثلاً (الورقة الجديدة المضافة)

 

أم أن العمل مجرد ترحيل للبيانات من ورقة Data إلى ورقة Report لخلايا محددة ... وأكرر في هذه الحالة نريد بعض النتائج المتوقعة حيث أن البيانات غير واضحة المعالم

أعتذر عن الإلحاح في توضيح الأمر ، لكن لابد لحل أي مشكلة أن تكون الأمور واضحة وضوح الشمس في كبد السماء

 

لم أرى مشاركتك إلا الآن ..يبدو أنك قمت بالمشاركة أثناء كتابة الرد من قبلي ..سأقوم بالإطلاع على المرفق وموافاتك بالنتيجة إن أمكن ..

[موريادي]

لا خلاص تم انشاء الورقة من قبلي واسمها Report في المشاركة 

2 دقائق مضت, موريادي said:

نسيت ارفق الملف بعد كتابة بعض البيانات

سندات الصرف.rar

تم اضافة البيانات وما اريد فقط المبلغ والتاريخ والبيان

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

جرب الكود التالي عله يفي بالغرض

Sub Test()
    Dim Ws As Worksheet, Sh As Worksheet
    Dim Rng As Range, Lr As Long, Last As Long

    Set Ws = Sheets("Data"): Set Sh = Sheets("Report")
    Lr = WorksheetFunction.CountA(Ws.Columns(2))
    Last = Sh.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
        Set Rng = Union(Ws.Range("D2:E" & Lr), Ws.Range("H2:H" & Lr))
        Rng.Copy
        Sh.Range("A" & Last).PasteSpecial xlPasteValues
        
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

 

 

[موريادي]

اعتذر منك ولكن احطه وين بالضبط 

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

أخي الكريم لابد من معرفة الأساسيات في التعامل مع محرر الأكواد ..اطلع على الموضوع التالي ستجد فيه الأساسيات والتي لابد من معرفتها وستجد الإجابة على تساؤلك

من هنا

[موريادي]

ممتاز اخي ياسر الامر المطلوب يعمل بنجاح فقط اريد ان يتم الترحيل بحسب الشهر الي ابغاه 

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

32 دقائق مضت, موريادي said:

ممتاز اخي ياسر الامر المطلوب يعمل بنجاح فقط اريد ان يتم الترحيل بحسب الشهر الي ابغاه 

من أي خلية تقوم بتحديد الشهر المطلوب؟ وهل البيانات في الورقة Data ستكون جامعة لعدة شهور

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

[موريادي]

اريد خلية منبثقة في شيت Data فيها الاشهر الهجربة والسنة بحيث الشهر الذي اختار فقط يتم ترحيله الى شيت Report

 

لان كما انت ذكرت شيت Data سيكون جامع لعدة شهور وتم ارفاق النسخة الي اعمل بها مع البيانات

سندات الصرف معدل.rar

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

أخي الكريم موريادي

قمت بعمل أعمدة مساعدة في الورقة المسماة Report

عمود لإدراج الشهور الهجرية فيه .. وعمود لإدراج السنوات .. وفي الخلية I1 معادلة لمعرفة رقم الشهر الهجري ومقارنته أثناء عمل الكود

تقوم بالاختيار من القائمة المنسدلة الشهر المطلوب وليكن "شعبان" ثم تختار السنة الهجرية من الخلية المجاورة F2 .. ثم أخيراً انقر على زر الأمر لجلب البيانات من ورقة العمل Data

تم استخدام المصفوفات في الأكواد لسرعتها في التعامل مع البيانات الكبيرة

Sub Test()
'Author : YasserKhalil
'Release : 29 - 08 - 2016
'------------------------
    Dim Ws As Worksheet, Sh As Worksheet
    Dim Arr, Temp
    Dim Lr As Long, I As Long, P As Long
    Dim lMonth As Integer, lYear As Integer

    Set Ws = Sheets("Data"): Set Sh = Sheets("Report")
    Lr = WorksheetFunction.CountA(Ws.Columns(2))
    lMonth = Sh.Range("I1").Value
    lYear = Sh.Range("F2").Value
    Arr = Ws.Range("A2:H" & Lr).Value
    ReDim Temp(1 To UBound(Arr, 1), 1 To 3)

    For I = 1 To UBound(Arr, 1)
        If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then
            Temp(P + 1, 1) = Arr(I, 4)
            Temp(P + 1, 2) = Arr(I, 5)
            Temp(P + 1, 3) = Arr(I, 8)
            P = P + 1
        End If
    Next I

    Sh.Range("A6:C10000").ClearContents
    If P > 0 Then
        Sh.Range("A6").Resize(P, UBound(Temp, 2)).Value = Temp
        MsgBox "Done...", 64
    Else
        MsgBox "No Data For This Month And This Year", vbExclamation
    End If
End Sub

Function DHijri(dtGegDate As Date) As String
    VBA.Calendar = vbCalHijri
    DHijri = dtGegDate
    VBA.Calendar = vbCalGreg
End Function

أرجو أن يفي هذا بالغرض إن شاء الله

تقبل تحياتي

Grab Data By Hijri Dates Using Arrays YasserKhalil.rar

[موريادي]

يعطيك العافية استاذي ياسر

شيء بسيط اريد عمله في الورقة Report وهي الطباعة وتحديد الجدول فقط لطباعته وعدم طباعة اي شيء آخر لاني عملت تعيين ناحية الطباعة فلم أفلح !

كيف ازيد عدد السنوات من القائمة ؟

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

[موريادي]

5 ساعات مضت, موريادي said:

يعطيك العافية استاذي ياسر

شيء بسيط اريد عمله في الورقة Report وهي الطباعة وتحديد الجدول فقط لطباعته وعدم طباعة اي شيء آخر لاني عملت تعيين ناحية الطباعة فلم أفلح !

كيف ازيد عدد السنوات من القائمة ؟

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

@ياسر خليل أبو البراء

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

يوجد أعمدة مخفية في ورقة العمل "Report" أظهرها وزيد عدد السنوات كما تحب .. وقف في الخلية التي بها السنوات وادخل على الـ Data Validation وعدل المدى بحيث يشمل السنوات الجديدة

اقتباس

يوجد لدي نوعين من البيانات في الورقة Data في العمود G حيث لها قسمين اريد تحديد نوع معين ليتم ترحيله الى الورقة Report ...

يعني زي مااحنا سوينا ترحيل حسب الشهور اريد ايضاً ان تكون حسب النوع في العمود G 

لم أفهم هذه الجزئية .. يا ريت توضحها بالصور لو أمكن

 

حاول لو الطلب مختلف عن الموضوع أن تطرح موضوع جديد ...

تقبل تحياتي

[موريادي]

17 ساعات مضت, ياسر خليل أبو البراء said:

يوجد أعمدة مخفية في ورقة العمل "Report" أظهرها وزيد عدد السنوات كما تحب .. وقف في الخلية التي بها السنوات وادخل على الـ Data Validation وعدل المدى بحيث يشمل السنوات الجديدة

لم أفهم هذه الجزئية .. يا ريت توضحها بالصور لو أمكن

 

حاول لو الطلب مختلف عن الموضوع أن تطرح موضوع جديد ...

تقبل تحياتي

بخصوص السنوات فهمتها

والجزئية الثانية اريد ان يتم الترحيل فقط لرقم 2 وهو (الوقف) وليس كل الادخال 1و2 كما هو موضح بالصورة يعني امكانية تحديد مايتم ترحيله الى ورقة Report

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

أضف شرط للكود في هذا السطر لتحصل على المراد

If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then

ستضيف كلمة And قبل كلمة Then وتضيف الشرط ..

ولكن يجب أن تكون هناك خلية تحتوي على المؤسسة والوقف للاعتما عليها

ارفع الملف بدون كود تماماً كما أرفقته لك مع وضع خلية بها المعطيات ..

[موريادي]

3 دقائق مضت, ياسر خليل أبو البراء said:

أضف شرط للكود في هذا السطر لتحصل على المراد

If Month(DHijri(CDate(Arr(I, 5)))) = lMonth And Year(DHijri(CDate(Arr(I, 5)))) = lYear Then

ستضيف كلمة And قبل كلمة Then وتضيف الشرط ..

ولكن يجب أن تكون هناك خلية تحتوي على المؤسسة والوقف للاعتما عليها

ارفع الملف بدون كود تماماً كما أرفقته لك مع وضع خلية بها المعطيات ..

الخليتين موجودة وهي K2 , K3 في ورقة Data ام تقصد خلية في ورقة Report

وهذا الملف بدون اي تعديلات واكواد ان شاء الله اكون فهمتك وافدتك بالي تحتاجه 

سندات الصرف معدل.rar

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

إن شاء الله ليلاً سأحاول العمل عليه إذا لم يتدخل أحد الأخوة

تقبل تحياتي

[موريادي]

بانتظارك استاذي @ياسر خليل أبو البراء أو احد الاخوة

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

أعتذر أخي عن التأخر في الرد

إليك الملف التالي فيه التعديل .. الملف معتمد على الملف الذي قمت بإرفاقه من قبل .. حيث وجدت ملفك المرفق يحتاج لنفس الخطوات التي قمنا بها من قبل وفي هذا مشقة ..

أرجو أن يفي بالغرض إن شاء الله

Grab Data By Hijri Dates Using Arrays YasserKhalil V2.rar