تقرير حساب بين فترات مأخوذ من عدة اوراق

[عبدالله باقشير]

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

تقرير حساب بين فترات مأخوذ من عدة اوراق

مع امكانية الفرز حسب عمود مختار

طلب للاخ سعد عابد

في الموضوع:

http://www.officena.net/ib/index.php?showtopic=43872

جعلته هنا لتعم الفائدة

المرفق 2003_2007

تقرير حساب بين فترات مأخوذ من عدة اوراق.rar

[احمد محمد على]

اخى فى الله عبدالله باقشير

اعمال مبهره

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

اخى

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

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

المثال بالمرفقات

ولكنى بعد ما رفعت المشتريات ومردوداتها اردت ان الفت نظرك المبيعات للعميل =150

المرتجع والمدفوع =130

الرصيد=20

-----------------------------

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

تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar

[احمد محمد على]

اخى عبدالله باقشير

هذا الكود الخطير يستحق ان يثبت

وقد طرحت على حضرتك مشكلة

وقمت باضافة اعمدة لحلها

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

ارجو ان كان هناك حل للموضوع اكون شاكرا لكم

تقرير حساب بين فترات مأخوذ من عدة اوراق لعميل.rar

[عبدالله باقشير]

اخى عبدالله باقشير

هذا الكود الخطير يستحق ان يثبت

وقد طرحت على حضرتك مشكلة

وقمت باضافة اعمدة لحلها

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

ارجو ان كان هناك حل للموضوع اكون شاكرا لكم

بدلا من اخفاء اعمدة

وغيره من الحلول اللي عملتها

استخدم سلكت كوس

في كود نقل القيم

وحدد لكل ورقة الاعمدة التي تريد نقلها

[saad abed]

اخى عبدالله باقشير

اسال الله ان ينعم عليك بكل نعمه

يمكن نكون طمعين بكرمك كتير ولكن عذرنا انك اخ كريم ومعطاء

اخى لقد فعلت فعلا ما فعله mido

فقد قسمت الكود لثلاث اصناف

كود يجلب حساب عميل مورد يبحث فى خمس ورقات

كود يجلب حساب العميل يبحث فى ثلاث ورقات (مبيعات وم.مبيعات والخزينة)

كود يجلب حساب المورد يبحث فى ثلاث ورقات (مشترياتوم.المشترياتوالخزينة)

الكود لم ارى مثيل له فى السرعة بفضل الله

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

لقد حاولت ان استخدم slect case

لم افلح فى الوصول للهدف المنشود وهو ان ياتى الحساب بطريقة محاسبية سليمة

وهى = المشتريات - (م.مشتريات+المسدد) = حساب المورد

وكذلك العميل وكذلك العميل المورد

نكون شاكرين لك لو تكرمت واكملت العمل بطريقتك

كل الشكر والتقدير

اخوك سعد عابد

[عبدالله باقشير]

السلام عليكم

هذا مثال لما اوردته

باستخدام في مشاركتي السابقة

عن استخدام سلكت كوس

غير معطياتك كعميل او مورد

Sub kh_AddItem(nSh As String)

Dim MyRng As Range

Dim R As Integer

Dim ContRow As Long, i As Long

Dim tFindNum As String

Dim dt1 As Date, dt2 As Date

'-------------------------

On Error GoTo 1

'-------------------------

Set MyRng = Sheets(nSh).Range(MyTopColmnRng)

'-------------------------

With MyRng

    ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row

End With

If ContRow = 0 Then Exit Sub

'-------------------------

'      اسم الحساب المطلوب

tFindNum = LCase(saad1.ComboBox1.Value)

'-------------------------

'       التواريخ

dt1 = CDbl(CDate(saad1.ComboBox2))

dt2 = CDbl(CDate(saad1.ComboBox3))

'-------------------------

With MyRng.Offset(1, 0)

    For R = 1 To ContRow

        Select Case .Cells(R, dColmn).Value2: Case dt1 To dt2

            If LCase(.Cells(R, MyColmnFind)) Like tFindNum Then

                ''''''''''''''''''''''''''''''''

                'مثلا هذه الاعمدة مطلوبة في كل الحسابات

                Cells(ii, "B").Resize(1, 6).Value = .Cells(R, 1).Resize(1, 6).Value

                ' المعيار اسم الورقة

                Select Case .Worksheet.Name

                'باقي الاعمدة وهي اربعة نختار فيها مانريده

                    Case "مشتريات", "م.مبيعات"

                        Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, "", .Cells(R, 9).Value)

                    Case "مبيعات", "م.مشتريات"

                        Cells(ii, "H").Resize(1, 4).Value = Array(.Cells(R, 7).Value, .Cells(R, 8).Value, .Cells(R, 9).Value, "")

                    Case "خزينة"

                        Cells(ii, "H").Resize(1, 4).Value = Array("", "", .Cells(R, 7).Value, .Cells(R, 8).Value)

                End Select

                ''''''''''''''''''''''''''''''''''''

                ii = ii + 1

            End If

        End Select

    Next

End With

'-------------------------

1:

Set MyRng = Nothing

End Sub

المرفق 2003

تقرير حساب بين فترات مأخوذ من عدة اوراق1.rar