اضافة كلمة في كل خلية

[ليمونة الحلوة]

السلام عليكم

تحية طيبة

لدي حولي 1000 خلية موجد فيها اسماء اريد اضافة كلمة صيدلية قبل كل اسم  موجد بالخلية هل يوجد طريقة ؟؟؟

ووشكرا سلفاً

[خالد الرشيدى]

السلام عليكم

لم يتم ادراج نموزج لمعرفة نطاق البيانات ولم يتم زكرة ايضا 

عموما -- احد الطرق هي ادراج هذا الكود في موديول وربطه بزر تنفيذ --- ثم يتم تحديد تلك الخلايا ال 1000 والضغط علي الزر لمرة واحدة

Sub cells()
    Dim c As Range
    For Each c In Selection
        If c.Value <> "" Then c.Value = "صدلية" & " " & c.Value
    Next
End Sub

 

تم تعديل فبراير 14, 2017 بواسطه خالد الرشيدى

[ليمونة الحلوة]

السيد خالد

تم ارسال مرفق

وشكرا

صيدليات.rar

[خالد الرشيدى]

علة المطلوب 

احد الملفات به الكود -- والاخر قمت بتنفيذ الكود ثم حذفته

edit.rar

[ليمونة الحلوة]

لك فائق الشكر والاحترام

[ياسر خليل أبو البراء]

منور المنتدى أخي وحبيبي في الله خالد الرشيدي

لكم أعشق رؤية ردودك في المنتدى ..

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

[خالد الرشيدى]

استازي الحبيب / ابو البراء

والله لشرف كبير لي ان اسمع تلك الكلمات من حضرتك

بارك الله لنا في حضرتك وزادك علماً ورفعه

خالص حبى وتقديرى وامتنانى لشخصكم الكريم