(تمت الاجابة) مطلوب استخراج الاسم الرباعى من خلية واحدة الى اربع خلايا

[herni]

السلام عليكم مطلوب من اعضاء المنتدى المساعدة

اريد استخراج الاسم الرباعى من خلية واحدة الى اربع خلايا كما فى المثال المرفق مع تحياتى

استخرج الاسماء.zip

[رجب جاويش]

أخى الفاضل

اليك تفاصل كاملة ووافية عن هذا الموضوع فى الرابط التالى

http://www.officena....85&fromsearch=1

[herni]

شكرا اخ رجب لاكن اريد اعرف الكود او المعادلة مع تحياتى

[رجب جاويش]

أخى الفاضل

هذا هو الكود المستخدم فى المشاركة الثانية

وهو من اعداد الأخ /leprince2007

Private Sub CommandButton1_Click()

For j = 5 To 100

sp = Split(Cells(j, "b"))

For i = LBound(sp) To UBound(sp)

Cells(j, i + 4) = sp(i)

Next

Next

End Sub

أما بقية المشاركات فهى عن طريق المعادلات للأخ الفاضل / سعيد بيرم

[herni]

شكرا اخى انا استفديت منه مع تحياتى لك واعضاء المنتدى