اذهب الي المحتوي
أوفيسنا

كود لمسح خلايا محددة


الردود الموصى بها

السلام عليكم ورحمة الله وبركاته

تحية طيبة وبعد

أريد كود برمجى يقوم بمسح الخلايا المظللة باللون الأصفر فقط

ولسيادتكم خالص الشكر والتقدير

Delete.rar

رابط هذا التعليق
شارك

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

Option Explicit

Sub del_special_cells()
Dim cel As Range
    With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
    End With
For Each cel In Range("a10").CurrentRegion
If cel.Interior.ColorIndex = 6 Then _
cel.Value = vbNullString
Next
    With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
    End With
End Sub

 

  • Like 1
رابط هذا التعليق
شارك

أخى وأستاذى الحبيب / سليم حاصبيا

سلمت يمينك وزادك الله من علمه ومن فضلة

كود ممتاذ وقام بالمطلوب

ألف شكرا

جزاك الله خير

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information