كيف انقل بيانات جدول بين ثلاث صفحات

[atob]

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

يااخوان عندي ثلاث صفحات بالترتيب 1 و 2 و 3 وكل صفحه يوجد بها جدول مشابهه للصفحات الاخرى تماما

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

اني اريد ان انسخ بيانات الجدول 2 اولا والصاقها في الجدول 3 ثم انسخ بيانات الجدول 1 والصاقها في الجدول 2

واخيرا اشكر الاخ / علي السحيب ........على جهوده الواضحه واعطأنا بعضا من وقته لمنفعه اخوانه

[علي السحيب]

يفضل أن يتم التطبيق على الملف الذي لديك أو أي ملف مشابه له إختصاراً للوقت.

[atob]

اشغلتك اخوي علي لكن الله يكتب لك الاجر .........وهذا هو الملف في المرفقات

[علي السحيب]

الكود التالي ينفذ ما تريد،

Sub MovingTo2Sheets()

Beep
A = MsgBox("سيتم نقل بيانات الصفحة الثالثة إلى الثانية وبيانات الصفحة الأولى إلى الثانية .. فهل تريد المتابعة؟", vbQuestion + vbYesNo, "تأكيد")
If A = vbYes Then

Sheet3.[D8:K26].ClearContents
For R = 8 To 26
With Sheet3.Columns(4).Rows(65536).End(xlUp)
    .Offset(1, 0) = Sheet2.Cells(R, 4)
    .Offset(1, 1) = Sheet2.Cells(R, 5)
    .Offset(1, 2) = Sheet2.Cells(R, 6)
    .Offset(1, 3) = Sheet2.Cells(R, 7)
    .Offset(1, 4) = Sheet2.Cells(R, 8)
    .Offset(1, 5) = Sheet2.Cells(R, 9)
    .Offset(1, 6) = Sheet2.Cells(R, 10)
    .Offset(1, 7) = Sheet2.Cells(R, 11)
End With
Next

Sheet2.[D8:K26].ClearContents
For R = 8 To 26
With Sheet2.Columns(4).Rows(65536).End(xlUp)
    .Offset(1, 0) = Sheet1.Cells(R, 4)
    .Offset(1, 1) = Sheet1.Cells(R, 5)
    .Offset(1, 2) = Sheet1.Cells(R, 6)
    .Offset(1, 3) = Sheet1.Cells(R, 7)
    .Offset(1, 4) = Sheet1.Cells(R, 8)
    .Offset(1, 5) = Sheet1.Cells(R, 9)
    .Offset(1, 6) = Sheet1.Cells(R, 10)
    .Offset(1, 7) = Sheet1.Cells(R, 11)
End With
Next

Sheet1.[D8:K26].ClearContents
MsgBox "!تم ترحيل بيانات الصفحة الأولى والثانية بنجاح", vbInformation, "تم الترحيل"
End If

End Sub

شاهد المرفق،

________________________________________________________________________.rar

[atob]

هذا هو المطلوب........... والله لا يحرمك الاجر

[atob]

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

[atob]

اخوي علي اذا عندك اجابه على سؤالي تساعدني ولك مني جزيل الشكر

[علي السحيب]

عذراً أخي الكريم .. لم أنتبه من قبل إلى طلب التعديل الذي ذكرته .. على كل حال شاهد المرفق .. وأتمنى أن يكون به ما تريد.

__________________________________________________________________2_______.rar

[atob]

اشكرك اخوي علي......... والملف يحقق طلبي

[atob]

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

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

واخيرا اشكرك اخوي علي على جهودك

نسيت ان ارفق الملف

[علي السحيب]

المشكلة كانت في أسماء أوراق العمل .. أسماء الأوراق في الملف تختلف عن الموجودة في الكود.

تم التعديل .. شاهد المرفق،

Book1.rar

[atob]

الحقيقه ما ادري كيف اشكرك اخوي علي لكن ما اقول الا الله يوفقك