تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

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

اهلا بحضراتكم متابعى موقع عالم الاوفيس

معنا اليوم درس جديد ومهارة جديدة من امهارات الاكسل  vba وكود جديد من اكواد مكتبة اكسل vba

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets.FillAcrossSheets (Worksheets("sheet1").Range("a1:c50000"))
End Sub

هذا هو الكود سهل جدا وبسيط جدا 

يرجى مشاهدة شرح الفيديو لمعرفة الية عمل الكود