Thread: How to copy and paste from one worksheet to another.

Hello All,

I want to copy/paste 2 pictures from other sheets in my workbook to the active sheet that I run the macro in.

How do I do this?

Currently it only works in 'sheet 3' but I want it to work for any worksheet that I execute the macro in.

Sub Logos()
'
' Macro5 Macro
'

'
Sheets("Sheet1").Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
Sheets("Sheet3").Select
Range("D2").Select
ActiveSheet.Paste
Sheets("Sheet2").Select
ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
Sheets("Sheet3").Select
Range("L2").Select
ActiveSheet.Paste
End Sub

I found this code through searching but not sure how to implement it...

Sub test()
Dim wsF As Worksheet
Dim wsU As Worksheet

Set wsU = ThisWorkbook.Worksheets("Update")
Set wsF = ThisWorkbook.Worksheets("Sheet2")


wsF.UsedRange.Offset(1).Copy Destination:=wsU.Range("C5")
End Sub

Any help would be appreciated

Why are you selecting, have you tried the code i gave you as it is?

Dim ws as worksheet
Set ws = ActiveSheet

With sheets(1)
     .Shapes.Range(Array("Picture 1")).Copy
End with

     ws.Range("L2").Paste
           
With sheets(2)
     .Shapes.Range(Array("Picture 1")).Copy
End with

     ws.Range("D2").Paste

End sub

Can you upload the workbook? Or a workbook with similar data and i'll i have a look!

Its Logos macro

Please upload to this site, there is an upload button when you post!

This works!

Sub Steffen()
Dim ws As Worksheet
Set ws = ActiveSheet
With Sheets(1)
     .Shapes("Picture 1").Copy
End With
     ws.Range("L2").PasteSpecial    
With Sheets(1)
     .Shapes("Logo2").Copy
End With   
     ws.Range("L8").PasteSpecial
End Sub

Just change the destiantion range to fit