VBA Copy paste Images from one cell to another cell on a different sheet

muhammad susanto

Well-known Member
Joined
Jan 8, 2013
Messages
1,798
Office Version
  1. 2013
Platform
  1. Windows
hi all...

i have vba code to copy paste Images from one cell to another cell on a different sheet..
i want how to modify that code with criteria:
1. my destination or placing photo in Sheet1 cell N36:O36 down. My database photo in sheets "hitung1, hitung2, hitung3....photo always consistent in cell D9:E9.
2. how to copy paste photo from sheet "hitung1,hitung2, etc...to Sheet1 in range N36:O36 down..
here this code :
VBA Code:
Sub copyimage2()
       'Activate the sheet 1
    ThisWorkbook.Sheets(1).Activate
   
    'Select Range ...
    ThisWorkbook.Sheets(1).Range(".....").Select
   
    'Copy the image and all other values
    Selection.Copy
   
    'Activate the sheet 2
    ThisWorkbook.Sheets(2).Activate
   
    'Select the target cell ...
    ThisWorkbook.Sheets(2).Range(".......").Select
   
    'Paste the data
    ThisWorkbook.Sheets(2).Paste
   
    End Sub

any help, greatly appreciated..
.sst
 

Attachments

  • database foto.png
    database foto.png
    38.4 KB · Views: 1
  • DESTINATION FOTO.png
    DESTINATION FOTO.png
    45.2 KB · Views: 1

Some videos you may like

Excel Facts

Move date out one month or year
Use =EDATE(A2,1) for one month later. Use EDATE(A2,12) for one year later.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
55,574
Office Version
  1. 365
Platform
  1. Windows
Cross posted
How many times do you have to be told?
Please supply all links.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
55,574
Office Version
  1. 365
Platform
  1. Windows

ADVERTISEMENT

Please supply ALL links.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
55,574
Office Version
  1. 365
Platform
  1. Windows
Thank you. In future please ensure you supply ALL links, without having to be told.
 

Watch MrExcel Video

Forum statistics

Threads
1,127,658
Messages
5,626,138
Members
416,165
Latest member
hamburger138

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top