مداد_1423

للرفع ، وفي الرفع نفع . وبالمناسبة الكود رائع جدا في تجميع الملفات من مجلد واحد ويقوم بتجميع جميع الشيتات في جميع الملفات ويضعها في ملف واحد *ولكن أنا أريد تجميع شيت واحد فقط من كل ملف *وأريد الأبقاء على شيت 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 ============================ تحياتي

السلام عليكم تحية طيبة وبعد عندي ملف أجمع فيه بيانات من عدة ملفات المطلوب يا سادة: أولاً: تجميع شيت المسمى Overtime من كل الملفات في المجلد test الكود حاليا يجمع كل الشيتات ، وأنا أريد شيت واحد من كل الملفات ثانياً: أيضاً أريد الإبقاء على شيت ALL بجوار شيت NEP_HR حالياً عند تجميع الملف يقفز شيت ALL إلى الأخير ثالثاً: تجميع كل الـModual في واحد ليكون زر واحد يختصر لي الجميع غفر الله لكل من مرّ هنا ، وجزى الله خيرا من ساعدني الملفات بالمرفقات HR.zip

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

استاذي : أبو عيد ، جزاك الله خير الجزاء هذا هو المطلوب بارك الله فيك وكثر الله من أمثالك لك دعوة من الحرم إن شاء الله يوم الجمعة قال تعالى: (ولقد بوأنا بني إسرائيل مبوأ صدق ورقناهم من الطيبات)ـ

السلام عليكم تحية طيبة أعزائي مشكلتي الجهاز عندي بواجهة إنجليزية والترقيم التلقائي في وورد يظهر الأرقم فقط أنقليزي ، ولكن الأرقم حين إدخالها يدوياً ممكن تكون عربي أو أنجليزي تحياتي

للرفع ... وفي الرفع نفع.

السلام عليكم تحية طيبة عندي ملف عملت عليه ماكرو لفتح ملف آخر في نفس الجهاز Sheets("HR").Select ChDir "D:\HR\Ini" Workbooks.Open Filename:="D:\HR\Ini\1.xlsx" Range("A4:AI200").Select والمطلوب يا سادة : بغيت أفتح ملف 1.xlsx من نفس مجلد الملف المرفق NEP_Ini.xlsm ولا أريد أن أبقى دائماً في مجلد D:\HR\Ini لأني أريد أن أعمل مجلد لكل شهر ومن الصعب كتابة المسار لكل ملف 1.xlsx NEP_Ini.xlsm

+1 أضم صوتي لصوتك

السلام عليكم تحية طيبة هل يوجد كودVBA للصق المنسوخ كقيم فقط المقصود مشروح في الصورة المتحركة ويوجد ملف في المرفقات لتطبيق الشرح عليه مع الشكر مقدماً لكل من مر هنا وأخص بالشكر من ساعدني في حل مشكلتي S_HR.xlsx

أستاذنا ali mohamed ali سلمت يمينك ولا عدمناك شكر الله لك ، ونفع الله بك، وجزاك الله خيراً حاولت أرسل لك خاص ما قدرت لأن يوزري لا يؤهلني للرسائل الخاصة يا ليت ترسل لي إيميلك على الخاص بعد ما تشاهد هذا الموضوع تحياتي يا كبير

السلام عليكم تحية طيبة وبعد عندي ملف فيه صفين: أريد أن أضع شرط للوقت الإضافي بأن لا يزيد عن أربع ساعات إلا إذا كان الموظف في حالة إجازة أسبوعية مع العلم أن رمز الإجازة الأسبوعية في الملف (0) صفر صورة توضيحية للمطلوب الملف في المرفقات تنسيق شرطي.xlsx

السلام عليكم تحية طيبة يوجد عندي ملف من أربع شيتات الأول رئيسي الثاني جدول حضور وغياب الثالث الأوفرتايم الرابع جدول الدوام مطلوب عدة مهام على الملف أهمها في الشيت الرئيسي إذا كتب رقم الموظف يحضر اسمه وبياناته من كل الشيتات، ويُسمح بالتعديل على بيانات الموظف سواء الأوفرتايم أو الجدول أو الحضور ثم يكون فيه أيقونة عند الضغط عليها ترحل بيانات الأوفرتايم في شيت الأوفرتايم وبينات الجدول في بيانات الجدول وبيانات الحضور في شيت الحضور للتواصل ALG3WI@GMAIL.COM

أستاذي ali mohamed ali أشكرك جزيل الشكر ، ولك مني الدعاء فعلاً هذا ما أريده بالضبط .. فرجت عني الله يفرج عنك كل كربة تحياتي

السلام عليكم تحية طيبة عندي أسماء موظفين مع أرقامهم وأقسامهم في شيت أريد أن أعمل قائمة منسدلة بالأقسام ، بحيث إذا اخترت القسم يظهر أسماء الموظفين في القسم وأرقامهم الملف مرفق إذا كان بالمعادلات أفضل من استخدام الكود مع الشكر مسبقاً لكل من مر هنا وأخص بالشكر من ساعدني في حل مشكلتي Excel_hr.xls