jammer6_9
08-16-2021, 01:12 AM
I am trying to copy cell values in multiple workbook (same range) however the first capture is over written by the second capture.
Any help on offsetting rows?
With wsTarget
'***** First Data capture ******
.Range("B" & rowTarget).Value = wsSource.Range("E63").Value
.Range("C" & rowTarget).Value = wsSource.Range("G63").Value
.Range("D" & rowTarget).Value = wsSource.Range("H63").Value
.Range("E" & rowTarget).Value = wsSource.Range("I63").Value
.Range("F" & rowTarget).Value = wsSource.Range("J63").Value
.Range("G" & rowTarget).Value = wsSource.Range("K63").Value
.Range("M" & rowTarget).Value = wsSource.Range("L63").Value
.Range("H" & rowTarget).Value = wsSource.Range("M63").Value
.Range("I" & rowTarget).Value = wsSource.Range("N63").Value
.Range("J" & rowTarget).Value = wsSource.Range("O63").Value
.Range("K" & rowTarget).Value = wsSource.Range("P63").Value
.Range("L" & rowTarget).Value = wsSource.Range("Q63").Value
.Range("M" & rowTarget).Value = wsSource.Range("R63").Value
.Range("N" & rowTarget).Value = wsSource.Range("S63").Value
'***** Second Data capture ******
.Range("B" & rowTarget).Value = wsSource.Range("E64").Value
.Range("C" & rowTarget).Value = wsSource.Range("G64").Value
.Range("D" & rowTarget).Value = wsSource.Range("H64").Value
.Range("E" & rowTarget).Value = wsSource.Range("I64").Value
.Range("F" & rowTarget).Value = wsSource.Range("J64").Value
.Range("G" & rowTarget).Value = wsSource.Range("K64").Value
.Range("M" & rowTarget).Value = wsSource.Range("L64").Value
.Range("H" & rowTarget).Value = wsSource.Range("M64").Value
.Range("I" & rowTarget).Value = wsSource.Range("N64").Value
.Range("J" & rowTarget).Value = wsSource.Range("O64").Value
.Range("K" & rowTarget).Value = wsSource.Range("P64").Value
.Range("L" & rowTarget).Value = wsSource.Range("Q64").Value
.Range("M" & rowTarget).Value = wsSource.Range("R64").Value
.Range("N" & rowTarget).Value = wsSource.Range("S64").Value
.Range("A" & rowTarget).Value = Range("e4").Value
End With
Any help on offsetting rows?
With wsTarget
'***** First Data capture ******
.Range("B" & rowTarget).Value = wsSource.Range("E63").Value
.Range("C" & rowTarget).Value = wsSource.Range("G63").Value
.Range("D" & rowTarget).Value = wsSource.Range("H63").Value
.Range("E" & rowTarget).Value = wsSource.Range("I63").Value
.Range("F" & rowTarget).Value = wsSource.Range("J63").Value
.Range("G" & rowTarget).Value = wsSource.Range("K63").Value
.Range("M" & rowTarget).Value = wsSource.Range("L63").Value
.Range("H" & rowTarget).Value = wsSource.Range("M63").Value
.Range("I" & rowTarget).Value = wsSource.Range("N63").Value
.Range("J" & rowTarget).Value = wsSource.Range("O63").Value
.Range("K" & rowTarget).Value = wsSource.Range("P63").Value
.Range("L" & rowTarget).Value = wsSource.Range("Q63").Value
.Range("M" & rowTarget).Value = wsSource.Range("R63").Value
.Range("N" & rowTarget).Value = wsSource.Range("S63").Value
'***** Second Data capture ******
.Range("B" & rowTarget).Value = wsSource.Range("E64").Value
.Range("C" & rowTarget).Value = wsSource.Range("G64").Value
.Range("D" & rowTarget).Value = wsSource.Range("H64").Value
.Range("E" & rowTarget).Value = wsSource.Range("I64").Value
.Range("F" & rowTarget).Value = wsSource.Range("J64").Value
.Range("G" & rowTarget).Value = wsSource.Range("K64").Value
.Range("M" & rowTarget).Value = wsSource.Range("L64").Value
.Range("H" & rowTarget).Value = wsSource.Range("M64").Value
.Range("I" & rowTarget).Value = wsSource.Range("N64").Value
.Range("J" & rowTarget).Value = wsSource.Range("O64").Value
.Range("K" & rowTarget).Value = wsSource.Range("P64").Value
.Range("L" & rowTarget).Value = wsSource.Range("Q64").Value
.Range("M" & rowTarget).Value = wsSource.Range("R64").Value
.Range("N" & rowTarget).Value = wsSource.Range("S64").Value
.Range("A" & rowTarget).Value = Range("e4").Value
End With