Range of averages

[teepee]

Can anyone help

I have a value for T1 and a value for T11 (which might be greater or
lesser.)

I want to fill T2 through T10 with a series of averages to smoothly fill the
gap so to speak.

So if T1 were 1 and T11 were 11, the series would count out 1 to 11
And if T1 were 22 and T2 were 2, then the series would count backwards from
22 to 2, even number only.

Anyone know how?

[Tom Ogilvy]

Sub LinearFill()
Dim StepValue
Range("T1:T11").Select
StepValue = (Selection(Selection.Count) - Selection(1)) /
(Selection.Count - 1)
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=StepValue, Trend:=False
End Sub

--
Regards,
Tom Ogilvy

"teepee" <[email protected]> wrote in message
news:[email protected]...
> Can anyone help
>
> I have a value for T1 and a value for T11 (which might be greater or
> lesser.)
>
> I want to fill T2 through T10 with a series of averages to smoothly fill
the
> gap so to speak.
>
> So if T1 were 1 and T11 were 11, the series would count out 1 to 11
> And if T1 were 22 and T2 were 2, then the series would count backwards
from
> 22 to 2, even number only.
>
> Anyone know how?
>
>

[Gary''s Student]

In T2 put:
=T1+($T$11-$T$1)/10
and copy down to T10.


--
Gary's Student


"teepee" wrote:

> Can anyone help
>
> I have a value for T1 and a value for T11 (which might be greater or
> lesser.)
>
> I want to fill T2 through T10 with a series of averages to smoothly fill the
> gap so to speak.
>
> So if T1 were 1 and T11 were 11, the series would count out 1 to 11
> And if T1 were 22 and T2 were 2, then the series would count backwards from
> 22 to 2, even number only.
>
> Anyone know how?
>
>
>

[Tom Ogilvy]

Some wordwrap problems:

Sub LinearFill()
Dim StepValue
Range("T1:T11").Select
StepValue = (Selection(Selection.Count) - _
Selection(1)) /(Selection.Count - 1)
Selection.DataSeries Rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, _
Step:=StepValue, Trend:=False
End Sub

or manually
select your range and do Edit=>Fill=>Series.

select Row and linear

--
Regards,
Tom Ogilvy

"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Sub LinearFill()
> Dim StepValue
> Range("T1:T11").Select
> StepValue = (Selection(Selection.Count) - Selection(1)) /
> (Selection.Count - 1)
> Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
> Step:=StepValue, Trend:=False
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
> "teepee" <[email protected]> wrote in message
> news:[email protected]...
> > Can anyone help
> >
> > I have a value for T1 and a value for T11 (which might be greater or
> > lesser.)
> >
> > I want to fill T2 through T10 with a series of averages to smoothly fill
> the
> > gap so to speak.
> >
> > So if T1 were 1 and T11 were 11, the series would count out 1 to 11
> > And if T1 were 22 and T2 were 2, then the series would count backwards
> from
> > 22 to 2, even number only.
> >
> > Anyone know how?
> >
> >
>
>

[teepee]

"Gary''s Student" <[email protected]> wrote in message
news:[email protected]...
> In T2 put:
> =T1+($T$11-$T$1)/10
> and copy down to T10.

of course. brilliant yet obvious.
Thanks