حسين الايوبي قام بنشر نوفمبر 17, 2018 مشاركة قام بنشر نوفمبر 17, 2018 لو سمحتم كيف يمكن اضافة بيانات من شيت رئيسي به كل العملاء الي شيت أخر واضافتها تلقائي الي الشيت أخر مسمي باسم عميل معين هذا مثال معين عملاء.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 17, 2018 مشاركة قام بنشر نوفمبر 17, 2018 اهلا بك اخ كريم فى المنتدى لك ما طلبت عملاء.xlsm 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر نوفمبر 17, 2018 مشاركة قام بنشر نوفمبر 17, 2018 بعد اذن اخي علي كود اسرع قليلاُ لا يقوم بقراءة البيانات صفاُ بعد صف Option Explicit Sub tranfer_data() Dim x Dim arr(), k%: k = Sheets.Count - 1 Dim my_rg As Range Set my_rg = Sheets("المنتجات").Range("a1").CurrentRegion For x = 2 To k ReDim Preserve arr(1 To x - 1): arr(x - 1) = Sheets(x).Name Sheets(x).Cells.ClearContents Next For x = LBound(arr) To UBound(arr) my_rg.AutoFilter 1, arr(x) my_rg.SpecialCells(12).Copy _ Sheets(arr(x)).Range("a1") Next Erase arr 1 رابط هذا التعليق شارك More sharing options...
حسين الايوبي قام بنشر نوفمبر 20, 2018 الكاتب مشاركة قام بنشر نوفمبر 20, 2018 انا اسف يا أخ علي , علي تعبك معايا بس انا اسف انا كنت محتاج انه يأخذ البيانات يرحلها اوتوماتيك بدون حذف البيانات في الجدول الرئيسي لأني محتاج البيانات في الجدول الرئيسي كمرجع شامل ولكن البيانات في الجداول الفرعية مرجع لتحصيل المالية وشكرا علي تعبكم معايا رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر نوفمبر 20, 2018 مشاركة قام بنشر نوفمبر 20, 2018 تمام كود استاذنا الكبير سليم يفى بالغرض جربه بارك الله فيك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان