جابر القاسمي قام بنشر ديسمبر 26, 2016 مشاركة قام بنشر ديسمبر 26, 2016 اريد كود ترحيل بيانات من الصف (a1:c1) الى الأعمدة (a3:a5) و شكرا Exce.zip رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 26, 2016 مشاركة قام بنشر ديسمبر 26, 2016 السلام عليكم ورحمة الله ضع هذا الكود فى موديول جديد Sub Trans() Range("A3:A5") = WorksheetFunction.Transpose(Range("A1:C1")) End Sub رابط هذا التعليق شارك More sharing options...
جابر القاسمي قام بنشر ديسمبر 27, 2016 الكاتب مشاركة قام بنشر ديسمبر 27, 2016 شكرا لك يا اخي العزيز على هذا المجهود ما اردت قوله الترحيل في المكانين الملوين في ان واحد بكود واحد ولك جزيل الشكر من والاحترام. رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 27, 2016 مشاركة قام بنشر ديسمبر 27, 2016 السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub Trans1() x = WorksheetFunction.Transpose(Range("A1:C1")) Range("A3:A5") = x Range("C3:C5") = x End Sub رابط هذا التعليق شارك More sharing options...
جابر القاسمي قام بنشر ديسمبر 27, 2016 الكاتب مشاركة قام بنشر ديسمبر 27, 2016 كل الشكر والاحترام والتقدير لك اخي العزيز انا مدين من رأسي الى اخمص قدمي. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.