-->

عالم الاوفيس :اكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه Transfer Data Automaticaly

بسم الله الرحمن الرحيم 



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

اكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه
كتيرا ما نحتاج فى عملنا الى عملية ترحيل البيانات الى اوراق عمل كثيرة فكنا نعتمد على طريقة copyنسخ البيانات paste ولصق البيانات فى كل شيت على حدة فكانت هذة الطريقة تاخذ منا  الوقت والمجهود الكبير  


الان من خلال كود من مكتبة اكواد اكسل vba نسيطيع بدون اى مجهود عمل ترحيل للبيانات بطريقة اوتوماتيكية وسهلة جدا

الان مع كيفية عمل الكود وهو كود سهل وبسيط جدا ومن سطر واحد

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets.FillAcrossSheets (Worksheets("sheet1").Range("a1:c50000"))
End Sub
هذا هو الكود سهل جدا وبسيط جدا 
يرجى مشاهدة شرح الفيديو لمعرفة الية عمل الكود

 

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. جميل شكرا لمجهوداتك بالتوفيق

    ردحذف
  2. جميل شكرا لمجهوداتك بالتوفيق

    ردحذف
  3. جميل شكرا لمجهوداتك بالتوفيق

    ردحذف
  4. جميل شكرا لمجهوداتك بالتوفيق

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

    ردحذف