أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





حفظ كل الشيتات في مصنف واحد

السلام عليكم ورحمة الله وبركاته الملف المرفق يصدر اكسيل قيم فقط الملف يعمل بشكل رائع لكن الحفظ كل شيت وحده اريد من الخب ..



07-05-2020 08:47 صباحا
bachiri401
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-05-2019
رقم العضوية : 13206
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 16-2-1984
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 18
 offline 

السلام عليكم ورحمة الله وبركاته
الملف المرفق يصدر اكسيل قيم فقط
الملف يعمل بشكل رائع لكن الحفظ كل شيت وحده 
اريد من الخبراء التعديل عليه ليقوم بحفظ كل الشيتات في مصنف واحد
وبارك الله فيكم .... عذرا ها هو ملف العمل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  شهادة مدرسية3.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(108.521) KB


07-05-2020 09:35 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حفظ كل الشيتات في مصنف واحد
تفضل أخي الكريم الكود التالي
ويراعى فيما بعد عند طرح سؤال أن تضع المزيد من التفاصيل حول الموضوع .. 
Sub Test()
    Dim wb As Workbook, ws As Worksheet, nm As Name, s As Long, e As Long, i As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(2)
        s = ws.Range("Q6").Value
        e = ws.Range("R6").Value
        If Not IsNumeric(s) Or Not IsNumeric(e) Then MsgBox "Invalid Numbers", vbExclamation: Exit Sub
        Set wb = Workbooks.Add(xlWBATWorksheet)
        For i = s To e
            ws.Range("Q6").Value = i
            ws.Copy After:=wb.Worksheets(wb.Worksheets.Count)
            With ActiveSheet
                .UsedRange.Value = .UsedRange.Value
                .DrawingObjects.Delete
                .Name = .Range("E10").Value
            End With
        Next i
        Application.DisplayAlerts = False
            wb.Worksheets(1).Delete
            On Error Resume Next
                For Each nm In wb.Names
                    nm.Delete
                Next nm
            On Error GoTo 0
            wb.SaveAs FileName:=ThisWorkbook.Path & "\Certificates.xlsx"
            wb.Close
         Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Done...", 64, "YasserKhalil Excel-Egy"
End Sub

07-05-2020 02:15 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif حفظ كل الشيتات في مصنف واحد
بعد اذن استاذنا الكريم ياسر خليل , عمل رائع وافضل من الممتاز بارك الله فيك استاذنا الكريم وزادك الله من فضله
أخى الكريم 
bachiri401 الملف يعمل بكفاءة عالية ويقوم بانشاء ملف اكسيل جديد تحت اسم Certificates ووضع فيه الشهادات المصدرة --شوف بنفسك وان كان لا يعمل معك فهناك مشكلة لديك انت ويجب حلها من تجاهك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Certificates.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(29.803) KB
  شهادة مدرسية4.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(115.305) KB

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

07-05-2020 02:38 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حفظ كل الشيتات في مصنف واحد
بارك الله فيك أخي العزيز علي وجزاك الله خيراً

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

07-05-2020 03:14 مساء
مشاهدة مشاركة منفردة [4]
bachiri401
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 30-05-2019
رقم العضوية : 13206
المشاركات : 13
الجنس : ذكر
تاريخ الميلاد : 16-2-1984
يتابعهم : 7
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif حفظ كل الشيتات في مصنف واحد
بارك الله فيكم يا خبراء
الملف يعمل بكفاءة عالية
ربي يجعلها في ميزان حسناتكم

07-05-2020 06:40 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif حفظ كل الشيتات في مصنف واحد
بارك الله فيك أخي الكريم وجزيت خيراً بمثل ما دعوت لنا وزيادة
الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات




الكلمات الدلالية
الشيتات ، مصنف ، واحد ،


 










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

الساعة الآن 01:13 مساء