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

[عبد العزيز كمال]

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

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

شرح المطلوب في الملف المرفق

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

كشف.rar

[عبد العزيز كمال]

?

[محمود رواس]

الاخ / عبدالعزيز المحترم

اعتقد ان المطلوب غير واضح برجاء التوضيح حتي يتمكن عمالقه المنتدى من الرد عليك .

وشكراً ،،،

[جمال عبد السميع]

بصراحة أخي ( عبد العزيز ) علي قد مافهمت من مرفقك

تصميم كشف حساب.rar

تم تعديل ديسمبر 19, 2012 بواسطه mahmoud-lee

[عبد العزيز كمال]

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

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

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

تم تعديل ديسمبر 19, 2012 بواسطه عبد العزيز كمال

[جمال عبد السميع]

صعب عمل ذلك في جدول واحد لو جدوليين واحد للمبيعات وأخر لكشف الحساب ستكون منطقية أكثر

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub Al_F()

Dim R As Range, R1 As Range

On Error Resume Next

Dim Rn As Range, Rr As Range

Range("D26:I39").ClearContents

E = 26

Set Rn = Range("D10:D12")

For Each R In Rn

If R.Offset(0, 1).Text = [G22].Text Then

If IsDate(R) >= IsDate([I21]) And IsDate(R) <= IsDate([I22]) Then

With Cells(E, 4)

Union(Cells(R.Row, 4), Cells(R.Row, 6)).Copy: _

.PasteSpecial xlPasteValues

R.Offset(0, 3).Copy: .Offset(0, 3).PasteSpecial xlPasteValues

R.Offset(0, 5).Copy: .Offset(0, 5).PasteSpecial xlPasteValues

E = E + 1

End With

End If

End If

Next

L_r = Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row

For Each R In Range("L9:L13")

If R.Offset(0, 1).Text = [G22].Text Then

If IsDate(R) >= IsDate([I21]) And IsDate(R) <= IsDate([I22]) Then

With Cells(L_r, 4)

R.Copy: .PasteSpecial xlPasteValues

R.Offset(0, 3).Copy: .Offset(0, 1).PasteSpecial xlPasteValues

R.Offset(0, 2).Copy: .Offset(0, 2).PasteSpecial xlPasteValues

R.Offset(0, 4).Copy: .Offset(0, 3).PasteSpecial xlPasteValues

R.Offset(0, 6).Copy: .Offset(0, 4).PasteSpecial xlPasteValues

End With

L_r = L_r + 1

End If

End If

Next

Application.CutCopyMode = False

End Sub

كشف_A.rar

تم تعديل ديسمبر 20, 2012 بواسطه عباد

[عبد العزيز كمال]

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

[الـعيدروس]

تفضل المرفقات في المشاركة السابقه

[عبد العزيز كمال]

---شكرا للجميع علي المساعده جزاكم الله خيرا---