VBA fill range

[almagg]

so i copy a cell then paste in another workbook.
then i want to fill the range for 25 cells to the right.

here is what i recorded to start with, but the rows are going to change
as i go down the list:

Selection.AutoFill Destination:=Range("S65:AD65"), Type:=xlFillDefault

this is what i thought might work:

Selection.AutoFill Destination:=Range(Cells(0, 25)), Type:=xlFillDefault

i am sure it is just a matter of setting up the 'Range' part right.

thanks

 

[Norie]

How will the rows change?

Perhaps something like this.

Selection.AutoFill Destination:=Selection.Resize(, 25), Type:=xlFillDefault

 

[almagg]

that made the row height smaller

well say the first fill willbe from:

S65:AD65

the next fill, assuming it is in the next row would be:

S66:AD66

but it could be row 70 or another

Here is what I got:

Sub moreforecastlinks()

Do Until ActiveCell.Value = ""

mygl = ActiveCell.Value
On Error GoTo 5 'If 'mygl' is not found
ActiveWindow.ActivateNext
Range("A1").Select
Cells.Find(What:=mygl, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 3).Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"='[2007 Department Expense Summary - 10329.xls]Summary'! _
R[-11]C[-2]" 'Removes the Absolute References
Selection.AutoFill Destination:=Selection.Cells(0,25), _
Type:=xlFillDefault
ActiveCell.Offset(1, -4).Select

5 Loop

End Sub[/b]

 

[almagg]

that made the row height smaller

well say the first fill willbe from:

S65:AD65

the next fill, assuming it is in the next row would be:

S66:AD66

but it could be row 70 or another

Here is what I got and the problem in question is in bold:

Sub moreforecastlinks()

Do Until ActiveCell.Value = ""

mygl = ActiveCell.Value
On Error GoTo 5 'If 'mygl' is not found
ActiveWindow.ActivateNext
Range("A1").Select
Cells.Find(What:=mygl, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 3).Select
Selection.Copy
ActiveWindow.ActivateNext
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste Link:=True
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = _
"='[2007 Department Expense Summary - 10329.xls]Summary'! _
R[-11]C[-2]" 'Removes the Absolute References
Selection.AutoFill Destination:=Selection.Cells(0,25), _
Type:=xlFillDefault
ActiveCell.Offset(1, -4).Select

5 Loop

End Sub[/b]