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

بسم الله الرحمن الرحيم

 

اراد احد الاخوة كود لازالة بيانات من خلايا متفرقة داخل نطاق معين فخطرت ببالي هذه الفكرة وهي 

حذف البيانات بمعلومية لون الخليه

فوضعت لكم مثال بسيط لعله يفيدكم

Sub Yasser()
    Dim Rng As Range
    Application.ScreenUpdating = False
    For Each Rng In Range("a3:g31")
        If Rng.Interior.Color = Range("h1").Interior.Color Then
            Rng.ClearContents
        End If
    Next Rng
    Application.ScreenUpdating = True
End Sub

  

تحميل الملف 

مع تحياتي

ياسر العربي 

شارك المقال

شاركه على فيسبوكشاركه على جوجل+