أحمد يوسف

أستاذ amr_ha2003 أين الضغط على الإعجاب ؟!!💙

أستاذ عبدالعزيز محمد أين الضغط على الإعجاب ؟!💙

أستاذ hanafymahmood أين الضغط على الإعجاب ؟!💙

أستاذ بومتعب أين الضغط على الإعجاب ؟! 💙

الاهلاوى 2007 أين الضغط على الإعجاب ؟💙

طبعاً فى مديول جديد

وعليكم السلام-يمكنك استخدام وتطويع هذا الكود Sub SplitWorkbook() Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss") FolderName = xWb.Path & "\" & xWb.Name & " " & DateString MkDir FolderName For Each xWs In xWb.Worksheets xWs.Copy If Val(Application.Version) < 12 Then FileExtStr = ".xls": FileFormatNum = -4143 Else Select Case xWb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If Application.ActiveWorkbook.HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum Application.ActiveWorkbook.Close False Next MsgBox "You can find the files in " & FolderName Application.ScreenUpdating = True End Sub

أستاذ hesham monzer1 أين الضغط على الإعجاب ؟! 💙

أستاذ محمود محمود احمد أين الضغط على الإعجاب ؟!💙

أستاذ yasser elbaz أين الضغط على الإعجاب ؟!💙

أستاذ راجي أين الضغط على الإعجاب ؟!💙

أستاذ oka123 أين الضغط على الإعجاب ؟!!💙

أستاذ oka123 أين الضغط على الإعجاب ؟!💙

تفضل -تم الحل والرد من قبل الأستاذ حسين مأمون test202020.xlsm

أستاذ malak 2018 أين الضغط على الإعجاب ؟!💙

وهل تتخيل وتتوقع انه يمكن العمل على التخمين ؟!!! فكيف تتم المساعدة بدون ملف مدعوم بشرح كافى ووافى عن المطلوب , مع وضع النتائج المرجوة فهذه المشاركة ما هي الا انها أدت لإهدار وقت الأساتذة بلا فائدة

أستاذ ehab hussien أين الضغط على الإعجاب ؟!!💙

المشكلة لديك انت كما توقعت فيجب عليك تفعيل والتعليم على هذا الخيار ايضا وهو Trust Access

أستاذ يوليوس قيصر أين الضغط على الإعجاب ؟! 💙

مفيش مشكلة بالملف فالملف يعمل معى بكل كفاءة- شوف بنــفسك

وهل يمكن العمل على التخمين ؟!! عليك برفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة , حتى تتمكن الأساتذة من مساعدتك -وتجنبا لعدم اهدار وقت الأساتذة لأن هذه المشاركة ادت الى اهدار وقت كل من قام بفتحها وتصفحها لأنه لم يستفد اى شيء منها

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

أستاذ النورس الذهبي أين الضغط على الإعجاب ؟!!💙

أستاذ MrTid أين الضغط على الإعجاب , طالما رضيت عن هذه الإجابة ؟!! 💙

وعليكم السلام-وبما انك لم تقم برفع ملف فتفضل هذا الفيديو فبه ما تريد فتح اكثر من ملف اكسل فى نافذة واحدة مع عماد غازى