اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

اشكرك على الرد السريع للمشاركة ولقد قمت باستخدام الـ TextToColumns من القائمة البيانات ولكنها لم تفي بالغرض

فهل من بديل

وشكرا ..... :gift2:
 

قام بنشر

اخى الكريم

احمد عبد الناصر

اشكرك  على التوضيح بكيفية استخدام الـ text to columns حيث اننى قد استخدمتها من قبل مثلما تفضل الاخ الفاضل يحيى حسين ولكنى لم اكن اضع الـ / بعد اختيار الـ other ، لذا فقد تم ما هو مراد

وجزاكم الله تعالي كل الخير انتم وجميع المشاركين فى المنتدى .......

قام بنشر

ولاثراء الموضوع

هذا كود يقوم بعمل المطلوب

Sub ragab()
LR = [D10000].End(xlUp).Row
For i = 5 To LR
r = Split(Cells(i, 4), "/")
T = 6
For ii = UBound(r) To LBound(r) Step -1
Cells(i, T) = r(ii)
T = T + 1
Next

Next
End Sub

 

book2.rar

  • Like 2
قام بنشر

السلام عليكم

الاستاذ القدير / رجب جاويش

 

كل يوم يمر علينا نتعلم المزيد والمزيد منك

وبالفعل كود احترافي

جزاك الله خيرا

قام بنشر

أخواى الحبيبين / أبو حنين و حمادة عمر

شرفنى جدا وأسعدنى هذا المرور العطر منكما

زادكما الله من الفضل والعلم

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information