hitech قام بنشر ديسمبر 2, 2019 مشاركة قام بنشر ديسمبر 2, 2019 ممكن مساعدة فى الملف المرفق شيت 1.xlsm رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر ديسمبر 2, 2019 مشاركة قام بنشر ديسمبر 2, 2019 كان عليك من البداية استخدام خاصية البحث بالمنتدى -تفضل تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 2, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 2, 2019 تم معالجة الامر بعد تنسيق الجداول في الصفحة الاولى لحسن عمل الماكرو تغيير اسماء الشيتات الى اللغة الاجنبية لنسخ الكود ولصقه بدون ظهور احرف و كلمات غريبة الكود Option Explicit Sub All_in_One() Dim A As Worksheet, B As Worksheet Dim i%, x%, m%, ro%: m = 1 Set A = Sheets("SheetA"): Set B = Sheets("SheetB") B.Range("ِA1").CurrentRegion.ClearContents With A x = .Cells(3, Columns.Count).End(1).Column For i = 1 To x Step 5 ro = .Cells(3, i).CurrentRegion.Rows.Count B.Cells(m, 1).Resize(ro, 4).Value = _ .Cells(4, i).Resize(ro, 4).Value m = m + ro - 1 Next End With End Sub الملف مرفق MY_sheet.xlsm 2 رابط هذا التعليق شارك More sharing options...
hitech قام بنشر ديسمبر 3, 2019 الكاتب مشاركة قام بنشر ديسمبر 3, 2019 استاذنا اريد تعديل بسيط هنفترض ان abc ده اسم و fgg اسم اخر واسفلهم اسماء كثير لانه تقرير ناتج من البصمة اريد ان اجعل حركات اسم abc فقط اسفل بعضها حتى يمكنى من الشغل عليها ثم اجعل حركات fgg اسفل بعضها وهكذا مع كل اسم والف شكر لحضرتك استاذنا الفاضل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان