أ / محمد صالح

فعلا هذا ما حدث مني (إلغاء تفعيل المشاركة) لأرى أين يوجد الخطأ في الكود وفي أي سطر وعند الضغط على الزر المراد لم يحدث أي خطأ معي

جرب طريقة نسخ هذا النطاق وفي عمود آخر كلك يمين ثم نختار لصق كقيم paste as values

انا شخصيا ما عملت اي شيء والملف المرفق مني هو نفس ملفك بدون إضافة او حذف

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

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

يوجد في الملف صفحة بها بيانات فقط أين تريد أن تظهر نتائج البحث؟؟

عند الضغط على زر التنفيذ لا تظهر اي اخطاء عندي ولا يتم اي شيء في الشيت يمكنك التجربة على هذا المرفق وإخبارنا بموضع الخطأ وفي أي سطر ملاك 2021.xlsb

هل معنى هذا الرد أن طريقة دبل كلك ثم انتر لم تعمل معك؟ رغم أني ضد السؤال الذي لا يكتب السائل فيه الظروف التي أوصلته لهذه الحالة فربما معلومة يذكرها تكون السبب في الوصول للحل بدلا من التخمين من قبل الإخوة المشاركين في حل المشكلة على العموم إذا لم تنفع معك كل الحلول السابقة جرب هذه المعادلة =--CLEAN(TRIM(SUBSTITUTE(T5, CHAR(160), CHAR(32)))) رغم أني مؤمن تمام الإيمان أن شركة ميكروسوفت تجعل معظم الميزات متساوية بين أوفيس الويندوز وأوفيس الماك يعني ما ينجح في ويندوز ينجح في ماك بالتوفيق

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

الأرقام منسوخة من ملف نصي وتحتفظ بتنسيقها كنص حتى وإن غيرت تنسيق الخلايا إلى رقم ولي حيلة في مثل هذه الأمور ضغ في الخلية S5 هذه المعادلة =T5*1 وهي لضرب الرقم الموجود في T5 في 1 أي الاحتفاظ بنفس قيمته أو استعمال الدالة value =VALUE(T5) ثم اسحب المعادلة لأسفل ثم استبدل القيم القديمة بالقيم الجديدة من خلال التحديد والسحب والافلات بالتوفيق

جميعا بإذن الله يوجد في المنتدى الكثير من الكتب والدورات لتعليم vba بل حتى الموضوعات العادية هي كنز لمن يريد أن يتعلم

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

لا أعتقد إمكانية وضع 2 قاعدة للتحقق من الصحة ولكن يمكن التحايل على ذلك بالكود التالي في حدث عند تغيير محتويات الشيت sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then If Target.Offset(0, 1) = "" Then Target.Value = Null End If If Target.Column = 6 Then Target.Offset(0, -1).Select With Selection.Validation .Delete .Add Type:=xlValidateList, Formula1:="=$A$1:$A$3" End With End If End Sub مع تغيير امتداد الملف لصيغة تدعم الماكرو مثل xlsb بالتوفيق

الحل في إلغاء تثبيت الخلية F7 ضع هذه المعادلة في الخلية G7 =IF($F7="","",VLOOKUP($F7,$B$4:$C$28,2,0)) ثم اسحب لأسفل كما تشاء

متى يظهر الخطأ؟ عند الضغط على أي زر؟ وفي أي شيت؟

يمكنك استعمال هذا الإجراء وربطه مع أي زر ThisWorkbook.Close 1 بالتوفيق

تم استعمال دوال أخرى في البحث أدق وهي index & match تفضل ملفك بعد التعديل عميل2.xlsx

شكرا لكلماتك الطيبة تم تعديل سطر المعادلة وإضافة شرط أن تكون درجة المعدل أقل من 5 أو يساوي "ن.م.ر" في المشاركة السابقة لي بالتوفيق

المشكلة في هذه الملفات هو اختلاف عدد الأعمدة في الشيتات 10 و11 و12 ولكن تم التغلب عليها بإذن الله يمكنك استعمال هذا الكود لتنفيذ المطلوب Sub insertformula() Application.ScreenUpdating = 0 Dim strfile As String, objBook As Workbook, lr As Long, c As Integer strfile = Dir(ThisWorkbook.Path & "\*.xlsx", vbNormal) While strfile <> "" Set objBook = Workbooks.Open(ThisWorkbook.Path & "\" & strfile) c = objBook.Sheets("data").Range("b10").CurrentRegion.Columns.Count lr = objBook.Sheets("data").Range(IIf(c = 10, "j", "l") & Rows.Count).End(xlUp).Row objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").Formula = "=IF(Or(" & IIf(c = 10, "j", "l") & "12<5," & IIf(c = 10, "j", "l") & "12=""ن.م.ر""),""يكرر"",""ينتقل"")" objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12").AutoFill Destination:=objBook.Sheets("data").Range(IIf(c = 10, "k", "m") & "12:" & IIf(c = 10, "k", "m") & lr) objBook.Sheets("data").Range("b12").Select objBook.Close 1 strfile = Dir() Wend Application.ScreenUpdating = 1 MsgBox "Done" End Sub وهو لفتح جميع ملفات الاكسل بامتداد xlsx في مجلد البرنامج ثم عد الأعمدة ووضع المعادلة ثم حفظ المصنف وإغلاقه بالتوفيق

لمنع تعديل الصور في نافذة حماية الشيت protect sheet قم بإلغاء تنشيط edit objects

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

الملف يعمل بصورة طبيعية وهذا رابط للملف على جوجل شيت

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

ربما تقصد تثبيت الصفوف * يمكنك نقل هذه الخلايا جنب بعضها في الصف الأول * ثم من تبويب view / عرض اختر freeze panes / تجميد الألواح ثم اختر freeze top row تجميد صف المقدمة أرجو أن يكون هو المطلوب

جميعا بإذن الله تعالى