loop trend formula

[montecarlo2012]

Hi, I am trying to loop the trend formula in my array A1:F21 and go every four rows on the first col, next col etc. and the results on col I, the code I write have something wrong. any advise please.

Option Explicit
Sub subtractone()
Dim i As Integer, j As Integer

   For j = 2 To 7
    For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row - 1
    
        Cells(i, 7 + j) = "= trend(Cells(i, j))"
        
        
Next
Next

End Sub

the array is integers , thanks.

 

[shg]

Can you post an example of what the formulas should be, and where they should appear?

 

[montecarlo2012]

thanks, shg, maybe the macro illustrated better?,

Sub trend()
' trend Macro
 Range("H1").Select
    ActiveCell.FormulaR1C1 = "=TREND(RC[-7]:R[3]C[-7])"
    Range("H1").Select
    Selection.AutoFill Destination:=Range("H1:H6"), Type:=xlFillDefault
    Range("H1:H6").Select
    Selection.AutoFill Destination:=Range("H1:M6"), Type:=xlFillDefault
    Range("H1:M6").Select
End Sub

 

[shg]

Maybe ...

Sub Trend()
  Range("H1", Cells(Cells(Rows.Count, "A").End(xlUp).Row, "H")).FormulaR1C1 = "=TREND(RC[-7]:R[3]C[-7])"
End Sub

I have no idea what this means:

and go every four rows on the first col, next col etc.

 

[montecarlo2012]

shg, thank you, work for me.

 

[shg]

Glad it did, you're welcome.