عدم تبديل الكلمة بعد اضافة كود REPLACE

[مصطفى العراقي1988]

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

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

وهناك كلمات مثل جمعة , سبت , س11 وكلمات اخرى لا يتم استبدالها

اعلم ان الخلل مني لتركي فراغ بين الكلمة وعلامة التنصيص لكنني لا استطيع حذف الفراغ 

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

Desktop.rar

تم تعديل فبراير 19, 2023 بواسطه مصطفى العراقي1988

[محي الدين ابو البشر]

عليكم السلام

أخي العزيز أذا كنت تقصد Sub Replace()

فهذا الكود يحذب كل شيئ ما عدا (ع -ايفاد -1) من المثال في ملفك المرفق

Sub Replace()
Dim sheet As Worksheet
Dim Réf As Variant

Dim y As Long
Réf = Array("X", "X3", "X5", "س11", "س13", "س8", "جمعة", "سبت", "ط8", "3", "8", "5", "س")
For Each sheet In ActiveWorkbook.Worksheets
For y = LBound(Réf) To UBound(Réf)
sheet.Cells.Replace What:=Réf(y), Replacement:=""
Next
Next
End Sub

 

[مصطفى العراقي1988]

استاذ @محي الدين ابو البشر

يوم جمعة و سبت لا تحذف هناك مشكلة في الكود 

اذا ممكن تتفضل علي بتفعيل الكود وارساله بملف مرفق تكون صاحب فضل عليه 

[محي الدين ابو البشر]

Book1.xlsmتفضل أخي الكريم

تم تعديل فبراير 20, 2023 بواسطه محي الدين ابو البشر

[مصطفى العراقي1988]

@محي الدين ابو البشرشكراً لك يا طيب جزاك الله خير الجزاء 

[محي الدين ابو البشر]

بارك الله