تعديل كود نسخ شكل بعدد محدد

[حسن محمدسليم عبدالحميد]

السلام عليكم

ارجو المساعدة فى الكود لكى يقوم بنسخ الشكل الموجود فى شيت 2 حسب العدد المعطى فى الخلية C2 ويكون النسخ لأسفل

بمعنى يقوم الكود بلصق الشكل كل 10 صفوف اى عند نهاية الشكل الأول يقوم بنسخ متتالى حسب العدد المعطى فى الخلية C2

وجزاكم الله خيراً

Book1.rar

[عبدالله المجرب]

السلام عليكم

جرب التعديل الاتي

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