Ali Mohamed Ali

تفضل هذ الكود يقوم بعمل حفظ لكل ورقة منفصلة بملف منفصل Option Explicit Sub SplitWorkbook() 'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ ÇáäÕí Dim xPath As String 'ÊÚÑíÝ ÇáãÊÛíÑ ãä ÇáäæÚ æÑÞÉ Úãá Dim SH As Worksheet 'ÊÚííä ÇáãÊÛíÑ áÊÓÇæí ÞíãÊå ãÓÇÑ ÇáãÕäÝ ÇáÍÇáí xPath = Application.ActiveWorkbook.Path 'ÅáÛÇÁ ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ Application.ScreenUpdating = False 'ÅáÛÇÁ ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå Application.DisplayAlerts = False 'ÍáÞÉ ÊßÑÇÑíÉ áßá ÃæÑÇÞ ÇáÚãá ÈÇáãÕäÝ For Each SH In ThisWorkbook.Sheets 'äÓÎ æÑÞÉ ÇáÚãá SH.Copy 'ÍÝÙ æÑÞÉ ÇáÚãá ÈäÝÓ ÇáÇÓã æäÝÓ ÇáãÓÇÑ Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'ÅÛáÇÞ ÇáãÕäÝ ÇáÌÏíÏ æÇáÐí ÃÕÈÍ åæ ÇáãÕäÝ ÇáäÔØ Application.ActiveWorkbook.Close False 'ÇáÇäÊÞÇá áæÑÞÉ ÇáÚãá ÇáÊÇáíÉ Next 'ÊÝÚíá ÎÇÕíÉ ÑÓÇÆá ÇáÊäÈíå Application.DisplayAlerts = True 'ÊÝÚíá ÎÇÕíÉ ÇåÊÒÇÒ ÇáÔÇÔÉ Application.ScreenUpdating = True End Sub

أخى الكريم عليك بوضع اسم جهازك فى هذا المكان من الكود فعلى سبيل المثال اسم جهازى AliMohamed بارك الله فيك

وعليكم السلام اهلا بك اخى الكريم بالمنتدى هناك العديد من الموضوعات ناقشت هذه الجزئية عليك بإستخدام خاصية البحث فى المنتدى ومنها : https://www.officena.net/ib/topic/85473-حساب-فاتورة-بطريقة-خاصة/?tab=comments#comment-542032

الحفظ لكل الملف

وعليكم السلام تفضل زر الحفظ والخروج.xlsm

أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح عليه ما تريد بالتفصيل بارك الله فيك

تفضل اخى الكريم محمد اعمال يومية3.xlsm

بارك الله فيك وجزاك الله كل خير وجعله الله فى ميزان حسناتك

بارك الله فيك وجعله الله فى ميزان حسناتك

تفضل اعمال يومية3.xlsm

أهلا بك اخى الكريم فى المنتدى كان عليك استخدام خاصية البحث فى المنتدى فهذا الموضوع تم مناقشته من قبل تفضل https://www.officena.net/ib/topic/80528-الرجاء-المساعدة-في-برنامج-البيع-بالتقسيط/?tab=comments#comment-514578

أحسنت بارك الله فيك وجزاك الله كل خير

اهلا بك فى المنتدى عليك بتتبع الصورتين حتى يمكنك تغيير اللون الأحمر الى ما تريده وهذا يتم من خلال التنسيقات الشرطية (Conditional Formatting)

تفضل لك ما طلبت 2قائمة منسدلة مطاطية.xlsm

أحسنت استاذى الكريم بارك الله فيك عمل رائع جزاك الله كل خير

تفضل لك ما طلبت قائمة منسدلة مطاطية.xlsm

وعليكم السلام يمكنك عمل هذا حتى بدون اكواد عليك بمشاهدة هذا الفيديو https://www.youtube.com/watch?time_continue=1&v=1xHS1snXRKs

بارك الله فيك استاذ ابراهيم وزادك الله من فضله

وعليكم السلام احسنت بارك الله فيك

لأ اخى الكريم ليس هذا المطلوب يجب عليك وضع بين الأقواس اسم جهازك انت فعلى سبيل المثال جهازى كالأتى مع اسم جهازى Select Case Environ("AliMohamed")

جرب هذا الملف بمجرد كتابة الحرف الأول والثانى مثلا ثم اضغط على انتر يتم كتابة الإسم كاملا Search.xlsm

وضح بالتفصيل لو سمحت على الملف لما تريده

استاذى الكريم المفروض تغيير اللى بين الأقواس فى هذا السطر من الكود الى اسم جهازك Select Case Environ("COMPUTERNAME")

ملف ممتاز احسنت استاذ سليم بارك الله فيك

وعليكم السلام تم عمل اللازم عليك اختيار الإسم فقط من القائمة المنسدلة والباقى سيأتى تلقائيا بالمعادلات Search.xlsx