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

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

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

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

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

الأخ الحبيب عمرو طلبة ذكرت لك أن الموضوع صعب ، لكني لم أذكر أنه مستحيل ، هذا لأني مؤمن بالله عزوجل وأنه طالما هناك أنفاس فلابد أن يكون هناك محاولات بعدد الأنفاس .. :yes: منذ الصباح وأنا أحاول وأجرب وأحاول إلى أن توصلت إلى حل إن شاء الله يرضيك ويحل المشكلة بنسبة كبيرة جداً .. تم إضافة دالة معرفة يمكن من خلالها تطابق النصوص المتشابهة مثل (أحمد ، احمد - آمال ، امال - إسلام ، اسلام ) أي التغاضي عن الهمزات ، وكذلك التاء المربوطة والهاء (ة ، ه ) ، وكذلك ( ي ، ى) ، كما أضفت سطر في أول الكود يجعل التعامل مع النصوص يتغاضى عن الأحرف الكبيرة والصغيرة في اللغة الإنجليزية ، ومن ثم تم حل المشكلة بنسبة كبيرة كما أنه تم التغاضي عن المسافات الزائدة قبل أو بعد الاسم ، ففي المرفق في الصف الثالث تم إضافة مسافة زائدة بعد أحمد ، وفي الصف الثامن تم إضافة مسافة زائدة قبل اسامة ... وبعد كل ذلك يتم الترحيل بشكل ناجح أتمنى ألا تنسى اختيار المشاركة كأفضل إجابة (عشان طلعت عيني من الصبح !!) ، ومتنسناش بدعوة حلوة بظهر الغيب تقبل تحياتي Invoices Match All.rar

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

أخي الفاضل رشراش علي بارك الله فيك وجزاك الله خيرا على كلماتك الرقيقة ودعائك الطيب .. تقبل تحياتي :fff:

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

لا تنسى التوجيهات أخي أكرم

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

أخي الفاضل أبا الحسن والحسين جرب الكود التالي Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A100")) Is Nothing Then If IsNumeric(Target.Value) Then Range("A1").Value = Target.Value + Range("A1").Value End If End Sub

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

أخي الحبيب أحمد غانم لما لا تطرح طلبك في موضوع مستقل تقبل تحياتي

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

وجزيت خير الجزاء يا أخي عبد الله على مرورك العطر تقبل تحياتي

الأخ الكريم أحمد الشيخ تفضل الملف المرفق .. لا تنسى التوجيهات (أفضل إجابة للمشاركة التي تعجبك) Search Edit Delete UserForm.rar

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

جرب الملف التالي . ويا ريت بعد كدا ترفق ملف أخي الفاضل لتوفر الوقت على إخوانك Test.rar

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

جرب التالي ..... Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("A8").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.Copy .Cells.PasteSpecial xlPasteValues End With Application.CutCopyMode = False Range("A1").Select End Sub

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

بارك الله فيك أخي الحبيب عمرو تم إضافة خطوطك إلى الملف ليكون جامع لكل الخطوط بالموضوع إن شاء الله Fonts Like Hand-Writing.rar

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

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

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