ياسر خليل أبو البراء

الأخ الحبيب الغالي .. الأخ الغائب عن العين الحاضر في القلب دائماً لكم اشتقت إليك واشتقت إلى تواجدك معنا بالمنتدى الله وحده يعلم مدى حبي لك في الله .. وغلاوتك في قلبي ... وننتظرك دائما وأبدا متواجدا معنا بشكل دائم كما عهدناك سابقاً ... أشهد الله وأشهد جميع خلقه وكل من بالمنتدى (إني أحبك في الله) جمع الله بيننا في الفردوس الأعلى من الجنة (قوووووووووول آمين يا سالم) :fff:

بارك الله فيك أخي الحبيب محمد الريفي بالنسبة للدالة التي ذكرتها قمت بتغيير اسمها لتوؤدي نفس الغرض الدالة تعمل .. المشكلة في العمود الأول A لديك في الملف بقالي ساعة جنب الملف بتاعك لما عيني طلعت عشان أعرف الغلطة فين والله عندي دالة شبيهة بدالتك تؤدي نفس الغرض .. ولكن تركيبة الدالة مختلفة بعض الشيء دالتي أسهل من دالتك ههههههههه عموما قمت بإرفاق ملفك بعد التعديل قليلا عليه قمت بتنسيق العمود الأول A كنص (Text) ثم دبل كليك في كل خلية من الخلايا التي بها قيم في النطاق A2:A11 المهم جرب الملف التالي وشوف النتيجة .. واختار الدالة اللي تعجبك أو اكتفي بالمعادلة التي تفضل بها الأخ الغالي محمد الريفي لأنها تؤدي الغرض GetData GetRC UDF Functions.rar

تفضل وإن كنت أحبذ دائما أن تكون الطلبات بعنوان واضح في موضوع مستقل =SUMIFS($A$1:$A$10,$A$1:$A$10,">="&20,$A$1:$A$10,"<="&50) بفرض أن الأرقام في النطاق A1:A10 ...

أخي وتم الرد على أول مشاركة .. ولا أفهم المشكلة الآن !!!!!!!!!!!!!!!!!!!!!! عموما جرب الملف التالي .. لعله يفي بالغرض .. وأستسمحك أخي الحبيب لا تفترض أن الجميع يفهم ما تقوله بكل وضوح (اعذرني فأنا بطيء بعض الشيء في مسألة الفهم ،ولكن إذا فهمت الأمر استوعبته تماما وبدأت أتعامل معه .. فالرجاء المعذرة) تحويل.rar

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

جرب الكود Sub CopySpecificSheetFromDifferentWorkbooks() Dim FolderPath As String, FileName As String Dim WorkBk As Workbook Dim SourceSheet As Worksheet Dim I As Long I = 1 FolderPath = ThisWorkbook.Path & "\Files\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" Set WorkBk = Workbooks.Open(FolderPath & FileName) Set SourceSheet = WorkBk.Worksheets("Sheet1") SourceSheet.Copy After:=Workbooks(ThisWorkbook.Name).Sheets(I) ActiveSheet.Name = Mid(WorkBk.Name, 20, 1) I = I + 1 WorkBk.Close savechanges:=False FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub

أخي الكريم ياسر الشيخ إليك مرفق فيه طلبك ... بس على ملفات تجربة من عندي .. ضع ملفاتك المسماة Daily Plant Report في مجلد باسم Files وضع المصنف الرئيسي خارج المجلد كما هو موضح بالمرفق .. ادخل على المصنف الرئيسي وقم بتغيير الكود ليناسب طلبك .. قم بتغيير كلمة Sheet1 إلى Safety في الكود Sub CopySpecificSheetFromDifferentWorkbooks() Dim FolderPath As String, FileName As String Dim WorkBk As Workbook Dim SourceSheet As Worksheet Dim I As Long I = 1 FolderPath = ThisWorkbook.Path & "\Files\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" Set WorkBk = Workbooks.Open(FolderPath & FileName) Set SourceSheet = WorkBk.Worksheets("Sheet1") SourceSheet.Copy After:=Workbooks(ThisWorkbook.Name).Sheets(I) ActiveSheet.Name = I I = I + 1 WorkBk.Close savechanges:=False FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub Copy Specific Sheet From Different Workbooks.rar

الأخ الحبيب جرب الملف التالي عله يفي بالغرض إن شاء الله Change Print Area.rar

يمكن سيادتك بتستخدم أوفيس 2003 !!!!!!!!!!! وأنا مقاطع هذا الأوفيس الذي عفا عليه الزمان ( 2015 - 2003 = 12 سنة ) مش كفاية كدا 2003 !! دا مجرد رأي شخصي الدالة EOMONTH لا أعتقد أنها موجودة في 2003 عموما جرب ومش هتخسر حاجة افتح قايمة Tools أي أدوات يمكن يكون الأوفيس عندك عربي ، واختر AddIns أي وظائف إضافية وعلم علامة صح على Analysis ToolPak وأوك .. وشوف هل الخطأ سيختفي أم لا؟ إذا لم يختفي ..فجرب تقوم بتنصيب أوفيس 2007 أو 2010 أو 2013 أو انتظر النسخة القادمة وخليك مع الجديد عشان تلاقي كل ما هو مفيد ...

يرجى من السادة المشرفين تغيير عنوان الموضوع ليناسب طلب الأخ السائل تقبلوا تحياتي

صراحة أنا لا أجيد التصميم ولكن خطرت لي فكرة قد تعجبك قمت بإدراج صورة الشيك ووضع TextBox مكان الاسم وآخر مكان التاريخ ويمكن ببساطة التعديل على الاسم والتاريخ Cheque.rar

الأخ الفاضل .. قم بكتابة الشهر الذي ترغب في الخلية H1 ..اكتب بداية الشهر مثلا 1/1/2015 فرز الكمية حسب الشهور.rar

غير الرقم 1 في المعادلة إلى 0 حتى يكون البحث بشكل منضبط وليس بشكل تقريبي أو يمكنك استخدام الدالة Vlookup جرب الملف التالي 09-فرز المنتج مع إظهار السعر.rar

ما هو اسم البرنامج الذي قام بتحويل صفحتين فقط .. وهل التحويل تم بشكل منضبط ؟؟

ونعم الاقتراحات أبو ايمان بارك الله فيك ..أعتقد أنها فكرة جيدة وهذا منطلق لفكرة أنك إذا لم تستطع تنفيذ نقطة معينة فعليك بتغيير طريقة تفكيرك فقد تصل وإن شاء الله تصل لما هو أفضل مما كنت قد توقعت (مش فاهم الكلام اللي بقوله ..حاسس إن الكلام كبير شوية عليا !!!) تقبلوا تحياتي

الأخت الفاضلة أهلا بك في المنتدى .. يا ريت ترفقي صورة لشكل الشيك البنكي ..أو تصور لما تريدينه

أخي الفاضل جرب الملف التالي فرز الكمية.rar

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

حلها بسيط إن شاء الله ضع في أول المعادلة Iferror وفي آخر المعادلة فاصلة ثم "" واقفل القوس =IFERROR(INDEX(PRIX!$C$2:$C$45,MATCH('عمل يومي'!$C5,PRIX!$B$2:$B$45,0)),"") دا على سبيل المثال .. والخطأ طبيعي بسبب عدم وجود مثل هذا البند في البحث

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

أعتذر عن التأخير حيث أنني منشغل قليلا جرب الكود Sub TransferData() Dim WS As Worksheet, SH As Worksheet, Cell As Range, Cel As Range, X Set WS = Sheets("الادخال"): Set SH = Sheets("الشهور") For Each Cell In WS.Range("A5:A" & WS.Cells(Rows.Count, 1).End(xlUp).Row) If IsNumeric(Cell.Value) Then On Error Resume Next X = Application.WorksheetFunction.VLookup(Cell.Value, SH.Range("A5:A" & SH.Cells(Rows.Count, 1).End(xlUp).Row), 1, 0) If Cell.Value <> X Then Cell.Resize(1, 11).Copy SH.Range("A" & SH.Cells(Rows.Count, 1).End(xlUp).Row + 1) End If Next Cell End Sub

أخي الحبيب محمد الريفي إني أحبك في الله تفضل هذا الملف على السريع وإن شاء الله تجد من يقدم الأفضل Transfer Data.rar

اكتب الدالة =NOW() في أي خلية ..

إذا كنت قد فهمت الملف المرفق (هذا فهمي !!) فإليك الملف المرفق به حل باستخدام الدالة Sumproduct ... تراخيــص.rar

حتى تتضح الصورة أكثر .. أنت لديك أكثر من مصنف باسم Daily plant report وبه ورقة عمل .. تسمى Safety كما وضحت أم تسمى Alternative Fuel؟ هل الورقة بنفس الاسم في كل المصنفات الموجودة إليك ؟؟ نقطة أخرى : المصنف الأم الذي سيحوي الكود الذي سيقوم بعملية التجميع لهذه الشيتات ، يحتوي على أوراق عمل بالفعل كما وضحت في المرفق من 1 إلى 31 أم أن هذا للتوضيح فقط ؟؟ اعذرني لكثرة الأسئلة عن توضيح الأمر لكن حتى يتم العمل بشكل جيد بدون أي لبس في فهم المطلوب