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

[Yasser Fathi Albanna]

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

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

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

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

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

 

[Yasser Fathi Albanna]

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

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

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

ألف شكرا

جزاك الله خير

 

[بن علية حاجي]

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

تم عمل المطلوب في الملف المرفق...

بن علية حاجي

Delete.rar

[Yasser Fathi Albanna]

سلمت يمينك الأستاذ والمعلم القدير / بن علية حاجي

كود رائع

شكرا جزيلا