I could copy cells values and paste each row in a different sheet using this macro, but I still didn't find a solution to copy pictures.
Code
- Sub Product_info_distribution()
- Const FirstSht As String = "list" '<<< source sheet name
- Dim vCol As Variant, vCell As Variant
- vCol = Array("D", "E", "F", "G", "H", "I")
- vCell = Array("A6", "B6", "C6", "D6", "E6", "F6")
- Dim x As Long, y As Long
- For x = 0 To UBound(vCol)
- For y = 2 To 4
- Sheets(y).Range(vCell(x)).Value = Sheets(FirstSht).Cells(y - 1, vCol(x)).Value
- Next
- Next
- End Sub
You can find in attachements the eanted results.
thank you