W
Workbook
I want to create a code that will
1.) Link I3:I16, I20:I33, I37:I50 from Sheet 2 to B3:B16, B20:B33, B37:B50
from
Sheet 1.
2.) Copy H3:H16, H20:H33, H37:H50 from Sheet 2 and then past special values
into H3:H16, H20:H33, H37:H50 from Sheet 2.
Here is the code I currently have. But it’s not working correctly. Any
suggestions?
Column I
Range("I3").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I4").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I5").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I6").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I7").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I8").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I9").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I10").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I11").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I12").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I13").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I14").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I15").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I16").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I17").Select
ActiveWindow.SmallScroll Down:=6
Range("I20").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I21").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I22").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I23").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I24").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I25").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I26").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I27").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I28").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I29").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I30").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I31").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I32").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I33").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I34").Select
ActiveWindow.SmallScroll Down:=21
Range("I37").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I38").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I39").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I40").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I41").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I42").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I43").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I44").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I45").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I46").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I47").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I48").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I49").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I50").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("H3:H16").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("H20:H33").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("H37:H50").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
1.) Link I3:I16, I20:I33, I37:I50 from Sheet 2 to B3:B16, B20:B33, B37:B50
from
Sheet 1.
2.) Copy H3:H16, H20:H33, H37:H50 from Sheet 2 and then past special values
into H3:H16, H20:H33, H37:H50 from Sheet 2.
Here is the code I currently have. But it’s not working correctly. Any
suggestions?
Column I
Range("I3").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I4").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I5").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I6").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I7").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I8").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I9").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I10").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I11").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I12").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I13").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I14").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I15").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I16").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I17").Select
ActiveWindow.SmallScroll Down:=6
Range("I20").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I21").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I22").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I23").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I24").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I25").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I26").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I27").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I28").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I29").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I30").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I31").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I32").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I33").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I34").Select
ActiveWindow.SmallScroll Down:=21
Range("I37").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I38").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I39").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I40").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I41").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I42").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I43").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I44").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I45").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I46").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I47").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I48").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I49").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("I50").Select
ActiveCell.FormulaR1C1 = "='Sheet 1'!RC[-6]"
Range("H3:H16").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("H20:H33").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=12
Range("H37:H50").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub