كود ترحيل بيانات من صفوف الى أعمدة

[جابر القاسمي]

اريد كود ترحيل بيانات من الصف (a1:c1) الى الأعمدة (a3:a5) و شكرا

Exce.zip

[ابراهيم الحداد]

السلام عليكم ورحمة الله

ضع هذا الكود فى موديول جديد

Sub Trans()
Range("A3:A5") = WorksheetFunction.Transpose(Range("A1:C1"))
End Sub

 

[جابر القاسمي]

شكرا لك يا اخي العزيز على هذا المجهود ما اردت قوله الترحيل في المكانين الملوين في ان واحد بكود واحد ولك جزيل الشكر من والاحترام.

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استبدل الكود السابق بهذا الكود

 

Sub Trans1()
x = WorksheetFunction.Transpose(Range("A1:C1"))
Range("A3:A5") = x
Range("C3:C5") = x
End Sub

 

[جابر القاسمي]

كل الشكر والاحترام والتقدير لك اخي العزيز انا مدين من رأسي الى اخمص قدمي.