عمل أو إعداد كشف حساب دائن ومدين حسب اسم العميل

[ابو محمد نصري]

السلام عليكم ورحمة الله وبركاته
مطلوب مساعده في كود vba كشف حساب دائن و مدين

يوجد في الملف المرفق 5 ورقات عمل المبيعات و سندات القبض

و مشتريات و سندات الصرف العملاء  في نفس الوقت هم الموردين

هل من الممكن عمل كشف حساب دائن و مدين مع رصيد

Copy.rar

تم تعديل مايو 24, 2015 بواسطه ابو محمد نصري

[ابو محمد نصري]

هل الطلب غير واضح

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

أخي الكريم

أنا لا أفهم لغة المحاسبة على الإطلاق ..وضح ورقة العمل المطلوب العمل عليها ، أعتقد أنها ورقة العمل "كشف حساب"

وأعتقد أنك تريد ترحيل البيانات إلى هذه الورقة ؟ لكن من أي ورقة تريد الترحيل ؟؟ هل الترحيل من ورقة واحدة أم من عدة أوراق ؟

يرجى الإفادة يا صاحب السعادة

[ابو محمد نصري]

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

اريد كشف حساب مثل الصوره المرفقه

Copy1.rar

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

ايه الإضافة اللي أضفتها للمرفق في المشاركة الأخيرة .المرفق الأول يفي بالغرض ..فقط وضح البيانات المراد ترحيلها من فين لفين ..

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

وضح ربنا يبارك فيك وفي وقتك عشان وقت الجميع لا يتسع للإلحاح في طلب التوضيح

 

شي آخر عشان مش بفهم في المحاسبة ..

الرصيد = المدين - الدائن ولا العكس ...

[ابو محمد نصري]

اخي ياسر الدائن -المدين

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

ايه الإضافة اللي أضفتها للمرفق في المشاركة الأخيرة .المرفق الأول يفي بالغرض ..فقط وضح البيانات المراد ترحيلها من فين لفين ..

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

وضح ربنا يبارك فيك وفي وقتك عشان وقت الجميع لا يتسع للإلحاح في طلب التوضيح

 

شي آخر عشان مش بفهم في المحاسبة ..

الرصيد = المدين - الدائن ولا العكس ...

لم تجب على باقي استفساراتي

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

أخي الفاضل

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

Sub GrabDataFromSheets()
    Dim WS As Worksheet, SH As Worksheet
    Dim Cell As Range
    Dim X As Long
    
    X = 7
    Set SH = Sheets("كشف حساب")
    
    Application.ScreenUpdating = False
        SH.Range("B7:E1000").ClearContents
        For Each WS In ThisWorkbook.Sheets
            If WS.Name = "المبيعات" Or WS.Name = "المشتريات" Then
                For Each Cell In WS.Range("C5:C" & WS.Cells(Rows.Count, 3).End(xlUp).Row)
                    If Cell.Value = SH.Range("C3").Value Then
                        SH.Cells(X, 2).Value = Cell.Offset(, -1).Value
                        SH.Cells(X, 3).Value = Cell.Offset(, 1).Value
                        If WS.Name = "المبيعات" Then SH.Cells(X, 4).Value = Cell.Offset(, 4).Value
                        If WS.Name = "المشتريات" Then SH.Cells(X, 5).Value = Cell.Offset(, 4).Value
                        X = X + 1
                    End If
                Next Cell
            End If
        Next WS
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

Grab Data From Two Sheets YasserKhalil.rar

[ابو محمد نصري]

اخي ياسر كل شي مبيعات فهوا دائن و كل شي من المشتريات فهو مدين

الدائن - المدين

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

هل قمت بالإطلاع على المشاركة رقم 8 أخي الكريم؟

قم بتجربة الملف ووافنا بالملاحظات ...

[محمودبك]

الاستاذ / ياسر        المحترم

تحية اعزاز وتقدير لشخصكم الموقر

تعلمنا منكم الكثير

غيرت اسماء الصفحات بتغير معنا فى المدين والدائن

نحن نقدركم حميعا

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

الاستاذ / ياسر        المحترم

تحية اعزاز وتقدير لشخصكم الموقر

تعلمنا منكم الكثير

غيرت اسماء الصفحات بتغير معنا فى المدين والدائن

نحن نقدركم حميعا

بارك الله فيك أخي الغالي محمود

لم أفهم هذا السطر "غيرت اسماء الصفحات بتغير معنا فى المدين والدائن"

إذا كنت تريد تغيير أسماء أوراق العمل فلابد من الإطلاع على الكود لتغير فيه بما يتناسب معك

تقبل تحياتي

[محمودبك]

الاستاذ / ياسر          المحترم 

تحياتى

انا اقصد تغير فى الكود تغير المسمى فى السطرين

 

 

 

If WS.Name = "المشتريات" Then SH.Cells(X, 4).Value = Cell.Offset(, 4).Value

 

If WS.Name = "المبيعات" Then SH.Cells(X, 5).Value = Cell.Offset(

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

 

اخي ياسر كل شي مبيعات فهوا دائن و كل شي من المشتريات فهو مدين

الدائن - المدين

 

لقد نوه الأخ محمد نصري إلى أن المبيعات تمثل الدائن والمشتريات المدين ، وهو ما قدمته في الكود ..

[محمودبك]

الاستاذ الفاضل / ياسر           

تحياتى وتقديرى

انا اطلعت على الملف محاسبيا

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

واظهار كشف حساب بالحركة كذلك مدين ودائن هذا مافكرت فيه

انا لست اعلم منكم بالاكواد ولكن متابعة اعمالك واراءك وتشجيعك 

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

وشكرا

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

أخي الفاضل محمود

أنتم كمحاسبين أدرى مني بالشغل المحاسبي

شوف الملف وجربه وأبلغني إذا كان الشغل بشكل محاسبي سليم أم لا .. انا اجتهدت في موضوع الرصيد لأن دي أول مرة أتعامل مع الرصيد

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

عموماً صاحب الملف لسه مقررش إذا كان هذا هو المطلوب أم لا ..

[ابو محمد نصري]

شكرا لك اخي ياسر .و بارك الله فيك

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

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

أخي الفاضل

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

تقبل تحياتي

[ابو محمد نصري]

استاذ ياسر شكرا علي كود

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

11111.rar

[ابو محمد نصري]

up