تعديل الكود لجعل الماكرو يتكرر

[ams27]

السلام عليكم انا استخدم الكود ادناه بعمل نسخ للخلية 

S2 من sheet2

الي الخلية k15 في sheet1

ثم اقوم باجراء ماكرو اخر كما هو موضح بالكود

احتاج الي تعديل هذا الكود لينفذ نفس الكلام علي جميع البيانات الموجودة في العمود S

Sub Copy()
'
' Copy Macro
'

'
    Range("S2").Select
    Selection.Copy
    Sheets("Sheet1").Select
    Range("K15").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.Run "Advance.xlsm!svpdf"
    Sheets("Sheet2").Select

 

 

[محي الدين ابو البشر]

Sub Copy()
  With Sheets("sheet1")
  .Range(.Range("S2"), .Range("S2").End(xlDown)).Copy
    Sheets("Sheet2").Select
    Sheets("Sheet2").Range("K15").PasteSpecial Paste:=xlPasteValues
    Application.Run "Advance.xlsm!svpdf"
End With
End Sub

 

[ams27]

بيطلعلي المسج دي 

Run-time error '1004':

To do this, all the merged cells need to be the same size

[محمد هشام.]

تفضل اخي جرب 

Sub Copy_Paste1()
Application.ScreenUpdating = False

Sheets("Sheet2").Range("K15").Value = Sheets("Sheet1").Range("S2").Value
 Application.CutCopyMode = False
   'Application.Run "Advance.xlsm!svpdf"
  
  
End Sub

او 

Sub Copy_Paste2()
Application.ScreenUpdating = False
Sheets("Sheet1").Range("s2").Copy
    Sheets("Sheet2").Range("k15").PasteSpecial xlPasteValues
    Application.CutCopyMode = False

   'Application.Run "Advance.xlsm!svpdf"

End Sub

 

 

test01.xlsm