ارجو المساعده

[الجازع]

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

جدول المستندات المدققة والغير مدققة.zip

تم تعديل أكتوبر 2, 2010 بواسطه jazea

[الجازع]

للرفع

[الجازع]

اخواني مشرفين واعضاء المنتدى الراقي ارجو من يتسنى له الوقت افادتي بخصوص ما ذكرته لكم بموضوعي اعلاه وشاكر ومقدر لكم حسن تعاونكم ,,,,,,

[طارق محمود]

السلام عليكم

أخي الكريم

بصراحة قرأت الموضوع قبل ذلك ولم أفهم جيدا

فتركت الموضوع لغيري عسي ان يفهمه بسرعة

جميع الموظفين بيشتغلوا تقريبا بنفس الخلايا من بداية الجدول

هل يعني هذا أن الخلايا مشتركة بينهم أم كل موظف مختص بمجموعة من الخلايا

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

وعندك عمود بعنوان "اسم المدقق" ، فهل هذه هي أسماء الموظفين (احمد السدعي - عبود الدقيل - محمد العمورات - سامي - اسامة باشا - خالدبادويلان)

إن كان كذلك فهذا يعني أنه لاتوجد خلايا مشتركة بمعني أن الخليه ذاتها لن يكتب به أكثر من موظف واحد

ومن الممكن في هذه الحالة

أن تعمل لكل موظف ورقة (أو ملف) بإسمه مثلا

وعن طريق ماكرو تتجمع البيانات في الآخر بسهولة

ويمكن أن يحتوي الماكرو علي آلية تجميع وتنسيق البيانات أسفل بعضها

مع إلغاء أوالإحتفاظ بالبيانات السابقة ، كما تحب

[الجازع]

اخي العزيز طارق اشكرك على ردك وتجاوبك معي واعذر باقي الاخوان لانشغالهم اود التوضيح والافاده بأنه صيحيح يوجد مجموعه من الموظفين بس جميع الموظفين بيبدا عملهم في شيت المستندات من الخليه B2 اي ان الخليه بيشتغل عليها اكثر من موظف وهل ممكن تفيدني بتطبيق الماكرو التي ذكرتها بالملف المرفق "ومن الممكن في هذه الحالةأن تعمل لكل موظف ورقة (أو ملف) بإسمه مثلاوعن طريق ماكرو تتجمع البيانات في الآخر بسهولةويمكن أن يحتوي الماكرو علي آلية تجميع وتنسيق البيانات أسفل بعضهامع إلغاء أوالإحتفاظ بالبيانات السابقة ، كما تحب"  لارتاح من موضوع التجميع والارساليات التي تخص كل موظف ولكم جزيل الشكر والتقدير ,,,,,

جدول المستندات المدققة والغير مدققة.zip

تم تعديل أكتوبر 6, 2010 بواسطه jazea

[طارق محمود]

السلام عليكم

مرفق مجلد (فولدر) به نموذج للعمل

ستجد في المجلد أربعة ملفات 1,2,3,4

الملف الرئيس Total

كل واحد من الملفات الأربعة خاص بموظف مختلف وبها بعض البيانات كمثال،

إفتحها لتراها فقط ثم إغلقها

ثم إفتح الملف الرئيس Total

ستجد به زرين لتشغيل الماكرو

الزر (1) إذا ضغطته سيفتح الملفات الأربعة ثم يغلقها واحد تلو الآخر

ويأخذ نسخة منها في شيتات منفصلة في الملف الأصلي

أما الزر (2) فيتعامل مع الشيتات الأربع ،

يأخذ البيانات بها ويضعها في الشيت الرئيسي TOTAL أسفل بعضها

ثم يلغي الشيتات الأربع

جرب ثم اخبرني

Jazea.rar

تم تعديل أكتوبر 6, 2010 بواسطه TareQ M

[الجازع]

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

Jazea.rar

تم تعديل أكتوبر 6, 2010 بواسطه jazea

[طارق محمود]

في حالة تغير اسماء الملفات بأسم كل موظف واضافة موظف جديد هل يمكن؟

ممكن وإن كان الأسهل أن تكون ارقاما

عند الظغط على الزر رقم 2 وتجميع البيانات تحت بعض وفي اليوم الثاني سيقوم كل موظف حذف البيانات السابقه او سيتم حذفها تلقائياعندما اسحبها بظغط على رقم 2 ؟

الأفضل ان كل موظف يحذف القديم ويضع بيانات جديدة

وهل سيكون عمل اليوم التالي يتراكم مع العمل القديم بملف الاجمالي تحت بعض ولا يمسح القديم ؟

اريد ان يكون يتراكم العمل كل يوم وارجو ان يكون الشرح وافي ولكم جزيل الشكر والتقدير ,,,,

سيكون تراكمي في نفس الصفحة وإن كنت تريد غير ذلك ، ممكن ايضا

لكني تنبهت الآن لنقطة صغيرة في الكود

لقد وضعت عنوان نهاية للخلايا 6000 سطر

فإن كان العمل قد يزيد عن ذلك

فلتذهب الي السطر الثالث من الأخر في الكود الثاني Sub Shet_Collect()

والذي كان

 Range("A2", [m6000].End(xlUp).Offset(0, -12)).Select

ولتجعله مثلا

 Range("A2", [m100000].End(xlUp).Offset(0, -12)).Select

تم تعديل أكتوبر 6, 2010 بواسطه TareQ M

[الجازع]

اخي طارق اشكرك انا غيرت اسم الملفات بأسم كل موظف بس لم يتم تجميع البيانات فهل ممكن ان تفيدني بشرح الطريقه ؟؟واريد انا ازيد عدد الملفات فهل ممكن ان تفيدني بشرح الطريقه ؟؟ وفي ملف الاجمالي عادي لوغيرت اسمه وهل سوف يتم تجميع الملفات لاخر خليه موجوده؟؟بالبنسه لموضوع الخلايا التي افدتي بها بالرد السابق يخص اي جدول الاجمالي ام الخاص بالموظفين ؟؟"سيكون تراكمي في نفس الصفحة وإن كنت تريد غير ذلك ، ممكن ايضالكني تنبهت الآن لنقطة صغيرة في الكودلقد وضعت عنوان نهاية للخلايا 6000 سطر فإن كان العمل قد يزيد عن ذلكفلتذهب الي السطر الثالث من الأخر في الكود الثاني Sub Shet_Collect()" يالشيت اكرر اعتذاري عليك يااخي وشاكر ومقدر اهتمامك وجعله الله في ميزان حسناتك .

[طارق محمود]

السلام عليكم

اخي الكريم

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

غيرت لك اسماء الملفات و غيرت عدد الملفات من 4 إلي 6

أنظر الكود في الصورة المرفقة

العدد 6 يساوي عدد الملفات التي بأسماء الموظفين ، تستطيع تغييره

وفي أول الكود

Dim z(9)

تغيره أيضا لو زادوا عن 9

وفي ملف الاجمالي عادي لوغيرت اسمه

لأ ، ليس عادي ستجد في الكود الأول Files_Collect في السطر السابع من الأسفل إسم الملف Total.xls

Sheets(1).Copy Before:=Workbooks("Total.xls").Sheets(1)

ولازم تغيره للإسم الذي تريد

وكذلك في الماكرو الثاني

إسم الشييت Total

وهل سوف يتم تجميع الملفات لاخر خليه موجوده؟؟

نعم سيتم ذلك إن شاء الله

بالبنسه لموضوع الخلايا التي افدتي بها بالرد السابق يخص اي جدول الاجمالي ام الخاص بالموظفين ؟؟"سيكون تراكمي ..."

الاجمالي وتم تصليحها لتسع حتي 100,000

تفضل المرفق بعد التعديلات

Jazea2.rar

تم تعديل أكتوبر 6, 2010 بواسطه TareQ M

[الجازع]

اخي طارقارجو ان توضح هذا الكود Selection.AutoFill Destination:=Range("A2", [m100000].End(xlUp).Offset(0, -12))؟لانه بعطيني خطأ ؟؟ ارجو توضيح هذا الكود ايضاFor i = 1 To 6 ؟ولو قمت بأضافة بعض الحقول واريد ان يتم تجميعها فهل يوجد تعديل بالاكواد اقوم به ارجو افادتي ؟وانا اقدر تعاونك معي اشكرك واسف على الاطاله

[طارق محمود]

لشرح هذا السطر من الكود

 Selection.AutoFill Destination:=Range("A2", [m100000].End(xlUp).Offset(0, -12))

 

اولا أعتقد ان الخطأ يأتي من ان الإكسل 2003 ليس به حتي السطر 100000 وقد غيرت كل m100000 إلي m60000 وهذا في 3 مواضع ومشي الحال الشرح بداية أثناء النسخ من الشيتات قبل إلغاؤها ، لم أخذ طبعا أول عمود اللي فيه الرقم المسلسل وإذا رجعت خطوتين قبل السطر المطلوب ستجد

[A2].Value = 1: [A3].Value = 2

 Range("A2:A3").Select

 [A3].Activate

وهذا الجزء يخبر الإكسل بوضع 1 في الخلية A2 ثم 2 في الخلية A3 ثم ينشط الخلية A3 ثم هذا السطر بعد تغييره

Selection.AutoFill Destination:=Range("A2", [m60000].End(xlUp).Offset(0, -12))

وهو يجعل الإكسل يملأ أوتوماتيكيا بنفس نسق 1-2 ثم 3 - 4 -5 هكذا إلي أن يصل إلي الخلية

[m60000].End(xlUp).Offset(0, -12)

وماذا يعني هذا هذه الخلية يحصل عليها عن طريق الخلية m60000 إلي أعلي للوصول لآخر خلية في العمود M بها بيانات ثم منها Offset لليمين 12 (العمود A) أرجو تكون واضحة وهذا هو الكود كاملا بعد التعديل

Sub Files_Collect()

'

' Macro1 Macro

' Macro recorded 29/04/2009 by user

 '

Dim z(9) As Variant

	z(1) = "احمد السدعي"

	z(2) = "عبود الدقيل"

	z(3) = "محمد العمورات"

	z(4) = "سامي"

	z(5) = "اسامة باشا"

	z(6) = "خالدبادويلان"


	For i = 1 To 6


	a = ThisWorkbook.Path & "\" & z(i) & ".xls"

	Workbooks.Open Filename:=a


	Sheets(1).Select

	Sheets(1).Copy Before:=Workbooks("Total.xls").Sheets(1)

	Workbooks(z(i) & ".xls").Activate


	ActiveWindow.Close

	ActiveSheet.Name = i


	Next i

	Worksheets("TOTAL").Select

	[a2].Select


End Sub

Sub Shet_Collect()

x = Worksheets.Count

Worksheets("TOTAL").Select

Range("B1").Select


Application.DisplayAlerts = False


For i = x - 1 To 1 Step -1

Worksheets(i).Select

	Range("B2", [m2000].End(xlUp)).Select

	Selection.Copy

 	Worksheets("TOTAL").Select

 	[m60000].End(xlUp).Offset(1, -11).Select

 	ActiveSheet.Paste

 	Sheets(i).Delete

Next i

Application.DisplayAlerts = True


 [a2].Value = 1: [A3].Value = 2

 Range("A2:A3").Select

 [A3].Activate

Selection.AutoFill Destination:=Range("A2", [m60000].End(xlUp).Offset(0, -12))


 	[a2].Copy


	Range("A2", [m60000].End(xlUp).Offset(0, -12)).Select

	Selection.PasteSpecial Paste:=xlPasteFormats

	Application.CutCopyMode = False

 	[a2].Select

End Sub

تم تعديل أكتوبر 7, 2010 بواسطه TareQ M

[الجازع]

اخي اشكرك جزيل الشكر والتقدير على هذه المعلومات القيمه واسف لتأخري بالرد عليك يااستاذي اود افادتك بانه لازل اعاني من الخطأ نفسه في حالة الضغط على رقم 2 مباشره لاكن اذا انا ضغط رقم واحد ثم رقم 2 يشتغل تمام ارجو التكرم والافاده وفي حالة اردت ان اضف اعمده جديده في اي كود اعدل بالاكواد ؟؟؟؟كم ارجو ان تفيدني بمعني هذا الكود وليش رقم 12"؟:-m2000Offset(0, -12يااستاذي العزيز ارود افادتك بأنه لم يتم تعديل هذا كما ذكرت سابقا ""اولا أعتقد ان الخطأ يأتي من ان الإكسل 2003 ليس به حتي السطر 100000وقد غيرت كل m100000 إلي m60000 وهذا في 3 مواضع ومشي الحال"" ارجو التوضيح وافادتي جزاك الله خير ,,,

تم تعديل أكتوبر 9, 2010 بواسطه jazea

[طارق محمود]

السلام عليكم

أخي الكريم

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

الزر (1) لتجميع البيانات من الملفات (لو غير موجودة يعطي خطأ)

الزر (2) لتجميع البيانات من الشيتات الموجودة (لو غير موجودة يعطي خطأ)

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

كم ارجو ان تفيدني بمعني هذا الكود وليش رقم 12"؟:-m2000Offset(0, -12

الدالة

Offset(a, b)

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

Range("A2", [m60000].End(xlUp).Offset(0, -12)).Select

يعني أنك تأمر الكود بالذهاب للخلية m60000 ثم يتجه منها لأعلي

.End(xlUp) 

حتي يجد خلية بها بيانات بفرض أن m60000 ليس بها بيانات وهو الطبيعي حيث أنها بعيدة جدا عن مجال العمل العادي ولنفرض أن أول خلية بها بيانات في العمود m سيجدها في m22مثلا معني هذا أن المؤشر سيذهب إلي m60000 ومنها إلي m22 ثم سيتم إزاحة المؤشر 0 صفوف ، -12 عمود لليسار (أي نفس الصف ، 12عمود لليمين ) أي الخلية A22 فيكون معني السطر

Range("A2", "A22").Select

اود افادتك بأنه لم يتم تعديل هذا كما ذكرت سابقا ""اولا أعتقد ان الخطأ يأتي من ان الإكسل 2003 ليس به حتي السطر 100000وقد غيرت كل m100000 إلي m60000 وهذا في 3 مواضع ومشي الحال"" ارجو التوضيح وافادتي جزاك الله خير ,,,

إذا لم يتم التعديل وكنت تستخدم إكسل 2007 أو 2010 فلابأس ولاداعي للتعديل

أما إذا كنت تستخدم 2003 فستجد ان عدد الصفوف بالشييت محدود أي إذا ذهبت لأقصي صف بالأسفل ستجد أنه 65536 أو نحو ذلك لذلك يحتاج الكود للتعديل السابق مع إكسل 2003

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

لم أفهم هل تعني موظفين جدد أو أعمدة في الجدول

في كلتا الأحوال تحتاج تعديل الكود

إشرح لي ماتريد بالتحديد

مرفق الملف وبه آخر التعديلات السابق ذكرها

Jazea3.rar

تم تعديل أكتوبر 9, 2010 بواسطه TareQ M

[الجازع]

اخي العزيز اشكرك على مجهودك وشرحك الرائع وفيما يخص الاضافة اريد ان اضيف اعمده جديده واريدها ان يتم تجميعهاوافادتي في هذا الكود ليش m2000? Range("B2", [m2000].End(xlUp)).Select ولاحظت ان التجميع تراكمي لمره واحده فقط يعني لو جمعت بيانات اليوم ما يجمع البيانات الجديده لليوم التالي تحت البيانات السابقه بملف الاجمالي اود انا يتم التجميع للبيانات تراكمي بشكل يومي كل يوم تحت الثاني تحت بعض ؟؟؟كما اكرر اعتذاري

[طارق محمود]

السلام عليكم

ريد ان اضيف اعمده جديده واريدها ان يتم تجميعها

إن أضفت عمود واحد سيكون آخر عمود عندك N وليس M

فعليك تغيير كل العناوين في الكود من M إلي N

مثلا m2000 تصبح N2000

، m60000 تصبح N60000

وهكذا إن كنت ستزيد عمودين فيتغير كل العناوين في الكود من M إلي O

في هذا الكود

Range("B2", [m2000].End(xlUp)).Select

ليش m2000؟

m لأنها آخر عمود به بيانات وأعتقد أهمها لأنه يعطي حالة البيان

و 2000 لأني لم اعتقد ان الموظف الواحد سيدخل بيانات لحد 2000 صف

إن كان غير ذلك ممكن تزيدها لكن قبل الحد النهائي لإكسل 2003 (حيث أنك تستخدمه)

لاحظت ان التجميع تراكمي لمره واحده فقط

يعني لو جمعت بيانات اليوم ما يجمع البيانات الجديده لليوم التالي تحت البيانات السابقه بملف الاجمالي

اود انا يتم التجميع للبيانات تراكمي بشكل يومي كل يوم تحت الثاني تحت بعض ؟؟؟

هذه تستطيع انت عملها من عمود التاريخعن طريق فلتر أو ماشابه

عذرا لضيق الوقت

[الجازع]

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

لاحظت ان التجميع تراكمي لمره واحده فقط

يعني لو جمعت بيانات اليوم ما يجمع البيانات الجديده لليوم التالي تحت البيانات السابقه بملف الاجمالي

اود انا يتم التجميع للبيانات تراكمي بشكل يومي كل يوم تحت الثاني تحت بعض ؟؟؟

هذه تستطيع انت عملها من عمود التاريخعن طريق فلتر أو ماشابه

عذرا لضيق الوقت

تم تعديل أكتوبر 16, 2010 بواسطه jazea

[طارق محمود]

السلام عليكم

اخي الكريم

العمل لا يتم تجميعه بملف الاجمالي كل يوم تحت اليوم السابق

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

يعني تجميع البيانات بشكل يومي فقط لجميع الموظفين وليس تراكي ؟

لعمل ذلك ، أضف السطر التالي بعد أول 3 أسطر في الكود الثاني

 Range("A2", [M2000].End(xlUp)).ClearContents

ليصبح

Sub Shet_Collect()

x = Worksheets.Count

Worksheets("TOTAL").Select

Range("A2", [M2000].End(xlUp)).ClearContents

Range("B1").Select

..

 

كما ارجو توضح هذا الكود وليش I ؟ يجوز وضع اي متغير وليس I بالتحديد ، المهم ألا تكون مستعملا لنفس الإسم في ذات الوقت والمهم طبعا أن تنهي دائرة For - Next لنفس الحلقة ، Loop يعني

For i = ...

..

...

Next i

وليش

 Filename:=a ؟؟

لأن السطر الذي قبلها هو

 a = ThisWorkbook.Path & "\" & z(i) & ".xls"

وطبعا ينفع أيضا اي متغير وليس a بالتحديد ، المهم ألا تكون مستعملا لنفس الإسم في ذات الوقت

[الجازع]

السلام عليكم

اخي الكريم

العمل لا يتم تجميعه بملف الاجمالي كل يوم تحت اليوم السابق

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

يعني تجميع البيانات بشكل يومي فقط لجميع الموظفين وليس تراكي ؟

لعمل ذلك ، أضف السطر التالي بعد أول 3 أسطر في الكود الثاني

 Range("A2", [M2000].End(xlUp)).ClearContents

ليصبح

Sub Shet_Collect()

x = Worksheets.Count

Worksheets("TOTAL").Select

Range("A2", [M2000].End(xlUp)).ClearContents

Range("B1").Select

..

استاذي العزيز اضفت الكود ولانه لم يتم تجميع العمل بشكل يومي تحت بعض ؟؟واسف على الاطاله وشكرا

تم تعديل أكتوبر 17, 2010 بواسطه jazea

[طارق محمود]

السلام عليكم

أخي العزيز

لم أفهم

فالكود يعمل معي جيدا

بفرض أن الملف به بيانات اليوم السابق

عند تشغيل الماكرو الأول (1) ،كما هو بالسابق

يفتح الملفات في نفس المجلد بالتتابع

ويأخذ البيانات

ويعمل منها نسخة في الملف المجمع علي شكل شييت 1،2،3...هكذا

ثم يغلق الملفات أيضا بالتتابع إلا الملف المجمع ثم عند تشغيل الماكرو الثاني (2) ، يقوم بالتالي

بلغي مابه من بيانات قديمة

يرحل البيانات التي في الشيتات إلي ورقة التجميع TOTAL

يلغي باقي الشيتات

وبالتالي تكون بيانات اليوم الواحد متراكمة ولايوجد غيرها

إن لم يكن هذا ماتريد، أرجو الشرح جيدا

طبعا الكود الأول Files_Collect ، لم يحدث به تغيير

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

 Sub Shet_Collect() x = Worksheets.Count Worksheets("TOTAL").Select Range("A2", [M2000].End(xlUp)).ClearContents Range("B1").Select Application.DisplayAlerts = False For i = x - 1 To 1 Step -1 Worksheets(i).Select 	Range("B2", [M2000].End(xlUp)).Select 	Selection.Copy 	Worksheets("TOTAL").Select 	[m60000].End(xlUp).Offset(1, -11).Select 	ActiveSheet.Paste 	Sheets(i).Delete Next i Application.DisplayAlerts = True [a2].Value = 1: [A3].Value = 2 Range("A2:A3").Select [A3].Activate Selection.AutoFill Destination:=Range("A2", [m60000].End(xlUp).Offset(0, -12)) 	[a2].Copy 	Range("A2", [m60000].End(xlUp).Offset(0, -12)).Select 	Selection.PasteSpecial Paste:=xlPasteFormats 	Application.CutCopyMode = False 	[a2].Select End Sub

ومرفق الملف وبه التعديل

Total.rar

تم تعديل أكتوبر 17, 2010 بواسطه TareQ M

[الجازع]

اخي العزيز ارجو شرح هذا الكود وليش مره [m60000].End(xlUp).Offset(1, -11).Select

ومره "A2", [m60000].End(xlUp).Offset(0, -12))؟؟؟؟

وايش معنى ActiveSheet.Paste ؟؟

شكرك يااستاذي