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

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

لا تعليق ..!!

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

أخي الكريم سليمان أهلاً بك في المنتدى ونورت بين إخوانك وإن شاء الله تجد ما يسرك دائماً في المنتدى وفي التعامل مع إخوانك بالمنتدى تقبل تحياتي

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

أخي الكريم أمير برجاء تغيير اسم الظهور للغة العربية بالنسبة لسؤالك : تستخدم هذه العلامة & للربط بين النصوص ..فهنا نص في الخلية D8 يدمج مع النص بين أقواس التنصيص C27:E50 ... وغالباً ستكون الخلية D8 تحتوي على اسم ورقة عمل موجودة بالمصنف .. حيث يتم الإشارة بشكل غير مباشر إلى الخلايا C27:E50 في ورقة العمل المكتوب اسمها في الخلية D8 تقبل تحياتي

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

أخي الكريم حسن أهلاً بك في المنتدى ونورت بين إخوانك اطلعت على ملفك ولم أفهم المطلوب بشكل جيد ، فهلا أعدت صياغة الطلب أو أرفقت شكل النتائج المتوقعة ليسهل تقديم الحل حيث أن وضوح المسألة يمثل 90 % من حل المشكلة تقبل تحياتي

جرب التعديل البسيط على معادلة أخونا الرائع سليم =IF($B8<>"",IF(OR(MOD($B8/12,1)<3/10,MOD($B8/12,1)<6/10,MOD($B8/12,1)<9/10),FLOOR($B8/12,0.25),CEILING($B8/12,0.5)),"")

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

بارك الله فيك أخي العزيز أبو عبد الباري اسمح لي بالتعديل قليلاً على الكود المقدم منكم حيث تم جمع الشروط في جملة Select Case لثلاثة شروط كنوع من الاختصار (وكمعلومة جديدة للأخوة الأعضاء) Sub Test() Dim I As Integer, Last As Integer Last = Cells(Rows.Count, "D").End(xlUp).Row For I = 6 To Last Select Case Range("M" & I) Case "ناجح" Range("O" & I) = 1 Case "مكمل بدرس", "مكمل بدرسين", "مكمل بثلاث دروس" Range("O" & I) = 2 Case "راسب" Range("O" & I) = 3 End Select Next I End Sub تقبلوا تحياتي

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

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

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

أخي الكريم أحمد جرب الكود التالي عله يفي بالغرض (راعي أن تكون أسماء أوراق العمل كما في العمود الثالث .. حيث وجدت ورقة العمل صنف 1 مكتوبة بمسافة بعد كلمة صنف .. ولذا يجب أن تكون كما باقي أوراق العمل صنف1 بدون مسافة بينهما) Sub Test() Dim Ws As Worksheet Dim cel As Range Dim LR As Long Dim Last As Long Set Ws = Sheet1 LR = Ws.Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For Each cel In Ws.Range("C2:C" & LR) On Error Resume Next Last = Sheets(cel.Value).Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets(cel.Value).Range("A" & Last).Resize(1, 7).Value = Ws.Range("A" & cel.Row).Resize(1, 7).Value Next cel Application.ScreenUpdating = True End Sub تقبل تحياتي

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

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

أخي الكريم عبد العزيز بدلاً من الحلقات التكرارية والتي ستشكل عبء في أثناء التعامل مع الملف آثرت أن يكون التغيير في العمود الرابع بناءً على إخداث تغيير في أي خلية من خلايا العمود الثالث جرب الكود التالي عله يفي بالغرض Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim I As Integer If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 3 Then Application.ScreenUpdating = False Application.EnableEvents = False With Target.Offset(, 1) .ClearFormats If Target.Value = "المقاولات" Then With .Font .Bold = True: .Italic = True: .ColorIndex = 5 End With ElseIf Target.Value = "العقارات" Then With .Font .Bold = True: .Italic = True: .ColorIndex = 3 End With ElseIf Target.Value = "الصيانة" Then With .Font .Bold = True: .Italic = True: .ColorIndex = 8 End With End If End With Application.ScreenUpdating = False Application.EnableEvents = True End If End Sub تقبل تحياتي

أخي الحبيب الجموعي ممكن ترفق آخر ملف يحدث فيه الخطأ للإطلاع على الملف ومحاولة فهم المشكلة بشكل أدق عموماً لحين إرفاق ملف جرب السطر بالشكل التالي LI = ListBox1.Column(ListBox1.Index) تقبل تحياتي

ما هي المعادلة الموجودة في الخلايا C61 و H61 .. شوف النطاق داخل المعادلة وامسح النطاق الخاص بهم مثال لو كانت المعادلة في الخلية C61 بالشكل التالي =SUM(C10:C60) إذاً السطر المستخدم في الكود سيكون بالشكل التالي Range("C10:C60").ClearContents

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

غير سطر الحلقة التكرارية إلى السطر التالي لتحدد الأوراق المطلوبة For Each Ws In Worksheets(Array("Washing", "Accident"))

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

ما هي رسالة الخطأ التي تظهر لديك ؟ واعذرني لأني ضعيف في التعامل مع الفورم

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