نسخ بيانات من شيت الي شيت أخر

[حسين الايوبي]

لو سمحتم كيف يمكن اضافة بيانات من شيت رئيسي به كل العملاء الي شيت أخر  واضافتها تلقائي الي الشيت أخر مسمي  باسم عميل معين

هذا مثال معين 

عملاء.xlsx

[Ali Mohamed Ali]

اهلا بك اخ كريم فى المنتدى لك ما طلبت

 

عملاء.xlsm

[سليم حاصبيا]

بعد اذن اخي علي

كود اسرع قليلاُ لا يقوم بقراءة البيانات صفاُ بعد صف

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

 

[حسين الايوبي]

انا اسف يا أخ علي

, علي تعبك معايا بس انا اسف انا كنت محتاج انه يأخذ البيانات يرحلها اوتوماتيك بدون حذف البيانات في الجدول الرئيسي لأني محتاج البيانات في الجدول الرئيسي كمرجع شامل ولكن البيانات في الجداول الفرعية مرجع لتحصيل المالية وشكرا علي تعبكم معايا 

[Ali Mohamed Ali]

تمام كود استاذنا الكبير سليم يفى بالغرض جربه

بارك الله فيك