حسن محمدسليم عبدالحميد قام بنشر يناير 28, 2012 مشاركة قام بنشر يناير 28, 2012 السلام عليكم ارجو المساعدة فى الكود لكى يقوم بنسخ الشكل الموجود فى شيت 2 حسب العدد المعطى فى الخلية C2 ويكون النسخ لأسفل بمعنى يقوم الكود بلصق الشكل كل 10 صفوف اى عند نهاية الشكل الأول يقوم بنسخ متتالى حسب العدد المعطى فى الخلية C2 وجزاكم الله خيراً Book1.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 28, 2012 مشاركة قام بنشر يناير 28, 2012 السلام عليكم جرب التعديل الاتي Sub ggg() Dim R As Integer Dim shp As Shapes Range("A5").Select w = 10 ActiveSheet.Shapes("Group 2").Select Selection.Copy For R = 1 To [c2] ActiveCell.Offset(w, 0).Range("A1").Select ActiveSheet.Paste Next Range("A1").Select End Sub رابط هذا التعليق شارك 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.