Code Error

[Dolemitefunk]

Can someone please tell me what is wrong with my coding?

Sub Autocopy36()
Dim master As Workbook
Dim factors As Worksheet

Set master = ActiveWorkbook
Set factors = master.ActiveSheet

Set Test= Workbooks.Open("U:\Me\docs.xlsx")

Set Result= Test.Worksheets("Numbers")


Result.Range("H14").Select
ActiveCell.FormulaR1C1 = "=factors.C31"
Range("H14").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

 

[Dolemitefunk]

I am recieving the error on the Range. ....etc line, I am very new to macros, any help would be greatly appreciated

 

[Desu Nota from Columbus]

Can someone please tell me what is wrong with my coding?

Sub Autocopy36()
Dim master As Workbook
Dim factors As Worksheet

Set master = ActiveWorkbook
Set factors = master.ActiveSheet

Set Test= Workbooks.Open("U:\Me\docs.xlsx")

Set Result= Test.Worksheets("Numbers")


Result.Range("H14").Select
ActiveCell.FormulaR1C1 = "=factors.C31"
Range("H14").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

I think it is because you didn't specify which sheet you are working on.

Try

With Sheets("Numbers")
Result.Range("H14").Select
    ActiveCell.FormulaR1C1 = "=factors.C31"
    Range("H14").Select
    Selection.Copy
    Range(Selection, Selection.End(xlDown)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End With
End Sub

 

[Desu Nota from Columbus]

What exactly are you trying to do with this code?

I see the end of it is from a recorded macro.

 

[Dolemitefunk]

For this macro I am trying to open another file, select cell H14, link that cell to the worksheet the macro is in at Cell C31. I did this witht he record function at first , and it ended up giving me code that offseted a cell from a reference point, and I wanted it to be a specific cell (C13)...I hope that makes sense

 

[Desu Nota from Columbus]

For this macro I am trying to open another file, select cell H14, link that cell to the worksheet the macro is in at Cell C31. I did this witht he record function at first , and it ended up giving me code that offseted a cell from a reference point, and I wanted it to be a specific cell (C13)...I hope that makes sense

I am also new to using VBA, but from what I know when you use the .FormulaR1C1 you must refer to cells in terms of row(R) and column (C).

For an absolute reference to H15 using the R1C1 notation use: R15C8.


Similarly, for an absolute reference to cell C31 use: R31C3 (31st row, column 3)

The difference is the lack of brackets [], when the brackets appear that is when the cell reference is "offseted".

So try using these absolute references with the recorded macro and see if they work for you now.

 

[Dolemitefunk]

Awesome, I appreciate all your help, I will try this method and see what I can achieve with it. Thanks again.