kinguter1 قام بنشر أغسطس 27, 2014 مشاركة قام بنشر أغسطس 27, 2014 اساتذتنا خبراء اكسيل السلام عليكم ورحمة الله وبركاته ارجو مساعدتى فى عمل الآتى عند إغلاق المصنف رقم0 1- فرز عمود الاسم ابجدياً فى الأوراق التى تحمل رقم من 1 إلى 10 ثم نسخ البيانات من a1:n حتى نهاية الجدول من نفس لأوراق . 2- لصق البيانات من كل ورقة إلى المصنف الذى يحمل نفس رقم الورقة ويبدأ اللصق من الخلية aa1 فى شيت maindata بكل مصنف . 3- مسح البيانات الموجودة فى maindata بكل مصنف قبل للصق حتى لا تتكرر البيانات . New Folder.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 1, 2014 مشاركة قام بنشر سبتمبر 1, 2014 السلام عليكم أخي العزيز تفضل المرفق ، إن شاء الله هو ماتريد الكود الموجود بالملف "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 رابط هذا التعليق شارك More sharing options...
kinguter1 قام بنشر سبتمبر 9, 2014 الكاتب مشاركة قام بنشر سبتمبر 9, 2014 اشكرك شكرا جزيلا يا استاذ طارق والله لقد قمت بعمل المطلوب على اكمل وجه وربنا يجعله فى ميزان حسناتك ان شاء الله ولى رجاء اخير ان امكن نريد شرح الكود سطر سطر حتى يستفيد الجميع هذة الأفكار المميزة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان