الدرس الرابع :- ترحيل البيانات من ورقة عمل الى الاخرى بطريقه افقيه

ديسمبر 29, 2017

اولاً:-نقوم بإختيار تبويب Developer 

ثانياً:- نفتح محرر الاكواد Visual Basic

ثالثاً:-ندرج مديول جديد Insert Module

رابعاً :- نقوم بكتابة الاكواد الاتيه داخل المديول :-

Sub ترحيل_افقى() Sheets(1).Activate Range("a2:a14").Copy Sheets(2).Activate lr = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lr + 1).Select Selection.PasteSpecial xlPasteValues, Transpose:=True Application.CutCopyMode = False Sheets(1).Select End Sub  

  

* اخيراً لا ننسى ان نقوم بحفظ الاكواد السابقه داخل محرر الاكواد VBE

فيسبوك تويتر لينكدين واتساب

مواضيع ذات صلة