logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
noureddine70 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil برنامج فك حماية محرر الأكواد VBA وحماية unviewable اكسيل اسئله واجابات



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




موضوع مغلق


  • تمت الإجابة
14-01-2022 10:25 صباحاً
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
اساتذتي الكرام
في الملفات المرفقة احتاج الى كود يوضع في ملف تجميع البيانات يقوم بجلب الشيت من ملف راتب شهر 1 وراتب شهر 2 ووضعها بملف تجميع البيانات بحيث تكون كل شيت منفصلة عن الاخرى ولا يقوم بوضعها جميعها في شيت واحدة
attachجمع البيانات.rar
 
 
  جمع البيانات.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
المشاركات : 10525
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36745
الاعجاب : 182
السلام عليكم نبدأ بها أي موضوع
جرب الكود التالي عله يفي بالغرض إن شاء الله
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
المشاركات : 10525
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36745
الاعجاب : 182
وعليكم السلام أخي الكريم خالد
ومشكور على دعائك الطيب لأبي غفر الله له وتغمده برحمته التي وسعت كل شيء وأدخله الفردوس الأعلى من الجنة.

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



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

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



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

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



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

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





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

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









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

الساعة الآن 04:56 AM