مهند محسن

وعليكم السلام-ارفع من فضلك بسرعة ملف مدعوم بشرح كافى عن المطلوب حتى تتمكن الأساتذة من مساعدتك

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

تجنباً لإهدار وقت الأساتذة ... فعليك برفع ملف مدعوم بشرح كافى عن المطلوب حتى تتم المساعدة وشكراً !!!

بالتأكيد لا يستطيع احد مساعدتك بدون رفع ملف مدعوم بشرح كافى عن المطلوب .... ولابد ان تنتبه ان المنتدى تعليمى من المقام الأول وليس لتقديم البرامج الجاهزة !!!

أحسنت استاذ محي وهو بالفعل المطلوب أكرمك الله وزادك الله من فضله وأحسن الله اليك وبارك الله فى اولادك

السلام عليكم اساتذتى الكرام أرجو التعطف والتكرم على مساعدتى فى ايجاد معادلة لجلب جميع الأسماء من ثلاثة صفحات(Bonus,Shopping,Excursion) بالملف بدون تكرار ووضعهم بصفحة Total ولكم جزيل الشكر وبارك الله فيكم جميعا Total Comm October 2021.xlsm

ارفع من فضلك الملف كيف تتمكن الأساتذة من مساعدتك فلا يمكن العمل من خلال الصورة ؟!!!

أين الملف ؟!!!!

وعليكم السلام ... لا تنتظر المساعدة من أحد بدون رفع الملف نفسه وتوضيح المطلوب عليه بكل دقة فلا يمكن العمل على التخمين او من خلال الصورة !!!

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

انتبه من فضلك فطلبك ليس بالسهل او الهين فهو صعب ... لأنك تريد تصميم فورم كامل بكل أكواده .. فعليك التحلى بالصبر فليس هناك من لديه وقت لعمل كل هذا !!!!!

وعليكم السلام أخى الكريم هذا ممنوع هنا فهذا يعتبر مجهود المؤلف ان أردت معرفة كلمة السر للملف ... فعليك بالإتصال مباشرة بمصصم هذا البرنامج وشكراً

وعليكم السلام وألف مبروك ودائماً فى أعلى الدرجات ..لا يمكن عمل هذا حيث لا وجود لصلاحية مستخدين بملف الشير فلا يمكن عمل هذا الا بأكواد Vba وهذا غير مسموح بإستخدامه بملفات الإكسيل الموجودة على الشير وشكراً !!

وعليكم السلام-لا يمكن العمل على التخمين ... ارفع من فضلك ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة وشكراً !!!!

وذلك بسبب حماية الخلايا الذى قمت بعملها عليك بإلغاء هذه الحماية !!!!

بسيطة جداً عليك برفعه على موقع خارجى مثل ميديا فاير ... ثم بعد ذلك وضع رابط الرفع هنا وشكراً

محمد ابو اكرم ولما لم تقم انت من البداية برفع ملف توضيحى لما تريد تجنباً لكل هذا ... وتجنباً لإهدار الوقت دون داعى

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(C19=$F$7,$E$8,"")

ارفع من فضلك ملف موضح فيه كل المطلوب بدقة عالية فلا يمكن العمل على التخمين ؟!!!!

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

وعليكم السلام لا يمكن العمل هكذا وتجنباً لإهدار الوقت وبما انه لا يمكن العمل على التخمين ... فعليك برفع الملف حتى نتمكن من عمل المطلوب بكل دقة

وعليكم السلام-بالطبع هذا أمر طبيعى وبديهى ان لا يعمل الملف على اكسل اونلاين او قوقل شييت وذلك لإحتواء الملف على أكواد VBA ... وشكراً

وأنتم طيبين وبخير وسعادة

وعليكم السلام-جرب هذا الفيديو أو جرب هذا الموقع Microsoft Has Stopped Working

يمكنك استخدام هذا البرنامج الموجود بهذا الرابط وذلك بما انك قمت برفع الملف محمى بكلمة سر كما انك قمت برفع الملفات فارغة بدون اى بيانات: برنامج دمج ملفات الإكسيل فى ملف واحد Excel Merger أو يمكنك استخدام هذا الكود Sub MergeExcelFiles() Dim fnameList, fnameCurFile As Variant Dim countFiles, countSheets As Integer Dim wksCurSheet As Worksheet Dim wbkCurBook, wbkSrcBook As Workbook fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True) If (vbBoolean <> VarType(fnameList)) Then If (UBound(fnameList) > 0) Then countFiles = 0 countSheets = 0 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set wbkCurBook = ActiveWorkbook For Each fnameCurFile In fnameList countFiles = countFiles + 1 Set wbkSrcBook = Workbooks.Open(FileName:=fnameCurFile) For Each wksCurSheet In wbkSrcBook.Sheets countSheets = countSheets + 1 wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count) Next wbkSrcBook.Close SaveChanges:=False Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files" End If Else MsgBox "No files selected", Title:="Merge Excel files" End If End Sub