Edit the code for all data

[ayman helmy]

I Use the code below to copy S2 from Sheet2 to paste in k15 in sheet1
Then I run another macro as shown in the code I need to edit this code to do the same for all data in column 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

 

[mikenelena]

If I understand your requirements correctly regarding the location for where the pasted data should go, this code might get the job done for you:

Sub CopyAll()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Sheets("Sheet12").Range("S" & Rows.Count).End(xlUp).row
    
    For i = 2 To lastRow
        Sheets("Sheet12").Range("S" & i).Copy
        Sheets("Sheet11").Range("K" & i + 13).PasteSpecial Paste:=xlPasteValues
    Next i
    
    Application.CutCopyMode = False
    Application.Run "Advance.xlsm!svpdf"
End Sub

 

[ayman helmy]

If I understand your requirements correctly regarding the location for where the pasted data should go, this code might get the job done for you:

Sub CopyAll()
    Dim lastRow As Long
    Dim i As Long
   
    lastRow = Sheets("Sheet12").Range("S" & Rows.Count).End(xlUp).row
   
    For i = 2 To lastRow
        Sheets("Sheet12").Range("S" & i).Copy
        Sheets("Sheet11").Range("K" & i + 13).PasteSpecial Paste:=xlPasteValues
    Next i
   
    Application.CutCopyMode = False
    Application.Run "Advance.xlsm!svpdf"
End Sub

Above code run the macro by copy all then runs it

What i want is copy s2 in sheet2 to K15 in sheet1 then run macro "advance.xlsm!svpdf"
And repeat the process again on S3 to K15 then run the macro
Then for S4 and S5 etc....

 

[kvsrinivasamurthy]

Try

Sub CopyRunMacro()
Dim Lr As Long, T As Long

Lr = Sheets("sheet2").Range("S" & Rows.Count).End(xlUp).Row
For T = 2 To Lr
Sheets("sheet2").Range("S" & T).Copy Sheets("sheet2").Range("K15")
Application.Run "Advance.xlsm!svpdf"
Next T
End Sub