الدرس الثالث :- كود VBA لترحيل العملاء بشرط معين

نوفمبر 02, 2017

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

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

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

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

Sub test() x = Range("c2").Value Sheets("sheet1").Activate Range("a4:d" & Cells(Rows.Count, "b").End(xlUp).Row).Copy Sheets(x).Activate lastrow = Range("a" & Rows.Count).End(xlUp).Row Range("a" & lastrow + 1).Select Selection.PasteSpecial xlPasteValues Sheets("sheet1").Activate Range("a4:d10").ClearContents Range("c2").ClearContents Range("c2").Select Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح الى العميل " & x End Sub  

  

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

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

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