الأخ الحبيب طارق
الأخ رحال كتب التالي
فهو لا يريد حذف هذه الإيميلات ولكن يريد ما بين <> لتكون الحقول مجرد إيميلات ..
يمكن استخدام المعادلة التالية أخي رحال
=MID(A1;FIND("<";A1)+1;FIND(">";A1)-FIND("<";A1)-1)
ضع المعادلة في الخلية B1
أخوكم أبو البراء
أستاذ ورئيس قسم
إبداع يا أخ كيماس ... نرنو منك السير على هذا المنهاج ففيه من الاستفادة ما لا يكون في غيره
بارك الله فيك وجعل أعمالك في ميزان حسناتك
سلام يا صاحبي
أخوك أبو البراء(زميل في مجال العمل)
أخي الحبيب
جرب الكود التالي
Range("H5").Formula = "=NOW()"
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
اللهم صلي وسلم وبارك على نبي الرحمة
الله أكبر ولله الحمد
حققت ما لم يستطع الآخرون تحقيقه
وحطمت عالم الأكواد بإبداعاتك
بارك الله لنا فيك وزادك علماً وحلماً أيها المبدع دائماً
بسم الله ما شاء الله
دالة رائعة من عالم رائع ومبدع
بارك الله فيك أيها العالم الجليل والمفكر العظيم والمبدع المدهش
جعل الله أعمالك صالحة ولوجه الله خالصة
الأخ يوسف
لو أردت كتابة كودين في نفس الحدث فلابد من يتم دمجهما وفي نفس الوقت يراعى ترتيب تنفيذ الأكواد بحيث لا يحدث تعارض من ناحية وحتى يحقق المطلوب منه من ناحية أخرى
ارفق ملف توضح فيه المطلوب ..
أخوك أبو البراء
لا شك أخي أحمد أن الأخ هشام قدم حلول رائعة أيضاً ..وفي المرفق الأول للأخ الحبيب هشام ظهرت معي النتائج بصورة منضبطة فالحل من البداية كان صحيحاً من أخي وحبيبي هشام جزاه الله كل خير