مساعدة في تحويل بيانات

[سنفور شاطر]

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

[بن علية حاجي]

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

أخي الكريم، أهلا بك عضوا جديدا بين إخوانك، أقدم لك حلا أولا باستعمال المعادلات في الملف المرفق...

أخوك بن علية

تحويل.rar

[الـعيدروس]

السلام عليكم

جرب هذا الكود

Public Sub Ali_Tr()

C = 8

For Each R In Range("A1:D3")

If C Mod 9 Then i = i + 1: C = 8

Cells(i, C) = R: C = C + 1

Next

End Sub

تم تعديل نوفمبر 21, 2012 بواسطه عباد

[سنفور شاطر]

شكرا جزيلا استاذ بن علية واستاذ عباد جعلها الله في ميزان حسناتكم .... لكن استاذ بن علية اذا كان عندي اعمدة اكثر مثلا العمود E وF ماذا اغير في المعادلة جزاك الله خير الجزاء

[الـعيدروس]

السلام عليكم

هذا طلبك بزيادة المدى الى عمود "F"

باالاكواد

تحويل.xls_A.rar

[سنفور شاطر]

بارك الله فيك ابن علية الملف شغال ...لكن انا اريد ان اتعلم هذا الطريقة لكون عندي ملفات كثيرة وبعدد اعمدة مختلفة لذلك اذا امكنك ان تعيد الحل باستخدام المعادلات وليس عن طريق المايكرو ...واذا امكنك ان تشرح لي الرموز التي تدل على السطر والعمود في المعادلة بارك الله فيك ووسع رزقك

[بن علية حاجي]

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

أخي الكريم، المعادلة السابقة التي وضعتها لا يمكن التصرف فيها إلا بتغييرها جذريا لذا قمت بتغييرها بمعادلة أخرى تسمح بتغيير بعض وسائطها (عدد أعمدة البيانات) ولكن يبقى تغييرها فيما يخص مكان حجزها (السطر الذي يتم حجزها فيه) وحسب أول سطر وأول عمود للبيانات (وهذه تركتها لك حسب بياناتك)...

أخوك بن علية

ملاحظة : اسمي هو " بن علية " وليس " ابن علية " لأن كلمة " بن " أصل من الاسم الذي ليس معناه " ولد علية "

تحويل_2.rar

[سنفور شاطر]

بارك الله فيك .....واسف اذا اخطات في اسمك