مطلوب معادلة لتظليل بعض أسماء فى عمود بالمقارنة مع عمود أخر

[يوسف عطا]

لدى ملف به عمودين من الأسماء 1 به 1100 إسم والعمود الثانى به 1300 إسم منها 1000 إسم بالعمود الأول

المطلوب

1. أن أحدد الأسماء فى العمود الثانى التى لا توجد فى العمود الأول بتظليلها

2. أحدد الأسماء فى العمود الأول التى لا توجد فى العمود الثانى بتظليلها

أو البديل

تظليل الأسماء المكررة فى العمودين

الأسماء بالعمودين B , H

[رجب جاويش]

أخى يوسف

السلام عليكم

هذا الكود يظلل المكرر فى العمودين

Sub ragab()

LR1 = [B10000].End(xlUp).Row

LR2 = [H10000].End(xlUp).Row

'================================================

Range("B2:B" & LR1).Interior.ColorIndex = xlNone

Range("H2:H" & LR1).Interior.ColorIndex = xlNone

'================================================

For Each cl In Range("B2:B" & LR1)

    For Each cll In Range("H2:H" & LR2)

	    If cl <> "" And cl = cll Then

		    cl.Interior.ColorIndex = 3

		    cll.Interior.ColorIndex = 3

	    End If

    Next

Next

End Sub

[يوسف عطا]

الف شكر أخونا الغالى رجب بك جاويس

[جمال عبد السميع]

أستاذي ( يوسف ) أستاذي الرائع ( رجب جاويش ) وهذه دالة مستحدثة

لبيان عدد التكرارات للأسم

لأثراء الموضوع

تنسيق.rar

[جمال عبد السميع]

أتمني أستاذي ( يوسف ) أن تكون كل هذه الأفكار مفيدة لحضرتك وتحقق المطلوب

تنسيق 2.rar

[الـعيدروس]

السلام عليكم

لاثراء الموضوع

تفضل جرب هذا الكود

Sub M_ALI()

Application.ScreenUpdating = False

Q = [C15000].End(xlUp).Row

Cm = Chr(10) & "غير موجود في عمود D"

For R = 4 To Q

If Application.WorksheetFunction.CountIf([D2:D500], Cells(R, 3)) = 0 Then

With Cells(R, 3)

.Interior.Color = RGB(255, 0, 0)

.AddComment Text:=Cm

.Comment.Visible = True

.Comment.Shape.TextFrame.AutoSize = True

End With

End If

Next

RO = [D15000].End(xlUp).Row

Cm1 = Chr(10) & "غير موجود في عمود C"

For R = 4 To RO

If Application.WorksheetFunction.CountIf([C4:C500], Cells(R, 4)) = 0 Then

With Cells(R, 4)

.Interior.Color = RGB(255, 0, 0)

.AddComment Text:=Cm1

.Comment.Visible = True

.Comment.Shape.TextFrame.AutoSize = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub

[يوسف عطا]

شاكرين الأفضال أيها الأخوة الأعزاء أعزكم الله جميعاً

[جمال عبد السميع]

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

مقارنة بين عموديين وتلوين المكرر بينهما.rar

تم تعديل نوفمبر 4, 2012 بواسطه mahmoud-lee

[يوسف عطا]

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

[طائع]

استاذى ومعلمى جمال عبد السميع وحشتنى والله ولعلك بصحة جيدة وكل عام وانت بخير 

 

هذا ملفى المرفق(((( المطلوب عمله بداخله)))ابراهيم بلال.rar

 

[إبراهيم ابوليله]

الاخوه الافاضل

الاخ رجب جاويش

الاخ عباد

والاخ جمال عبد السميع

بارك الله فيكم

وتنوع فى الاداء و الاجابات

يزيد من اثراء الموضوع

ويدل على عبقريه كل منك

[شوقي ربيع]

الاخوه الافاضل

الاخ رجب جاويش

الاخ عباد

والاخ جمال عبد السميع

بارك الله فيكم

وتنوع فى الاداء و الاجابات

يزيد من اثراء الموضوع

ويدل على عبقريه كل منك

100%

جزاكم الله خيرا

[الجزيرة]

ما شاء الله

 

مبدع أخي جمال

 

نفعك الله في علمك

[جمال عبد السميع]

شكرا أخى الحبيب ( الجزيرة ) على مرورك وكلماتك الجميلة ، وبارك الله فيك

[جمال عبد السميع]

أخى الحبيب ( إبراهيم ) بارك الله فيك أخى وشكرا على مرورك وكلماتك الرائعة ، وشكرا جزيلا بالنيابة عن أساتذتى الأفاضل بارك الله فيهم وفيك

[جمال عبد السميع]

أخى العزيز وحبيب قلبى ( شوقى ربيع ) مرورك وكلماتك أخى الحبيب شرف لى ، بارك الله فيك أخى الحبيب والشكر موصول بالنيابة عن أساتذتى الأفاضل

[جمال عبد السميع]

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

أخى الحبيب أنظر الرابط التالى ، وإذا أردت طلب أخر ياريت يتم وضعة فى مرفق منفصل

http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=63049

تم تعديل أبريل 23, 2013 بواسطه جمال عبد السميع

[طائع]

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

ابراهيم بلال.rar