كود لمسح بيانات

[الشيباني1]

اخواني الاعزاء  تحية طيبه ارجو المساعده بكود مختصر للكود المرفق  مع الامتنان

كود مسح بيانات.txt

[رجب جاويش]

السلام عليكم

أخى الفاضل / الشيبانى 1

هذا نموذج مصغر لفكرة الكود

ويمكنك اضافة بقية الـ ranges  بنفس الطريقة

Sub clean_1()
Dim Rng As Range
Set Rng = Union(Range("D9:D19"), Range("D23:D29"), Range("D33:D42"), _
Range("D46:D54"))
Rng.ClearContents
End Sub

[محمود_الشريف]

  أخى فى الله

أستاذى القدير // رجب جاويش

بارك الله فيكم 

وزادكم الله من فضله ومن علمه

تقبل منى وافر الإحترام والتقدير

[الشيباني1]

استاذنا القدير جزيل الشكر والتقدير ادامكم الرحمن لنا منقذا

[الشيباني1]

استاذنا القدير  تحية طيبه  بعد استكمال ادخال البيانات حسب توجيهكم وتفعيل الكود  ظهرت الرساله المرفقه متسائلا عن الخلل وكيفية معالجته  مع الامتنان

[رجب جاويش]

أخى الحبيب / محمود الشريف

جزاك الله كل خير أخى الفاضل على هذا المرور العطر والكلمات الطيبة

[رجب جاويش]

أخى الفاضل / الشيبانى1

جزاك الله كل خير

جرب الكود بهذا الشكل

Sub clean_1()
Dim Rng1 As Range
Set Rng1 = Union(Range("D9:D19"), Range("D23:D29"), Range("D33:D42"), _
Range("D46:D54"), Range("D58:D63"), Range("D67:D69"), Range("D73:D74"), Range("D78:D79"), _
Range("D83:D91"), Range("D95:D112"), Range("D116:D117"), Range("D121:D129"), Range("D133:D134"), _
Range("D138:D141"), Range("D145:D147"), Range("D151:D152"), Range("D156:D159"), Range("D163:D171"), _
Range("D175:D194"), Range("D198:D201"), Range("D205"), Range("D209:D213"), Range("D217:D220"))
 
Set Rng2 = Union(Range("D224:D230"), Range("D234:D237"), Range("D241:D247"), Range("D251:D254"), _
Range("D251:D254"), Range("D258:D263"), Range("D267:D272"), Range("D276:D278"), Range("D282:D286"), _
Range("D290:D291"), Range("D295:D297"), Range("D301:D305"), Range("D309:D310"), Range("D314:D315"), _
Range("D314:D315"), Range("D319:D321"), Range("D325:D327"), Range("D331:D334"), Range("D338:D341"), _
Range("D345"), Range("D349"), Range("D353:D354"))

Set Rng3 = Union(Rng1, Rng2)
Rng3.ClearContents
End Sub

[الشيباني1]

استاذنا القدير اشكرك جزيل الشكر وادامك الرحمن لنا اخا عزيزا ومرجعا رائعا

[رجب جاويش]

أخى الفاضل / الشيبانى1

جزاك الله كل خير