Log In
Register
Home
New Member
September 17, 2022
Offline
Hey all, I tried searching for this answer but had no luck finding a code that works for my specific issue. I am trying to copy cells B16:M55 for 20 individual tabs, named GPC1 through GPC20, and paste each picture in predetermined cells in the same column, 33 rows apart (e.g. GPC1 pasted on cell C8, GPC2 pasted on cell C41, etc.).
I tried recording this macro but received the error message “Run-time error '1004': The item with the specified name wasn't found.” I also tried recording individual macros for each tab but received the same issue wherein each picture is named sequentially, so the macro doesn’t know what the picture name in the recording relates to (I think).
Does anyone know of a solution to this? I’m completely new to VBA and only have experience recording macros. Any help at all would be much appreciated!
Trusted Members
Moderators
November 1, 2018
Offline
Your pictures will overlap, but the basic syntax would be something like this:
Dim n As Long
For n = 1 To 20
Sheets("GPC" & n).Range("B16:M55").CopyPicture xlScreen, xlPicture
ActiveSheet.Cells((n - 1) * 33 + 8, "C").PasteSpecial
Next n
1 Guest(s)
