اشكال في نسخ ورقات

[abu]

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

الاخوة الافاضل لدي مشكلة الرجاء حلها .

وهي كالتالي :

لدي بيانات في مجموعه من الورقات داخل مصنف وأوريد نقلها الى ورقة

ولكم مني جزيل الشكر

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

السلام عليكم

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

ارفق ملف اخى العزيز ليتسنى معرفة المطلوب

تم تعديل أغسطس 20, 2009 بواسطه ابو اسامة العينبوسي

[abu]

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

المشكله بالتفصيل هي كالتالي :

لدي بيانات في( ورقة1.ورقة2,ورقة3,.....)واوريد ان نقل هذه البيانات او نسخها الى ورقة4 على التوالي

مثال :

ورقه1 فيها بيانات من (a1:b10)ورقة2,(a1:b20)ورقة3,(a1:s50)

واريد نقل هذه البيانات المحدده على التوالي يعني يتم نسخ محتوى ورقة1الى ورقة 4 بداية بخلية a1 , وفي اخر خلية نصل إليها بالنسخ يتم نسخ محتوى رقة2 وهكذايتم نسخ الباقي ...

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

ابواحمد

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

السلام عليكم

Sub move_data()

Dim A, B, C, D As Long

For A = 1 To 3

With Sheets(4)

For B = 1 To Sheets(A).Cells(1, 1).End(xlDown).Row

C = .Cells(Rows.Count, 1).End(xlUp).Row + 1

For D = 1 To Sheets(A).Cells(B, 1).End(xlToRight).Column

.Cells(C, D) = Sheets(A).Cells(B, D)

Next D

Next B

End With

Next A

End Sub

move_data.rar

تم تعديل أغسطس 21, 2009 بواسطه ابو اسامة العينبوسي

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

السلام عيكم

في اقرب وقت ساشرح الكود

تم تعديل أغسطس 21, 2009 بواسطه ابو اسامة العينبوسي

[أيسم إبراهيم]

السلام عليكم

كل عام أنتم بخير. رمضان كريم

هائل أستاذ أبو أسامه

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

جعله الله في ميزان حسناتك

تقبل الله طاعاتكم و أعانكم على الخيرات

أيسم إبراهيم

[abu]

جزاك الله خيراً وجعل ذالك في ميزان حسناتك هذا هوالمطلوب .

لدي استفسار بسيط هل بالإمكان توسيع دائرة النقل بمعنى ان يكون بدل 3ورق يكون اكثر من ذالك وأيضاً تغيير نطاق كل ورقه(محتوى البيانات) نوريد نسخها.

كذالك لدي رجاء وهو شرح الكود لتعم الفائدة

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

السلام عليكم

اخى abu

الكود يرحل كل البيانات في اي صفحه من الصفحات الثلاث (المطلب الاول)

حدد عدد الصفحات التى تريد الترحيل منها و نعمل الازم(المطلب الثانى)

ساقوم بشرح الكود لاحقا(المطلب الثالث)

[خالد القدس]

السلام عليكم

ما شاء الله أستاذ أبو أسامة

عمل غاية في الروعة والدقة

تسلم الأيادي

ضعف الله لك الأجر والثواب في هذا الشهر المبارك

تم تعديل أغسطس 22, 2009 بواسطه خالد القدس

[abu]

الاخ الفاضل /ابو اسامة العينبوسي

جزاك الله خير على مجهودك المبذول

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

تقبل الله منكم الطاعات

اخوك ابواحمد