أيمن بهجت

مبروك الترقيه عقبال ماتبقا من المشرفين باذن الله

هو مافيش موضوع لامم اغلب الاكواد و استخدام كل كود ايه؟

تشكر يا باشا جاري مالمذاكره

ههههههههههههههههههههه والله انتو ناس زي العسل و بصراحه انا لسه متعلم الماكرو النهرده و ما اخدتش فيه الا نص ساعه كده قرايه و عملت الكومند ده و عايز احترف الماكرو هل في اسلوب اتعلم منه الماكرو و بجد استفدت من مناقشتكو و خصوصا ال 10 اخطاء ;) ربنا يباركلكو والله انتو ناس ميه الميه الميه الميه

مشكور يا غالي على تعبك معايا

يوميه مخازن.rar

Sub InternalSwitch() Dim lr As Integer Sheets(1).Activate ir = [A100000].End(xlUp).Row Range("a2:h" & lr).Copy Sheets(5).Activate Range("a" & [A100000].End(xlUp).Row + 1).Select Selection.PasteSpecial xlPasteValues Sheets(1).Activate Range("a2").Select Range("a2:h10000000").ClearContents End Sub ده الكوماند كلو كل اللى عايزه انقل من شيت 1 لشيت 5 البيانات

Range("A2:H" & lr).Copy حد يعرف ايه المشكله فى الكومند ده مع العلم اني بستخدم اكسل 2013