VBA kopier flere enkelt celler

Hej,

Ud fra ovenstående eksempel, ser der ikke ud til at være et simpelt system i, hvordan data flyttes fra et ark til et andet (som fx. A1-A10 flyttes til D6-D15). Hertil foreslår jeg, at du bruger to Arrays til at indholde placeringerne. Det første til original placering, og det næste to kopi. Nedenstående forudsætter
1) at alle originalerne findes i arket 'et' og alle kopierne skal placeres i arket 'to'
2) De to arrays skal udfyldes, så de indeholder lige mange celler.

Sub test()

Dim Org() As Variant
Dim Kopi() As Variant
Dim i As Integer

Org = Array("D6", "D7")
Kopi = Array("E10", "H10")

For i = LBound(Org) To UBound(Org)
    Sheets("to").Range(Kopi(i)) = Sheets("et").Range(Org(i))
Next
   
End Sub

Hvis du blot vil have værdierne (.PasteValues) kan du blot angive disse, f.eks.:

Sheets("to").Range("E10").Value = Sheets("et").Range("D6").Value

Denne linje svarer til dine to første linjer i dit eget eksempel.