تقويم قيمة خلية بشرط اللون

[aburajai]

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

ارجو منكم مساعدتي في هذا الملف

مع الشكر الجزيل

حسب الملف المرفق

OSOL3.xls

[سليم حاصبيا]

جرب هذا الملف

 

 

OSOL3 salim.xls

[aburajai]

تمام استاذ سليم

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

 

لكن اريدها تلقائيا وليست سحب يدوي لو تكرمت تعملها

ثم 

اريد اضافة عليه ان يقوم بترحيل النتائج هذه الى شيت جديد

 

شاكرا تعاونكم

[سليم حاصبيا]

يبدو ان هذا ما تريد

OSOL3 salim1.xls

[aburajai]

تمام استاذ سليم

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

تمام التمام ما يحرمنا منكم

 

في موازين حسانتكم

 

 

[aburajai]

 

الاخ سليم

التعليق السابق انتهينا تاكدن انه يعمل على جميع الخلايا

الكود تمام

لكن ظهر انه لا يعمل عندما تكون الخلية فارغة !! لذلك السبب لم يعمل فظظنت كما التعليق السابق

 

لذلك فضلا اخي سليم تعمل تحديث للكود بان يعمل مع الخلايا الفارغة

 

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

 

او اي طريقة تراها مناسبة

 

مع الشكر الجزيل

تم تعديل مارس 31, 2018 بواسطه aburajai

[سليم حاصبيا]

استبدل الكود بهذا

Sub tarhil()
Dim I, m%: m = 2
Dim Rs%: Rs = Source.Cells(Rows.Count, 3).End(3).Row
Dim Rt%: Rt = Targ.Cells(Rows.Count, 3).End(3).Row
If Rt < 2 Then Rt = 2

Targ.Range("b2:c" & Rt).Clear
 For I = 2 To Rs
    With Source
       If .Range("c" & I).Interior.ColorIndex = 6 Then
        .Range("B" & I) = "متفوق"
        .Cells(I, 3).Offset(0, -1).Resize(1, 2).Copy Targ.Cells(m, 2)
        m = m + 1
       End If
    End With
  Next
End Sub

 

[aburajai]

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

اخي سليم  المشكلة مشيت مع الخلايا الفاغة لكن جربت اضع الكود على خلايا كلها كتابة وفراغ بلا ارقام 

لم يعمل جيدا

 

هل من حل تفيدني

 

 

تم تعديل مارس 31, 2018 بواسطه aburajai

[سليم حاصبيا]

ارفع الملف لمعرفة الخطأ (اذ لا يمكن التخمين)

[aburajai]

هذا الملف تفضل اخي سليم

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

osol4.xls