logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
michel Sadek ali mohamed ali-- لا تميز خلال هذه الفترة Yasser Elaraby لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
14-01-2022 10:25 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
اساتذتي الكرام
في الملفات المرفقة احتاج الى كود يوضع في ملف تجميع البيانات يقوم بجلب الشيت من ملف راتب شهر 1 وراتب شهر 2 ووضعها بملف تجميع البيانات بحيث تكون كل شيت منفصلة عن الاخرى ولا يقوم بوضعها جميعها في شيت واحدة
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  جمع البيانات.rar   تحميل rar مرات التحميل :(9)
الحجم :(24.919) KB





look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  14-01-2022 10:27 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
مرفق صورة بشكل نتيجة البيانات




look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  14-01-2022 10:53 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
السلام عليكم نبدأ بها أي موضوع
جرب الكود التالي عله يفي بالغرض إن شاء الله
CODE
Sub Test()
    Dim wb As Workbook, ws As Worksheet, sPath As String, fn As String
    Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> "Sheet1" Then ws.Delete
        Next ws
        Application.DisplayAlerts = True
        sPath = ThisWorkbook.Path & "\"
        fn = Dir(sPath & "*.xls*")
        Do While fn <> ""
            If fn <> ThisWorkbook.Name Then
                Set wb = Workbooks.Open(sPath & fn, , True)
                wb.Worksheets(1).Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
                ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count).Name = Replace(fn, ".xlsx", "")
                wb.Close False
            End If
            fn = Dir
        Loop
        Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1")
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: هانى على، ابراهيم الحداد، علي بطيخ سالم، ali mohamed ali، hassona229،



look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  14-01-2022 06:32 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
السلام عليكم استاذ ياسر
حل رائع قام بالمطلوب على اكمل وجه
رحم الله والدك واسكنه فسيح جنانه
بارك الله فيك

أثارت هذه المشاركة إعجاب: YasserKhalil، hassona229،



look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  14-01-2022 07:26 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
وعليكم السلام أخي الكريم خالد
ومشكور على دعائك الطيب لأبي غفر الله له وتغمده برحمته التي وسعت كل شيء وأدخله الفردوس الأعلى من الجنة.

أثارت هذه المشاركة إعجاب: علي بطيخ سالم، hassona229،



look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  14-01-2022 07:28 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 274
الجنس :
تاريخ الميلاد : 30-10-1982
الدعوات : 1
قوة السمعة : 987
الاعجاب : 12
عوداً أحمد استاذنا الاستاذ ياسر ونسأل الله أن يغفر للوالد وأن يرحمه وأن يسكنه فسيح جناته وموتانا أجمعين

أثارت هذه المشاركة إعجاب: hassona229، YasserKhalil،



look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  15-01-2022 12:23 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 801
الدولة : مصر
الجنس :
تاريخ الميلاد : 13-9-1980
قوة السمعة : 3939
الاعجاب : 22
اللهم اغفر للوالد الكريم ويجعل ما تقوم به اخى الغالى ياسر ابو البراء في ميزان حسناتك وحسناته يوم القيامه

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif تجميع الشيتات من ملفات مختلفة ووضعها في ملف اخر
  15-01-2022 04:43 صباحاً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10510
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36676
الاعجاب : 161
أخي العزيز علي سالم
اخي العزيز حسونة
بارك الله فيكما وجزيتما خيراً على دعواتكم الطيبة.

أثارت هذه المشاركة إعجاب: hassona229،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
محتاج كود لجمع الشيتات في شيت واحد saad mohamed
1 714 saad mohamed
كود لزر التنقل بين الشيتات ayoub2007
3 927 hassona229
كومبوبوكس بأسماء الشيتات في ملف إكسيل YasserKhalil
11 2600 hassona229
السلام عليكم ورحمة الله وبركاته اريد ان يبحث هذا الكود في كل الشيتات وليس شيت محدد Elsayed EL-Diasty
1 752 Elsayed EL-Diasty
بحث بالاسم في جميع الشيتات عن طريق اليوزر فورم شبل
3 1135 مهند محسن

الكلمات الدلالية
تجميع ، الشيتات ، ملفات ، مختلفة ، ووضعها ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 12:16 PM