عبدالله المجرب

اليك بعض الروابط http://www.officena.net/ib/index.php?showtopic=33219 http://excel4us.com/blog/?p=103

تم إزالة المرفق من المشاركة (المرفق محفوظ في حال تقرر اعادة رفعه) وننتظر راي باقي الاخوة المشرفين وإدارة الموقع بمثل هذه البرامج ====== تم إعادة المرفق الى المشاركة بعد راي الادارة 13/12/2011

السلام عليكم ان شاء الله اكون وفقت في فهم المطلوب تم إضافة رقم الجلوس ضمن البيانات التي يتم جلبها Abu_Ahmed_Srch.rar

ويمكن استخدام هذه الصيغة للحصول على نفس النتيجة =A1&" "&B1&" "&C1

السلام عليكم تم إضافة هذا السطور الى احد الاكواد ليتم تنفيذ نفس الكود على الورقتين For i = 1 To 2 With Sheets(i) .Select End With Next جرب المرفق دمج كودين1.rar

السلام عليكم اخي الفاضل ضع مرفق يبين مواضع الاعمدة الملونة

شكراً لك اخي ابو عبدالله

هل تقصد بهذه الطريقة شهادات جديد.rar

فسر هذا الغموض الله يرضى عليك ممكن نقدم المساعدة اذا فهمنا المطلوب

اخي ذيب اليمن سيم دمج الموضوعين === لا تفكر اني لم احاول امر الطباعة سهل ولكن المشكلة في التوزيع (التحديث قبل الطباعة) بالاضافة اني منشغل هذه الايام (تعرف نهاية العام)

اخي للترتيب قم بفرز حسب الابجدية لبيانات المصدر وسيتم الترتيب

المرفق السابق يالمعادلات وهذا الكود لنفس الغرض Sub Abu_Ahmed() [F4:F300].ClearContents Dim cl As Range For Each cl In Range("G4:G" & [G15000].End(xlUp).Row) x = cl.Row Set myrng = Range("G4:G" & x) If Application.WorksheetFunction.CountIf(myrng, cl.Value) = 1 Then Cells([F15000].End(xlUp).Row + 1, 6).Value = cl.Value End If Next End Sub

السلام عليكم جرب المرفق Sort_Unique_req.rar

السلام عليكم اخي الفاضل صعب ان يتم تتبع الكودين دون مرفق

السلام عليكم بعد إذن الاخ ابوالحسن اخي الفاضل هل تقصد هكذا Book1 (5).rar

السلام عليكم الاخوة الكرام : جلال محمد العميد دغيدي الولد البار الاستاذ احمد زمان ابو نصار (إضافة جميلة) ابوالعقاب شكراً لكم

السلام عليكم اخي ابو نصار كود رائع جداً وهذا محاولة لإختصار الكود بنفس المضمون Sub MKARNH_ALI() Application.ScreenUpdating = False Range("C2:D2,E2:F65536").ClearContents Q = [A15000].End(xlUp).Row For R = 2 To Q If Application.CountIf([B2:B5000], Cells(R, 1)) = 0 Then Cells([E15000].End(xlUp).Row + 1, 5) = Cells(R, 1) End If If Application.CountIf([A2:A5000], Cells(R, 2)) = 0 Then Cells([F15000].End(xlUp).Row + 1, 6) = Cells(R, 2) End If Next [C2].Value = [E15000].End(xlUp).Row - 1 [D2].Value = [F15000].End(xlUp).Row - 1 Application.ScreenUpdating = True MsgBox "الحمد لله", vbInformation, "تمت المقارنة" End Sub

الكود موجود في الملف (طبعاً ستجده في حدث الفتح للملف) لم افهم

حياك الله وكل الطرق تودي الى نتيجة واحدة هههه الحمدلله ان كان هذا طلبك

السلام عليكم في الرابط http://www.officena.net/ib/index.php?showtopic=37693 حمل المرفق في المشاركة 1 وافتح المرفق هل هذا ما تقصده

اخي يوسف هل تقصد هكذا يوسف عطا.rar

السلام عليكم اخي الفاضل هل جربت الضغط على ctrl + F هذا وغيره محجوز لتنفيذ أوامر مخصصة هذا على حد علمي

وبعد إذن ابو الحسين هذه اخر دالة تفقيط أضيفت للمنتدى http://www.officena.net/ib/index.php?showtopic=39447

الاستاذ محمد صالح الاخوين ابو الحسن وفضل شكراَ غلى دعمكم ونشجيعكم

السلام عليكم في اكسل 2003 من ادراج اختر اسم ثم غير المدى بالحجم الذي تريد == في اكسل 2007 شاهد الصورة