use linest results without referring to cells

[ThomasOES]

Hello
Currently I use linest to generate a slope and constant.
The range represents two adjacent cells.

Range(fdeg, cnst) = Application.LinEst(DriftDat, DriftIn)

I would like to use the 1st degree coefficient and constant without the need for cells.
Something like

fdeg, cnst = Application.LinEst(DriftDat, DriftIn)

with fdeg being the 1st degree coefficient and cnst being the constant
Any ideas?
Thanks
Tom

 

[ThomasOES]

Got it

Set yns = Range("L2:L5")
Set xns = Range("M2:M5")

fdeg = Application.Index(Application.LinEst(xns, yns), 1)
cnst = Application.Index(Application.LinEst(xns, yns), 2)

 

[JGordon11]

or

LE = Application.LinEst(DriftDat, DriftIn)
fdeg = LE(1)
cnst = LE(2)

 

[joeu2004]

Dim fdeg As Double, cnst As Double
fdeg = WorksheetFunction.Slope(DriftDat, DriftIn)
cnst = WorksheetFunction.Intercept(DriftDat, DriftIn)

 

[ThomasOES]

Slick code JGordon. I adapted it to a 3rd degree polynomial.

Set yns = Range("L2:L5")
Set xns = Range("M2:M5")

fird = Application.LinEst(xns, yns)
firco = fird(1)
cnst = fird(2)

thid = Application _
        .LinEst(xns, _
            Application.Power(yns, Array(1, 2, 3)))
thid3 = thid(1)
thid2 = thid(2)
thid1 = thid(3)
thidc = thid(4)

Thanks

Tom

 

[JGordon11]

You're welcome. Glad I could help.