MOHDS200 قام بنشر أغسطس 24, 2018 مشاركة قام بنشر أغسطس 24, 2018 ارجوا منكم ايجاد دالة تقوم بحويل بعض الصفوف الي اعمدة Book1.xls رابط هذا التعليق شارك More sharing options...
MAHMOUD ALI YOUSSEF قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 دالة تقوم بحويل بعض الصفوف الي اعمدة رابط هذا التعليق شارك More sharing options...
MOHDS200 قام بنشر أغسطس 25, 2018 الكاتب مشاركة قام بنشر أغسطس 25, 2018 اشكرك علي اهتمامك ولكن ليس هذا المطلوب المطلوب هو هناك عمود واحد به ٣ خلايا خلية للاسم وخلية للتليفون وخليةللعنوان وانا عاوز تحويل كل خلية في العمود لصف بمعني لو فرضنا العمود a هايبقي a1 للاسم عميل ١ a2 للعنوانللعميل ١ a3 للتليفون للعميل ١ a4 للاسم للعميل ٢ a5 للعنوان للعميل ٢ a6 للتليفون للعميل ٢ وتحويلها الي b1 c1 d1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 حرب هذا الكود Option Explicit Sub Salim_Transform() If ActiveSheet.Name <> "Data" Then Exit Sub Dim i%, k%: k = 3 Dim C%: C = 1 i = 1 Range("c3").CurrentRegion.Offset(1).ClearContents Do Until Range("A" & i) = vbNullString Cells(C + 1, k) = Range("A" & i) k = k + 1 If k = 6 Then C = C + 1: k = 3 i = i + 1 Loop End Sub الملف مرفق Salim_transforme.xlsm 3 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أغسطس 25, 2018 مشاركة قام بنشر أغسطس 25, 2018 السلام عليكم ورحمة الله حل آخر بالمعادلات باستعمال الدالة OFFSET... بن علية حاجي Book1_1.xls 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان