تنظيم جدول

[الشيباني1]

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

____.zip

[سامح حجاب]

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

كيف حالك أخي في الله

لي سؤال بسيط

هل التاريخ متغير أم يوجد احتمالية لتكرار التاريخ ؟؟؟؟

[ابو اسامة العينبوسي]

السلام عليكم

____2.rar

[الشيباني1]

أستاذنا العزيز تحية طيبه مع شكري واعتزازي بردكم االرائع ، ملاحظة بسيطة : عند اضافة بيانات جديده وترحيلها ترحل البيانات السابقه المرحله معها ، ارجو المعالجة مع التقدير

[ahmedhafez]

اخى ابو اسامة عمل اكتر من رائع حياك الله ولاكن لو امكن شرح الكود للاستفادة بة فى اشياء مشابهة جزالك الله كل خير

[الشيباني1]

أخي imaginlife مع تحياتي احتمال تكرار التاريخ وارد جدا مع الشكر

[ابو اسامة العينبوسي]

السلام عليكم

الكود بعد التعديل

Sub Tarheel()
Cells(3, 2).Select
Range(Cells(5, 11), Cells(ActiveSheet.UsedRange.Rows.Count, 14)).ClearContents
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For i = 1 To Application.WorksheetFunction.CountA(Range(Cells(5, 2), Cells(ActiveSheet.UsedRange.Rows.Count, 2)))
TV = ActiveCell.End(xlDown).Row
TR = Cells(Rows.Count, 11).End(xlUp).Row + 1
Cells(TR, 11) = Cells(TV, 2)
Cells(TR, 12) = Cells(TV, 3)
Cells(TR, 13) = Cells(TV, 4)
Cells(TR, 14) = Cells(TV, 9)
ActiveCell.End(xlDown).Select
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

____3.rar

[الشيباني1]

أستاذنا العزيز رائع كعادتك دائما جزاك الله كل خير وادامك لنا مرجعا ، استفسار ارجو ملاحظته ان سمح وقتكم بذلك : هل بالامكان اجراء الحل بالمعادلات اضافة للكود ، مع الامتنان .

[الجزيرة]

رائع اخي ابو اسامه كعادتك : )

[الشيباني1]

اخواني الاعزاء تكرم الاستاذ المبدع ابو اسامه بحل لاستفسار تضمنه المرفق بالكود واعماما للفائده ولمن( يخشى الاكواد) تم حل المطلوب بالمعادلات اتمنى الاستفاده مع الشكر

_____________2.rar