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

السلام عليكم Sub Abu_Ahmed_Show() Application.ScreenUpdating = False Dim cl As Range Range("B1:M1").EntireColumn.Hidden = True Set mytrng = Range("Abu_Alhassn") For Each cl In mytrng If cl.Value = [R2].Value Then x = cl.Column: Exit For Next Cells(1, x).EntireColumn.Hidden = False End Sub جرب المرفق تقرير (1).rar

هل جربت وضع الكود في حدث التغيير ComboBox1_Change() بدل بعد التحديث ComboBox1_AfterUpdate()

السلام عليكم بعد اذن الاخ leprince2007 الرقم 21900 هو حاصل عدد الايام في 60 سنة ويمكن دمجة في المعادلة ليصبح هكذا =B3+(365*60)

السلام عليكم بعد إذن الاخ ابونصار (ما شاء الله عليه نشاط واضح) Sub Abu_Ahmed_Tjme3() Dim cl As Range For Each cl In Range("D7:D" & [D1500].End(xlUp).Row) If Len(cl.Value) > 12 Then GoTo 0 If cl.Value <> "" Then cl.Value = [E2].Value & " _ " & cl.Value 0 Next End Sub بدون الحاجة الى كود إضافي شاهد المرفق تجميع الخلايا في خلية واحدة.rar

اليك بعض الروابط 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