AutoFill on selection

[Desert Piranha]

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

 

[Dave Peterson]

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]

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

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



http://www.excelforum.com/showthread.php?threadid=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]

Hi Dave,

Yep, Thats it. "Thank you Very Much Dave".

Thx
Dave

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





http://www.excelforum.com/showthread.php?threadid=519047

 

[Dave Peterson]

Glad it works ok.

Hi Dave,

Yep, Thats it. "Thank you Very Much Dave".

Thx
Dave