تلوين الخلية عند الضغط على الزر

[ابو عبدالرحمن البغدادي]

السلام عليكم ...

موضوعي هو : 

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

شكراً

تلوين اسم المدرسة والكود.rar

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

أخي الكريم أبو عبد الرحمن

إليك الكود التالي عله يفي بالغرض

Sub ColorIt()
    Dim WS As Worksheet, SH As Worksheet
    Dim lCol As Long, X
    Dim I As Long, J As Long
    Set WS = Sheets("البحث"): Set SH = Sheets("الاكواد")
    
    For I = 1 To 16 Step 3
        If InStr(SH.Cells(1, I), WS.Range("E2").Value) > 0 Then
            lCol = SH.Cells(1, I).Column
            For J = 3 To SH.Cells(Rows.Count, lCol + 1).End(xlUp).Row
                If WS.Range("A2") = SH.Cells(J, lCol) And WS.Range("B2") = SH.Cells(J, lCol + 1) Then SH.Cells(J, lCol).Resize(1, 2).Interior.Color = vbRed
            Next J
        End If
    Next I
End Sub

 

[ابو عبدالرحمن البغدادي]

السلام عليكم

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

مبارك عليكم العشر الأواخر من شهر الحجة 

[جعفر الطريبق]

اضف الكود التالي الى الزر الموجود في شيت البحث

 Worksheets("الاكواد").Rows(1).Find(Range("E2")).EntireColumn.Find(Range("A2")).Resize(, 2).Interior.Color = vbRed

 

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

أخي الحبيب جعفر

هو دا الشغل ..اللي أقدمه في 100 سطر تقدمه إنت في سطر واحد

قمة في الإبداع

أخي أبو عبد الرحمن

الكودين يعملان بشكل جيد

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

بالنسبة للكود الذي قدمته قم بوضعه في موديول ثم على الزر الموجود كليك يمين ثم Assign Macro واختار اسم الماكرو ونفذ الأمر

تقبل تحياتي

[ابو عبدالرحمن البغدادي]

تعبتكم بطلباتي - شكراً للأخ ياسر والأخ جعفر 

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

جزيتم خيرا ومبارك عليكم الشهر 

 

تم تعديل سبتمبر 17, 2015 بواسطه ابو عبدالرحمن البغدادي