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

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

هل تريد أن تكون المعادلات مرتبطة بأسماء أوراق العمل الجديدة name و old؟؟؟ لم تجب على هذه الجزئية ..

أخي الغالي أنس دروبي مبروك الترقية المستحقة وفي انتظار تقديم المزيد لإخوانك المتعطشين لما في جعبتك تقبل تحياتي

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

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

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

أخي الكريم حليم إليك شرح فيديو مبسط لما يجب فعله Watch.rar

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

بارك الله فيك أخي الغالي ياسر العربي إنت مدرسة ... وفن .. وإبداع تسلم الأيادي يا كبير

أخي الكريم يرجى تغيير اسم الظهور للغة العربية كما يرجى تبسيط طلبك بمثال ..لتتضح الصورة تقبل تحياتي

أخي الحبيب جعفر جرب أن تضع بعض القيم في الخلية المخصصة للفلترة ..النتائج مضبوطة .. جرب تعمل Ctrl + Z للتراجع أكثر من مرة وشوف النتائج ..

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

أخي الكريم بالنسبة للمصنف المسمى المنسوخ إليه والذي يحتوي المعادلات التي بها الروابط .. كيف تريد أن تكون شكل المعادلات ؟؟ هل تريد أن تكون المعادلات مرتبطة بأسماء أوراق العمل الجديدة name و old؟؟؟ عموماً جرب الكود التالي ليقوم باستبدال الروابط الموجودة بأوراق العمل الجديدة المطلوب عمل المعادلات على أساسها Sub ReplacementForLinks() With Cells .Replace "'*\[المنسوخ منه.xls]الاسم'!", "name!" .Replace "'*\[المنسوخ منه.xls]السن'!", "old!" End With End Sub أرجو أن يفي بالكود بالغرض تقبل تحياتي

جزيت خيراً أخي الفاضل عبد العزيز المدني والحمد لله أن تم المطلوب على خير .. كما نتمنى أن يعمل الكود لدى عبد العزيز الآخر (قلم الإكسيل) .. في انتظار محاولاته أخي قلم الإكسيل .. ما هي نسخة الأوفيس التي تعمل عليها؟

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

أخي الكريم نايف الملف المرفق غير عبر عن الملف الأصلي حيث لا يوجد زر أمر رقم 3 ولا يوجد زر اختيار عموماً بإطلالة سريعة على الكود يوجد خطأ في أول الكود وهو تعيين قيمة المتغير للمصنف المفتوح حيث يجب أن يكون السطر بهذا الشكل جرب وأعد المحاولة بعد معرفة الخطأ وإذا صادفتك مشكلة أو خطأ انقر على كلمة Debug سيظهر سطر باللون الأصفر ارفقه في الرد لمعرفة مكمن الخطأ Set WR = Workbooks("20150718.xlsx") تقبل تحياتي

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

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

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

أخي الكريم وائل هل جربت نسخة أوفيس 2016 أخرى غير التي لديك .. ربما تكون المشكلة في النسخة التي تمتلكها؟ جرب نسخة أخرى غير النسخة التي تمتلكها؟

أخي الكريم قلم الإكسيل بارك الله فيك وجزيت خيراً على دعواتك الطيبة المباركة بالنسبة للكود ::: ------------------ أنا مجرب الكود بدل المرة ألف مرة لأني أستخدمه في برامجي الخاصة تأكد من أنك لم تحذف أي شيء من الكود أو الدالة المعرفة .. ضع الكود التالي بالكامل في موديول جديد ثم نفذ الأمر مرة أخرى Sub TestRun() Dim I As Integer For I = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Kh_Names(Cells(I, "B"), 1) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) ElseIf Kh_Names(Cells(I, "B"), 1, 2) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "G") = Kh_Names(Cells(I, "B"), 2) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "G") = Kh_Names(Cells(I, "B"), 3) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3, 4) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "E") = Kh_Names(Cells(I, "B"), 3) Cells(I, "G") = Kh_Names(Cells(I, "B"), 4) ElseIf Kh_Names(Cells(I, "B"), 1, 2, 3, 4, 5) = Cells(I, "B") Then Cells(I, "C") = Kh_Names(Cells(I, "B"), 1) Cells(I, "D") = Kh_Names(Cells(I, "B"), 2) Cells(I, "E") = Kh_Names(Cells(I, "B"), 3) Cells(I, "F") = Kh_Names(Cells(I, "B"), 4) Cells(I, "G") = Kh_Names(Cells(I, "B"), 5) End If Next I End Sub Function Kh_Names(FullName As String, ParamArray Index1()) As String Dim I As Integer Dim Kh_Split, MyArray, Arr Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله", "زين ") SN = Application.WorksheetFunction.Trim(FullName) For Each Arr In MyArray RE = Replace(Arr, " ", "^") SN = Replace(SN, Arr, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(Index1) Kh_String = Kh_String & " " & Kh_Split(Index1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function وهذه صورة من ورقة العمل بعد الضغط على الأمر Run ويمكن التأكد من عمل الكود من الأخوة الكرام الذين جربوا الملف الأخير تقبل تحياتي

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

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

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

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