مامون دعيس قام بنشر أغسطس 14, 2017 مشاركة قام بنشر أغسطس 14, 2017 ارجو المساعدة في كود لتفريغ الحقول باللون الاصفر ولكم جزيل الشكر رواتب.rar رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 14, 2017 مشاركة قام بنشر أغسطس 14, 2017 السلام عليكم ورحمة الله استخدم هذا الكود 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 رابط هذا التعليق شارك More sharing options...
مامون دعيس قام بنشر أغسطس 14, 2017 الكاتب مشاركة قام بنشر أغسطس 14, 2017 (معدل) زيزو العجوز تحياتي لك ارجو المساعدة على افراغ جميع الحقول التي باللون الاصفر في جميع الصفحات لان الكود اعلاه يفرغ فقط في صفحه واحدة و في عامود افقي واحد فقط ولك جزيل الشكر و الاحترام تم تعديل أغسطس 14, 2017 بواسطه مامون دعيس رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 14, 2017 مشاركة قام بنشر أغسطس 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.