مداد_1423 قام بنشر فبراير 16, 2019 مشاركة قام بنشر فبراير 16, 2019 (معدل) السلام عليكم تحية طيبة وبعد عندي ملف أجمع فيه بيانات من عدة ملفات المطلوب يا سادة: أولاً: تجميع شيت المسمى Overtime من كل الملفات في المجلد test الكود حاليا يجمع كل الشيتات ، وأنا أريد شيت واحد من كل الملفات ثانياً: أيضاً أريد الإبقاء على شيت ALL بجوار شيت NEP_HR حالياً عند تجميع الملف يقفز شيت ALL إلى الأخير ثالثاً: تجميع كل الـModual في واحد ليكون زر واحد يختصر لي الجميع غفر الله لكل من مرّ هنا ، وجزى الله خيرا من ساعدني الملفات بالمرفقات HR.zip تم تعديل فبراير 16, 2019 بواسطه مداد_1423 رابط هذا التعليق شارك More sharing options...
مداد_1423 قام بنشر فبراير 17, 2019 الكاتب مشاركة قام بنشر فبراير 17, 2019 للرفع ، وفي الرفع نفع . وبالمناسبة الكود رائع جدا في تجميع الملفات من مجلد واحد ويقوم بتجميع جميع الشيتات في جميع الملفات ويضعها في ملف واحد *ولكن أنا أريد تجميع شيت واحد فقط من كل ملف *وأريد الأبقاء على شيت ALL الشيت الثاني في الترتيب بجوار شيت Nep_HR أما الطلب الأخير تجميع الأكواد في كود واحد، أتوقع بسيط على أي مبتدئ في الـVBA وللتسهيل: الكود الذي أريد التعديل عليه. =========================================================== Sub ALL() Dim Path As String Dim Filename As String Dim SH As Worksheet Dim X As Long X = 1 Path = ThisWorkbook.Path & "\Test\" Filename = Dir(Path & "*.xlsx") Application.ScreenUpdating = False Application.DisplayAlerts = False For Each SH In ThisWorkbook.Sheets If SH.Name <> "Nep_HR" And SH.Name <> "ALL" Then SH.Delete Next SH Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each SH In ActiveWorkbook.Sheets SH.Copy After:=ThisWorkbook.Sheets(X) X = X + 1 Next SH Workbooks(Filename).Close Filename = Dir() Loop Sheets("Nep_HR").Activate Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub ============================ تحياتي رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 17, 2019 مشاركة قام بنشر فبراير 17, 2019 السلام عليكم تم عمل المطلوب في الملف المرفق... تركت الأزرار الأربعة للأكواد في الملف (التي يمكن حذفها)... وأنشأت كودا سميته Global_Operations لتنفيذ العمليات الأربعة على التوالي (عمل الأكواد الأربعة) وربطته بزر سميته "تجميع الملفات والبيانات وحذف الأصفار والفراغات"... بن علية حاجي Nep_ALL_HR.rar 3 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر فبراير 17, 2019 مشاركة قام بنشر فبراير 17, 2019 بارك الله فيك استاذ بن علية حل ممتاز لابد لكل من يقوم بطرح المشاركة والحصول على الإجابة المطلوبة والمرجوة اعطاء صاحب الفضل والأستاذ الكريم الذى انعم الله عليه من فضله حقه بمعنى الضغط له على الإعجاب او الشكر واعتقد ان هذا هو اقل ما تقدمه له بارك الله فيكم جميعا اساتذتنا الكرام لكم الفضل بعد ربنا فى تعلمنا الإكسيل جعل الله كل هذه الأعمال فى ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
مداد_1423 قام بنشر فبراير 17, 2019 الكاتب مشاركة قام بنشر فبراير 17, 2019 أستاذنا: بن علية حاجي بارك الله فيك ونفع بعلمك وغفر ذنبك ورزقك من حيث لا تحتسب كل ما تمنيته في هذا الملف تحقق على يدك فعلا هذا هو المطلوب أشكرك أستاذي من الأعماق ولك من خالص الدعاء وكثر الله من أمثالك ، وجعل ما قدمته في موازين حسناتك تحياتي يا كبير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.