توزيع بيانات عمود علي عمودين

[ًعبد من عباد الله]

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

أسعد الله أوقاتكم بكل خير

ارجو المساعدة في الملف المرفق والمطلوب موضح بداخله وهو توزيع بكيفية مخصصة ومحددة لبيانات خلايا عمود في عمودين متجاورين وشكرا جزيلا لكل من يساهم في الخير والنفع

توزيع بيانات عمود علي عمودين.xlsx

[طارق محمود]

السلام عليكم
الحل الأسرع ، بلا أكواد
إن كان كما لاحظت في اسم الشهرة لابد من وجود حرف معين في النص
مثل ":" أو "["
فلنعمل فلتر علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "اسم الشهرة"
ثم تغير الفلتر لكيلا يحتوي علي هذا الحرف ثم تأخذ نسخة وتضعها بعمود "الاسم الكامل"
وأخيرا تمسح الأصل

أنظر المرفق

توزيع بيانات عمود علي عمودين.xlsx

[Ali Mohamed Ali]

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

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

[ًعبد من عباد الله]

أ طارق محمود

شكرا للمشاركة الإيجابية والمساهمة في إيجاد حل بالفعل بعد طرح الموضوع هداني ربي لهذه الفكرة وتم تطبيقها ولكن ..

أريد كود لأصل الفكرة لأنها ترد عليّ كثيراً بأشكال مختلفة وهي أن يقوم الكود بتوزيع بيانات عمود خلية بعد خلية بالترتيب في عمودين متجاورين وليس شرط أن يكون بدلالة معينة لما لداخل الخلية من بيانات فإن كان ذلك متاحاً فسيكون ذلك فضل كبير.

أ علي محمد علي

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

شكرا للجميع حسن مشاركتهم لما فيه الخير

تم تعديل سبتمبر 18, 2018 بواسطه وائل أبو عبد الرحمن

[طارق محمود]

السلام عليكم
تفضل كود سريع

Sub distrib()
[A9999].End(xlUp).Select
Range(ActiveCell, Selection.End(xlUp)).Select
For i = 1 To Selection.Rows.Count Step 2
[B9999].End(xlUp).Offset(1, 0) = Selection(i)
[C9999].End(xlUp).Offset(1, 0) = Selection(i + 1)
Next i
Selection.Clear
[A6].Select
End Sub

أنظر المرفق به الكود مع زر تشغيل

 

أخي الكريم/ علي محمد علي

جزاك الله خيرا
أصبح وقتي بالعمل والأسرة ضيق .. دعواتك

 

توزيع بيانات عمود علي عمودين.xlsm

[Ali Mohamed Ali]

احسنت يا بشمهندس كود ممتاز وادى الغرض بارك الله فيك

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

[ًعبد من عباد الله]

كل الشكر والتقدير للأستاذ طارق محمود

علي الاهتمام وحسن الأداء جزاك الله خير وبارك فيك فقد وفيت وكفيت شكرا لحضرتك