Solved: ANother copy/paste query

[blackie42]

Hi,

I have 2 spreadsheets - one called UMOLD & one called OMNEW.

What I want to do is copy infos from OLD to NEW.

The infos in the 'OLD' sheet are in cells B18,C18,D18 & E18 - these are copied to the 'NEW' sheet in cells B16,C16,D16 & E16.

What I need to then do is copy the next range which is B37, C37,D37 & E37 on 'OLD' to B35,C35,D35 & E35 to 'NEW'.

I need to loop this 49 times and am having trouble figuring in out.

Any help appreciated

thanks

Jon

[Bob Phillips]

For i = 1 To 49
Worksheets("UMOLD").Cells(i * 19 -1,"B").Resize(,4).Copy _
Worksheets("UMNEW").Cells(i * 19 - 3, "B")
Next i

[blackie42]

Thanks for the reply but I'm not sure where this goes in the code - I got this far with it... -> BTW the 2 sheets are in diff workbooks - both sheet 1, both open at same time of course.

Application.ScreenUpdating = False
Windows("UMOLD.xls").Activate
Range("B18").Select
Selection.Copy
Windows("UMNEW.xls").Activate
Range("B16").Select
ActiveSheet.Paste
Windows("UMOLD.xls").Activate
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("UMNEW.xls").Activate
Range("C16").Select
ActiveSheet.Paste
Windows("UMOLD.xls").Activate
Range("D18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("UMNEW.xls").Activate
Range("D16").Select
ActiveSheet.Paste
Windows("UMOLD.xls").Activate
Range("E18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("UMNEW.xls").Activate
Range("E16").Select
ActiveSheet.Paste

I though this was where I'd need to build the repeat code & then start the loop - but got myself a bit confused....

Windows("UMOLD.xls").Activate
Application.CutCopyMode = False
ActiveCell.Offset(21, -3).Select

[Bob Phillips]

Your code cann be simplified to



Application.ScreenUpdating = False
Windows("UMOLD.xls").Range("B18").Resize(,4).Copy _ Windows("UMNEW.xls").Range("B16")


My code did that, but lopped around 49 times taking every 19th row.

[blackie42]

Thanks XLD - now its a bit clearer hopefully I can get it to work

One of those days I think


regards

Jon