ارجو المساعدة فى نسخ بيانات من مصنف الى عدة مصنفات اخرى

[kinguter1]

اساتذتنا خبراء اكسيل

السلام عليكم ورحمة الله وبركاته

ارجو مساعدتى فى عمل الآتى عند إغلاق المصنف رقم0

1- فرز عمود الاسم ابجدياً فى الأوراق التى تحمل رقم من 1 إلى 10 ثم نسخ البيانات من a1:n حتى نهاية الجدول من نفس لأوراق .

2- لصق البيانات من كل ورقة إلى المصنف الذى يحمل نفس رقم الورقة ويبدأ اللصق من الخلية aa1 فى شيت maindata بكل مصنف .

3- مسح البيانات الموجودة فى maindata بكل مصنف قبل للصق حتى لا تتكرر البيانات .

New Folder.rar

[طارق محمود]

السلام عليكم
أخي العزيز

تفضل المرفق ، إن شاء الله هو ماتريد

الكود الموجود بالملف "0.xlsm" كالتالي

Sub Tarheel()
PT = ActiveWorkbook.Path
Application.DisplayAlerts = False

For sh = 1 To 10
nm = Format(sh, "@")
Sheets(nm).Activate
LR = [A9999].End(xlUp).Row
    With Sheets(nm)
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=[I2], SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
        With .Sort
            .SetRange Range("A2:N" & LR)
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
   End With
   
    Range("A1:N" & LR).Copy
    Workbooks.Open Filename:=PT & "\" & nm & ".xlsm"
    Sheets("maindata").Select
    Range("AA1").Select
    ActiveSheet.Paste
    ActiveWorkbook.Close (True)
Next

Application.DisplayAlerts = True
End Sub

 

kinguter.rar

[kinguter1]

اشكرك شكرا جزيلا يا استاذ طارق 

والله لقد قمت بعمل المطلوب على اكمل وجه

وربنا يجعله فى ميزان حسناتك ان شاء الله

ولى رجاء اخير ان امكن 

نريد شرح الكود سطر سطر حتى يستفيد الجميع هذة الأفكار المميزة