كود لتفريغ الحقول

[مامون دعيس]

ارجو المساعدة في كود لتفريغ الحقول باللون الاصفر 

 

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

رواتب.rar

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub ClearData()
Dim ws As Worksheet
Dim y As Range
Dim lr As Long
Set ws = Sheets("كشف المرتبات")
lr = ws.Range("b" & Rows.Count).End(xlUp).Row + 1
Set y = Union(Range("E2:F" & lr), Range("H2:I" & lr), Range("K2:K" & lr), Range("M2:O" & lr), Range("Q2:Q" & lr))
y.ClearContents
End Sub

 

[مامون دعيس]

زيزو العجوز

تحياتي لك 

ارجو المساعدة  على افراغ جميع الحقول التي باللون الاصفر في جميع الصفحات 

 لان الكود اعلاه يفرغ فقط في صفحه واحدة و في عامود افقي واحد فقط

ولك جزيل الشكر و الاحترام 

تم تعديل أغسطس 14, 2017 بواسطه مامون دعيس

[ابراهيم الحداد]

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

الكود التالى يفى بالغرض ولكنه سيستغرق وقتا طويلا عند التنفيذ

Sub testcolo()
Dim C As Range, x As Integer
For Each C In ActiveSheet.UsedRange.Cells
x = C.Interior.ColorIndex
If x = 6 Then
C.ClearContents
End If
Next
End Sub