تجزئة الاسم

[احمد 505]

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

 

احبابي الاعزاء

 

طلبي

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

 

1- الاولى اسمها ALL INFO

طبعاً هيه الاصل والادخال يدوي ( وغير مطلوب التعديل عليها )

 

2- الثانية اسمها COPY هي صورة من ALL INFO

 

المطلوب هو.

 

اذا ادخلت الاسم يدوياً في ALL INFO  كامل يتكون من 4 اسماء او 3

 

 يظهر في COPY   نفس الاسم في العمود B  +  انه يتجزأ تلقائياً في 4 اعمدة  او 3 حسب  المرفق

 

 

ارجوا يكون واضح

 

 

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

‫‫‫‫Follow UP.rar

[جمال عبد السميع]

أليك أخى ماطلبت عن طريق معادلة

ولكن هناك ملحوظة هامة أن هذه المعادلة تعتمد على الفراغ بين الكلمات ( SPACE ) ولابد أن تكون مسافة واحدة (1) لاأكثر من ذلك كما كنت عاملها حتى تعمل المعادلة بصورة جيدة

FOLOW UP.rar

[احمد 505]

اخي جمال

 

بارك الله فيك

 

احسنت تمت التجربة

وكل شيئ ممتاز

 

كتب الله اجرك

[جمال عبد السميع]

وبارك فيك أخى

أشكر الله على توفيقة لى

تقبل تحيات : أخيك

[أم عبد الله]

أستاذنا الفاضل ملك المعادلات / جمال عبد السميع

 

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

 

جزاك الله خيراً على هذه الدالة الرائعة وربنا يعطيك الصحة والعافية وجعل جميع اعمالك في ميزان حسناتك.

[الـعيدروس]

الاستاذ الحبيب جمال عبدالسميع

داول مركبة جميله 

بارك الله فيك

 

وهذه بالاكواد

Sub Ali_Txt()
Dim Sv, T_v
For Each ii In [B2:B100]
If Not IsEmpty(ii) Then
With ii
 Sv = Split(.Value, " "): T_v = UBound(Sv)
 Range(Cells(.Row, .Column + 1), Cells(.Row, .Column + 1 + T_v)).Value = Sv
End With
End If
Next
End Sub

[جمال عبد السميع]

أختى الغالية ( أم عبد الله )

شكرا على ذوقك وكلماتك الرائعة ، وأنا متابع أعمالك فى المنتدى

بسم الله ماشاء الله على حضرتك ربنا يوفقك وإلى الأمام دائما

[جمال عبد السميع]

أستاذى ومعلمى ( عباد )

أعمال حضرتك ثروات فحضرتك من عمالقة هذا الصرح إللى تتلمذنا على أيديهم ، وشكرا لحضرتك على ثنائك على المعادلة لأن هذا شرف لى

جزاك الله عنى خيرا أستاذى

[ابو اياد ( الاسيوطى )]

استاذنا / جمال عبد السميع

ابداع فى عالم المعادلات

 

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

[جمال عبد السميع]

أخى الحبيب ( الأب الروحى )

شكرا أخى على مرورك وكلماتك الجميلة ، جعلها الله فى ميزان حسناتك

وألف مبروك الترقية وإلى الأمام دائما

تقبل تحيات : أخيك

[تعليموه]

جزاكم الله خيراً لقد استفدت منكم