Amro osama قام بنشر يونيو 17, 2017 مشاركة قام بنشر يونيو 17, 2017 (معدل) السلام عليكم لدي جدول أفقي به بيانات و اريد نقل بياناته الى جدول رأسي بمعادلات ارتباط مع العلم ان البيانات مدخلة بعمود و العمود التالي له فارغ مرفق ملف لتوضيح المطلوب و شكرا جزيلا أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar تم تعديل يونيو 17, 2017 بواسطه Amro osama رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر يونيو 17, 2017 أفضل إجابة مشاركة قام بنشر يونيو 17, 2017 السلام عليكم ورحمة الله تفضل اخى الكريم أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar 1 رابط هذا التعليق شارك More sharing options...
Amro osama قام بنشر يونيو 18, 2017 الكاتب مشاركة قام بنشر يونيو 18, 2017 (معدل) 4 hours ago, زيزو العجوز said: السلام عليكم ورحمة الله تفضل اخى الكريم أريد معادلة لاستكمال بيانات الجدول الرأسي من الأفقي مع مراعاة تخطي الفراغات.rar و عليكم السلام و رحمة الله و بركاته جزاكم الله خيرا فعلا جربت المعادلات و اشتغل معايا تمام بس المشكلة رفعلي حجم الملف بتاعي من نص ميجا ل 15 ميجا هل في حل علشان اقلل حجم الملف؟ و شكراً تم تعديل يونيو 18, 2017 بواسطه Amro osama رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 18, 2017 مشاركة قام بنشر يونيو 18, 2017 اذا كان حجم البيانات كبيراً يمنك استعمال الماكرو Option Explicit Sub Transpose_range() If ActiveSheet.Name <> "Salim" Then Exit Sub Dim my_rg As Range Dim Ro, Col As Integer Range("b9:c100000").Clear Ro = 3 Col = ActiveSheet.Cells(3, Columns.Count).End(1).Column With Cells(9, 2).Resize(Col - 1, 2) .Value = Application.Transpose(Range(Cells(Ro, 2), Cells(4, Col))) .Borders.LineStyle = 1 .SpecialCells(4).EntireRow.Delete End With End Sub الملف مرفق الورقة Salim Transpose_Data.rar رابط هذا التعليق شارك More sharing options...
Amro osama قام بنشر يوليو 15, 2017 الكاتب مشاركة قام بنشر يوليو 15, 2017 On 6/18/2017 at 6:08 AM, سليم حاصبيا said: اذا كان حجم البيانات كبيراً يمنك استعمال الماكرو Option Explicit Sub Transpose_range() If ActiveSheet.Name <> "Salim" Then Exit Sub Dim my_rg As Range Dim Ro, Col As Integer Range("b9:c100000").Clear Ro = 3 Col = ActiveSheet.Cells(3, Columns.Count).End(1).Column With Cells(9, 2).Resize(Col - 1, 2) .Value = Application.Transpose(Range(Cells(Ro, 2), Cells(4, Col))) .Borders.LineStyle = 1 .SpecialCells(4).EntireRow.Delete End With End Sub الملف مرفق الورقة Salim Transpose_Data.rar ممتاذ :) شكرا جزيلا على مجهودك جزاكم الله خيراً رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان