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

[ياسر خليل أبو البراء]

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

أحاول أن أقوم بعملية تنشيط للمنتدى بهذه الموضوعات ، لعل وعسى أن يكون هناك تجاوب من قبل الأعضاء ، ويستفيدوا مما يقدم ..

أقدم لكم كود خفيف ما قبل النوم .. الكود بسيط جداً ، وهو ذو فائدة للمبتدئين حتى يتسنى لهم التعامل مع أوراق العمل ، سنتعبرها بداية ..

الملف المرفق مكون من 3 أوراق عمل ، الورقة الرئيسية Main وتحتوي على زر الأمر ، وورقة العمل Data المراد نسخ البيانات الموجودة فيها ، وورقة العمل Result  المراد لصق البيانات فيها

الكود المرفق يقوم بنسخ كامل البيانات من ورقة العمل Data ثم يقوم بتحديد ولصق البيانات المحفوظة في الحافظة Clipboard ويتم لصقها في ورقة العمل Result >> انتهى

الكود بهذا الشكل (مع شرح الأسطر في الكود)

Sub CopyEntireSheet()
    'تعريف المتغير من النوع مصنف
    Dim WB As Workbook
    'تعيين المتغير للمصنف الحالي الذي يحوي أوراق العمل المطلوب العمل عليها
    Set WB = ActiveWorkbook
    '[Data]نسخ النطاق المستخدم في ورقة العمل المسماة
    WB.Sheets("Data").UsedRange.Copy
    'ثم لصق البيانات الموجودة في الحافظة[Result]تحديد ورقة العمل المسماة
    With WB.Sheets("Result")
        .Select: .Paste
    End With
End Sub

أتمنى أن يفيدكم هذا الكود .. هذا الكود عملي ، وربما تحتاج لمثله كثيراً .

تقبلوا تحيات أخوكم أبو البراء (تصبحون على خير إخواني الكرام)

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

Copy Entire Data From One Sheet To Another.rar

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

ماشاء الله عليك الله يحفظك عمل رائع اخي ياسر

[ياسر خليل أبو البراء]

مشكور على مرورك العطر أبا إسماعيل

بارك الله فيك وجزيت خيراً على دعائك الطيب

[Yasser Fathi Albanna]

تسلم يا غالى