السلام عليكم
الإخوة الأفاضل مبارك على هذا المنتدى الجديد
نسأل الله العظيم أن ينفع به ، ويبارك فى القائمين عليه، ويجزيهم خيرا
سؤالى بسيط للغاية
يوجد نطاقين بهما بيانات والمطلوب
1- أريد كود لاستبدال كلمة معينة بأخرى فى هذين النطاقين
2- أن ينفذ هذا الكود عندما تكون الورقة (Sheet2) هى النشطة
والملف المرفق به توضيح أكثر والمطلوب بالتفصيل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
الإخوة الأفاضل مبارك على هذا المنتدى الجديد
نسأل الله العظيم أن ينفع به ، ويبارك فى القائمين عليه، ويجزيهم خيرا
سؤالى بسيط للغاية
يوجد نطاقين بهما بيانات والمطلوب
1- أريد كود لاستبدال كلمة معينة بأخرى فى هذين النطاقين
2- أن ينفذ هذا الكود عندما تكون الورقة (Sheet2) هى النشطة
والملف المرفق به توضيح أكثر والمطلوب بالتفصيل
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تم تحرير الموضوع بواسطة :أباالحسن
بتاريخ:24-08-2017 12:30 صباحا
بتاريخ:24-08-2017 12:30 صباحا
أفضل إجابة مقدمة من
YasserKhalil
وهي:
بارك الله فيك أخي العزيز رضوان ومشكور على مشاركتك الفعالة ونرجو الاستمرارية معنا في تقديم المزيد للأخوة الأعضاء
أخي الكريم أبا الحسن جرب الكود التالي
عرض الإجابة
أخي الكريم أبا الحسن جرب الكود التالي
Sub Replace_In_Two_Ranges()
Dim rng As Range
Set rng = Union(Range("C5:C11"), Range("G5:G11"))
rng.Replace "دون المستوى", "ضعيف", xlWhole
End Sub
أعجبني أعجبك هذاإلغ اعجابي 0