Move and Link

T

TGalin

In Sheet 1 copy range A4:H4. In Sheet 2 paste A4:H4 into cell B5. Next link
cell B4 in Sheet 2 to cell AK4 in Sheet1. Afterwards return to Sheet 1 copy
range A5:H5. In Sheet 2 paste A5:H5 into cell B7. Next link cell B6 in
Sheet 2 to cell AK5 in Sheet1. Repeat the pattern until every cell in range
A4:H200 has been covered. Here is what I have so far.

Sub Moveandlink()
Application.Goto Reference:="R4C1:R4C8"
Selection.Copy
Sheets("Sheet 2").Select
Range("B5").Select
ActiveSheet.Paste
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[35]"
Range("B5").Select
Sheets("Sheet 1").Select
Application.Goto Reference:="R5C1:R5C8"
Selection.Copy
Sheets("Sheet 2").Select
Range("B7").Select
ActiveSheet.Paste
Range("B6").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "='Sheet 1'!R[-1]C[35]"
Range("B7").Select
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Move and Link2 2
Having difficulty copying and pasting on VBA 3
cannot insert row in vba 1
Formula Question 2
Would like a more efficient way to Copy/PasteSpecial 4
Help with Index formula 2
excel macro stops 0
Link Cells & Paste Special Macro 7

Top