بسم الله الرحمن الرحيم
اهلا بحضراتكم متابعى موقع عالم الاوفيس
معنا اليوم درس جديد ومهارة جديدة من امهارات الاكسل vba وكود جديد من اكواد مكتبة اكسل vbaاكسل vba ترحيل البيانات اتوماتيكيا الى عدد غير محدود من اوراق العمل بطريقة سهله وسريعه
كتيرا ما نحتاج فى عملنا الى عملية ترحيل البيانات الى اوراق عمل كثيرة فكنا نعتمد على طريقة copyنسخ البيانات paste ولصق البيانات فى كل شيت على حدة فكانت هذة الطريقة تاخذ منا الوقت والمجهود الكبير
الان من خلال كود من مكتبة اكواد اكسل vba نسيطيع بدون اى مجهود عمل ترحيل للبيانات بطريقة اوتوماتيكية وسهلة جدا
الان مع كيفية عمل الكود وهو كود سهل وبسيط جدا ومن سطر واحد
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets.FillAcrossSheets (Worksheets("sheet1").Range("a1:c50000"))
End Sub
Worksheets.FillAcrossSheets (Worksheets("sheet1").Range("a1:c50000"))
End Sub
هذا هو الكود سهل جدا وبسيط جدا
يرجى مشاهدة شرح الفيديو لمعرفة الية عمل الكود
جميل شكرا لمجهوداتك بالتوفيق
ردحذفجميل شكرا لمجهوداتك بالتوفيق
ردحذفجميل شكرا لمجهوداتك بالتوفيق
ردحذفجميل شكرا لمجهوداتك بالتوفيق
ردحذفشكرا كتير استاذ ان شاء الله في ميزان حسناتك،
ردحذفعندي سؤال لو سمحت
نفس الفكرة بس مع وجود شرط نقل البيانات
مثلا انا معلم ولدي طلاب اسجلهم اول العام مختلف الصفوف في شيت واحد بعد ذلك اعمل شيت لكل صف فهل يمكن وضع شرط نقل البيانات حسب الصف علما انه يوجد بالشيت الرئيسية اسم الصف لكل طالب جزاك الله خير استاذنا الفاضل
أزال المؤلف هذا التعليق.
ردحذفشكرا أستاذ
ردحذف