بسم الله الرحمن الرحيم
اراد احد الاخوة كود لازالة بيانات من خلايا متفرقة داخل نطاق معين فخطرت ببالي هذه الفكرة وهي
حذف البيانات بمعلومية لون الخليه
فوضعت لكم مثال بسيط لعله يفيدكم
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
مع تحياتي
ياسر العربي
مسح بيانات بمعلومية اللون.rar