AutoFill on selection

Does progressive mean that you want to fill the cells row by row (one by one)?

Or you just want to fill that formula into a larger range--say based on the last
cell used in column A?

Option Explicit
Sub testme()
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("B1").AutoFill Destination:=.Range("B1:b" & LastRow)
End With
End Sub


Desert Piranha wrote:
>
> Hi all,
>
> Trying to use AutoFill on a selected range instead of a hardcoded
> range. Ie: if i have a formula in B1,
> then i select B1 and highlight a range. I want the formula copied as
> progressive into the range.
> Trying stuff like this with no joy.
>
> Sub FillTest()
> With Selection
> '.AutoFill Destination = fillRange
> '.AutoFill (Destination = fillRange)
> 'SourceRange.AutoFill Destination:=fillRange
> End With
> End Sub
>
> Sub FillTest()
> Selection.AutoFill Destination:=ActiveCell.Range("Want Selected range
> here"), _
> Type:=xlFillDefault
> End Sub
>
> --
> Desert Piranha
>
> ------------------------------------------------------------------------
> Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
> View this thread: http://www.excelforum.com/showthread...hreadid=519047

--

Dave Peterson

So you have a selection of cells and you want to fill the top row down through
the selected area?

Option Explicit
Sub testme2()
Dim myRng As Range
Set myRng = Selection.Areas(1)
myRng.Rows(1).AutoFill Destination:=myRng
End Sub




Desert Piranha wrote:
>
> Hi Dave,
>
> What you have here, does what i am doing, with the AutoFill,
> except instead of hard coding the range i want to select the range.
> like
> ActiveCell.AutoFill Destination:=.Range(Selection)
>
> Thx
> Dave
> Dave Peterson Wrote:
> > Does progressive mean that you want to fill the cells row by row (one by
> > one)?
> >
> > Or you just want to fill that formula into a larger range--say based on
> > the last
> > cell used in column A?
> >
> > Option Explicit
> > Sub testme()
> > Dim LastRow As Long
> > With ActiveSheet
> > LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
> > .Range("B1").AutoFill Destination:=.Range("B1:b" & LastRow)
> > End With
> > End Sub
> >
> >
> > Desert Piranha wrote:
> > >
> > > Hi all,
> > >
> > > Trying to use AutoFill on a selected range instead of a hardcoded
> > > range. Ie: if i have a formula in B1,
> > > then i select B1 and highlight a range. I want the formula copied as
> > > progressive into the range.
> > > Trying stuff like this with no joy.
> > >
> > > Sub FillTest()
> > > With Selection
> > > '.AutoFill Destination = fillRange
> > > '.AutoFill (Destination = fillRange)
> > > 'SourceRange.AutoFill Destination:=fillRange
> > > End With
> > > End Sub
> > >
> > > Sub FillTest()
> > > Selection.AutoFill Destination:=ActiveCell.Range("Want Selected
> > range
> > > here"), _
> > > Type:=xlFillDefault
> > > End Sub
> > >
> > > --
> > > Desert Piranha
> > >
> > >
> > ------------------------------------------------------------------------
> > > Desert Piranha's Profile:
> > http://www.excelforum.com/member.php...o&userid=28934
> > > View this thread:
> > http://www.excelforum.com/showthread...hreadid=519047
> >
> > --
> >
> > Dave Peterson
>
> --
> Desert Piranha
>
> ------------------------------------------------------------------------
> Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
> View this thread: http://www.excelforum.com/showthread...hreadid=519047

--

Dave Peterson

Glad it works ok.

Desert Piranha wrote:
>
> Hi Dave,
>
> Yep, Thats it. "Thank you Very Much Dave".
>
> Thx
> Dave
> Dave Peterson Wrote:
> > So you have a selection of cells and you want to fill the top row down
> > through
> > the selected area?
> >
> > Option Explicit
> > Sub testme2()
> > Dim myRng As Range
> > Set myRng = Selection.Areas(1)
> > myRng.Rows(1).AutoFill Destination:=myRng
> > End Sub
> >
> >
> >
> >
> > Desert Piranha wrote:
> > >
> > > Hi Dave,
> > >
> > > What you have here, does what i am doing, with the AutoFill,
> > > except instead of hard coding the range i want to select the range.
> > > like
> > > ActiveCell.AutoFill Destination:=.Range(Selection)
> > >
> > > Thx
> > > Dave
> > > Dave Peterson Wrote:
> > > > Does progressive mean that you want to fill the cells row by row
> > (one by
> > > > one)?
> > > >
> > > > Or you just want to fill that formula into a larger range--say
> > based on
> > > > the last
> > > > cell used in column A?
> > > >
> > > > Option Explicit
> > > > Sub testme()
> > > > Dim LastRow As Long
> > > > With ActiveSheet
> > > > LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
> > > > .Range("B1").AutoFill Destination:=.Range("B1:b" & LastRow)
> > > > End With
> > > > End Sub
> > > >
> > > >
> > > > Desert Piranha wrote:
> > > > >
> > > > > Hi all,
> > > > >
> > > > > Trying to use AutoFill on a selected range instead of a
> > hardcoded
> > > > > range. Ie: if i have a formula in B1,
> > > > > then i select B1 and highlight a range. I want the formula copied
> > as
> > > > > progressive into the range.
> > > > > Trying stuff like this with no joy.
> > > > >
> > > > > Sub FillTest()
> > > > > With Selection
> > > > > '.AutoFill Destination = fillRange
> > > > > '.AutoFill (Destination = fillRange)
> > > > > 'SourceRange.AutoFill Destination:=fillRange
> > > > > End With
> > > > > End Sub
> > > > >
> > > > > Sub FillTest()
> > > > > Selection.AutoFill Destination:=ActiveCell.Range("Want Selected
> > > > range
> > > > > here"), _
> > > > > Type:=xlFillDefault
> > > > > End Sub
> > > > >
> > > > > --
> > > > > Desert Piranha
> > > > >
> > > > >
> > > >
> > ------------------------------------------------------------------------
> > > > > Desert Piranha's Profile:
> > > > http://www.excelforum.com/member.php...o&userid=28934
> > > > > View this thread:
> > > > http://www.excelforum.com/showthread...hreadid=519047
> > > >
> > > > --
> > > >
> > > > Dave Peterson
> > >
> > > --
> > > Desert Piranha
> > >
> > >
> > ------------------------------------------------------------------------
> > > Desert Piranha's Profile:
> > http://www.excelforum.com/member.php...o&userid=28934
> > > View this thread:
> > http://www.excelforum.com/showthread...hreadid=519047
> >
> > --
> >
> > Dave Peterson
>
> --
> Desert Piranha
>
> ------------------------------------------------------------------------
> Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
> View this thread: http://www.excelforum.com/showthread...hreadid=519047

--

Dave Peterson