أحمد يوسف

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

أستاذ 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 أين الضغط على الإعجاب , طالما رضيت عن هذه الإجابة ؟!! 💙

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

أستاذ Gamor أين الضغط على الإعجاب على هذه الإجابة الممتازة وهذا اقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟! 💙