mohamed322 قام بنشر فبراير 5, 2022 مشاركة قام بنشر فبراير 5, 2022 السلام عليكم برجاء المساعدة فى تحويل البيانات طبقا راس الموضوع على سطرين تحويل من الطول الى العرض شكراااا تحويل من الطول الى العرض.xlsx رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 5, 2022 مشاركة قام بنشر فبراير 5, 2022 Sub Test() Dim r As Long, m As Long Application.ScreenUpdating = False r = 1: m = 7 Do Cells(m, 4).Resize(, 6).Value = Application.Transpose(Cells(r, 1).Resize(6).Value) m = m + 1: r = r + 6 Loop Until r >= Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = True End Sub 2 1 رابط هذا التعليق شارك More sharing options...
mohamed322 قام بنشر فبراير 5, 2022 الكاتب مشاركة قام بنشر فبراير 5, 2022 ممكن مساعدة فى الشيت نفسة واسف على الأزعاج شكرااااا على الأهتمام رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر فبراير 5, 2022 مشاركة قام بنشر فبراير 5, 2022 Press Alt + F11 to login VBE editor From Insert menu select Module Paste the code Back to the worksheet and press Alt + F8 and click Run th execute the code 1 1 رابط هذا التعليق شارك More sharing options...
mohamed322 قام بنشر فبراير 5, 2022 الكاتب مشاركة قام بنشر فبراير 5, 2022 شكراااااااااااااااااااا جدااااااااااااااا ربنا يبارك فيكم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان