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

هل الثلاثين ملف نفس التنسيق بالضبط ؟؟ وهل تريد الحل في نفس ورقة العمل أم في ورقة أخرى؟ أجبني ولدي الحل إن شاء الله فتابع معي

أخي الكريم السؤال بشكل عام لن يفيد قم بإرفاق ملفك وحدد المطلوب بدقة هل المطلوب تصدير ورقة عمل واحدة أم عدة أوراق عمل إلى ملف PDF؟ قم بالإطلاع على هذا الرابط لعله يفيدك الرابط من هنا

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

بارك الله فيك ..هكذا يكون التوضيح الذي لا لبس فيه الآن فهمت طبيعة الملف بشكل كبير بقي سؤال واحد : ماذا لو لم يتطابق المجموع في ملف العميل مع الخلية C5 في المصنف الرئيسي ..ما المفترض حدوثه ؟ هل يتم الخروج من الإجراء الفرعي .. وسؤال آخر لما قمت في الكود بعمل حلقت تكرارية ؟ طالما أن المجموع واحد سيقوم الكود بحذف الصفوف من مصنف العميل دفعة واحدة ..؟؟ هذه النقطة يلتبس عليا الأمر بها

ومن أين تأتي السعادة ولنا إخوان في كرب عظيم!!!

أخي الكريم ذكرت أن مجموع الفواتير في ملف العميل في العمود B .. وأنا أرى بعد إطلاعي أن مجموع الفواتير في العمود C في ملف العميل ..!! هل قيمة سند القبض المقصود بها الخلية C5 في المصنف الحالي ؟ اعذرني لجهلي بطبيعة ملفك ..أنا أحب التحدث بلغة الإكسيل التي أفمها جيداً اذكر مسميات أوراق العمل والمصنف والخلايا وشكل النتائج المتوقعة المصنف الحالي أقصد به المصنف المسمى RN ، ومصنف العميل هو إما 100001 أو 100002 بعد التأكد من تساوي المجموع هنا وهنا في المصنفين : ما المطلوب في حالة التساوي وما المطلوب في حالة عدم التساوي؟ في حالة التساوي ذكرت أنك تريد حذف الصفوف في مصنف العميل ..أي صفوف سيحذفها (هل كل الصفوف مرة واحدة) لأنني أرى حلقة تكرارية موجودة بالكود ..!! أعتذر عن الإطالة ولكن وجب التوضيح لأعمل على بصيرة فأنا لا أحب التخمين فكم من الوقت أهدر في موضوعات كان التخمين هو العامل الأساسي فيها

وعليكم السلام ورحمة الله وبركاته أخي الحبيب أبو يوسف .. نتعلم الصبر فللصبر ثمرة وحلاوة ..

أخي الكريم د. باسل أريد تقديم المساعدة ولكن أفضل تناول الموضوع نقطة نقطة وإذا انتهينا من نقطة انتقلنا لأخرى حتى يمكن إنجاز العمل . اطلعت على الملف ووجدت كود بالفعل وينفذ بعض المطلوب .. حيث يقوم بحذف الصفوف التي بها نفس أرقام الفواتير في العمود B في المصنف الخاص بالعميل ...ثم يتم حفظ المصنف الخاص بالعميل وأفضل أن ترفق شكل النتائج المتوقعة بناءً على الملف المرفق تقبل تحياتي

هكذا تتضح الصورة ويرجى من جميع الأعضاء التوضيح بالصور ..لتتضح المشكلة بشكل أفضل جرب الخطوات التالية : ----------------------- في موديول رقم 1 على سبيل المثال أو أي موديول في قسم الإعلانات العامة ضع السطر التالي في أول الموديول رقم 1 Public strUser As String هذا السطر لتخزين اسم المستخدم الذي سجل الدخول ******************* في حدث الفورم UserForm1 في السطر الذي تظهر فيه رسالة تفضل بالدخول أضف سطر آخر بعده لتخزين اسم المستخدم في المتغير MsgBox "تفضل بالدخول", vbOKOnly, "تنبيه" strUser = Me.ComboBox1.Value ******************* في حدث الفورم المسمى Form2 عدل الأسطر التي أشرت إليها بهذا الشكل Dim xRow As Long xRow = Application.WorksheetFunction.Match(strUser, ورقة11.Columns(1), 0) If ورقة11.Range("L" & xRow).Text = "مشاهدة وتعديل" Then CommandButton1.Visible = True Else CommandButton1.Visible = False End If أرجو أن أكون وفقت في حل المطلوب .. لأن الملف متشابك جداً

أخي الكريم رميلي يرجى رفع الملف مرة أخرى بعد إزالة كلمات السر من المصنف بالكامل ومن محرر الأكواد .. وكذلك يفضل إرفاق بعض النتائج المتوقعة ليسهل الوصول لحل سريع ومضمون بإذن الله تقبل تحياتي

أخي الكريم الملف متشابك .. ممكن توضح بالصور المطلوب بالضبط وفي أي جزء من الأكواد .. وهل يظهر معك خطأ معين أم أنه لا يتحقق الهدف ألا وهو الإخفاء للزر ؟ وما هو الزر المراد إخفاؤه ؟. وما هي شروط الإخفاء؟ أعتذر لكثرة الأسئلة لأنني غير متابع للموضوع من البداية .. يرجى التوضيح بالصور .. وارفاق الملف الذي تعمل عليه .. هل هو نفس الملف الأخير لأخونا ياسر العربي أم ملف آخر؟

لتظهر الأكواد بشكل منضبط يرجى النقر على هذه العلامة <> أثناء كتابة المشاركة ثم وضع الكود فيه هذا الشكل

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

أخي العزيز عبد السلام بارك الله فيك وجزاك الله كل خير يرجى وضع الأكواد بين أقواس الكود التي تظهر لديك بهذا الشكل <> ليظهر الكود بشكل منسق أخي الكريم مهند تم تقديم الحل من قبل أخونا سليم وأخونا عبد السلام هل جربت الحل أم لا؟

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

يرجى وضع عنوان مناسب للموضوع كما يرجى إلقاء مزيد من الصوء حول المطلوب .. راجع التوجيهات

بارك الله فيك وجزاك الله كل خير أخي سليم مجهود رائع ومتميز في كافة الموضوعات في المنتدى

أخي الكريم محمد أهلا بك في المنتدى ونورت بين إخوانك الموضوع مشروح بالتفصيل في الموضوع على هذا الرابط الرابط من هنا تقبل تحياتي

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

وعليكم السلام ورحمة الله وبركاته أخي الحبيب بن علية بارك الله فيك وجزاك الله خيراً بالفعل ظنك في محله والمشكلة كما ذكرت في كود حدث ما قبل الإغلاق ولكن بتجربة الكود الذي تفضلت به يتضح التالي : لو فتحت المصنف بعد إجراء التعديلات وانتظرت لمدة دقيقة بدون عمل على الملف يتم إغلاق المصنف (أي ينفذ كود الأخ محتار حسين) لا مشكلة في هذه الحالة أما إذا فتحت المصنف وقمت بمحاولة الإغلاق للتطبيق ستظهر رسالة تفيد باستخدام زر الأمر وأن زر الإغلاق معطل .. اترك الملف لمدة دقيقة أخرى بدون عمل عليه ، لن يتم تفعيل كود الأستاذ مختار وإليك التعديل المطلوب في الملف يوضع الكود التالي في موديول Public CloseMode As Boolean Public RunWhen As Double Public Const NUM_MINUTES = 1 Public Sub SaveAndClose() CloseMode = True ThisWorkbook.Save Application.Quit End Sub ويوضع الكود التالي في حدث المصنف Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" Else On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 End If End Sub Private Sub Workbook_Open() On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub تقبل وافر تقديري واحترامي

وعليكم السلام يمكن استبدال السطر التالي Worksheets(I).Range("A7").CurrentRegion.Offset(1).ClearContents بهذا السطر Worksheets(I).Range("A8:ِ10000").ClearContents حيث A8 يمثل أول خلية بعد صف العنوان .. لم أطلع على الملف أنا أعمل بشكل عام

أخي العزيز هاني لما لا تقوم بوضع المعادلة التي تفضل بها العلامة الكبير بن علية في كود وتحول المعادلة إلى قيمة بالشكل التالي Sub Test() Dim Rng As Range Set Rng = Sheet1.Range("DL11:EP" & Sheet1.Cells(Rows.Count, "CC").End(xlUp).Row) With Rng .Formula = "=IF(CC11=0,"""",INDEX($C:$C,MATCH(CC11,$B:$B,0)))" .Value = .Value End With End Sub

ممكن توضيح أكثر ..ارفق بعض النتائج المتوقعة أخي الفاضل

أخي الكريم صراحة الملف سيكون صعب التعامل معه قليلاً لأنه يحتوي على أعمدة وخلايا مدمجة والدمج عدو الأكواد .. هل الدمج ضروري أم أنه يمكن التعديل في الملف لإزالة الدمج ..؟ كما أنه يوجد العمود D موجود وغير ظاهر ..فهل تريد العمل عليه أيضاً؟ على أساس رد سأبدأ العمل في التنفيذ إن شاء الله

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