Hey ,
I'm new to VBA and need some help.
Well I want to copy multiple ranges (row1, row2, row3....) that contains one picture each to a different sheet each time (sheet1, sheet2, sheet3...)
I recorded a macro that shows the operation for one row.
Code
- Sub copy_product_info()
- '
- ' copy_product_info Macro
- Range("D2:I2").Select
- Selection.Copy
- Sheets("1").Select
- Range("A6").Select
- ActiveSheet.Paste
- Sheets("MOBILIER UNIQUE PRODUCT").Select
- ActiveSheet.Shapes.Range(Array("Picture 1")).Select
- Application.CutCopyMode = False
- Selection.Copy
- Sheets("1").Select
- Range("A7:F25").Select
- ActiveSheet.Paste
- Selection.ShapeRange.IncrementLeft 3
- Selection.ShapeRange.IncrementTop 8.25
- Selection.ShapeRange.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
- Selection.ShapeRange.ScaleHeight 3, msoFalse, msoScaleFromTopLeft
- End Sub
How can I do run this operation until the last row.
Thank you.