Thread
:
Autofill method of range class failed
View Single Post
#
3
Posted to microsoft.public.excel.misc
Appache
external usenet poster
Posts: 11
Autofill method of range class failed
Hi,
It gives an error message (Aplication defined or object defined error) in
the line of:
..Cells(6, 1).AutoFill .Range(Cells(6, 1), Cells(6, lastcol))
Any idea why it is giving this error message?
--
Thanks
"Don Guillett" wrote:
For Each ws In Worksheets
If ws.Name < "National (2G-3G)" And ws.Name < "National (2G)" And ws.Name
< "National (3G)" And ws.Name < "National (COW)" And ws.Name < "TI Report
(2G-3G)" Then
with ws
lastcol=.cells(6,columns.count).end(xltoleft).colu mn
.Rows("6:6").Insert Shift:=xlDown
' .Range("A6").Value = "=SUBTOTAL(3,A7:A1999)"
' .Range("A6").value=.Range("A6").value
'or
.Range("A6").value=application.SUBTOTAL(3,.range(" A7:A1999")
.Cells(6, 1).AutoFill .Range(cells(6,1),cells(6,lastcol))
end with
End If
Next
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Appache" wrote in message
...
Hi,
I have an error on the code below. Here is the line that cause the error
message.
Selection.AutoFill Destination:=ws.Range("A6:" & Cells(6,
Columns.Count).End(xlToLeft).Address & ""), Type:=xlFillDefault
If I use this (when I use EY6 instead of using cells(...) )
Selection.AutoFill Destination:=ws.Range("A6:EY6"), Type:=xlFillDefault
it doesn't give an error but I need to use the cell to find the last
column
filled in the row.
For Each ws In Worksheets
If ws.Name < "National (2G-3G)" And ws.Name < "National (2G)" And
ws.Name
< "National (3G)" And ws.Name < "National (COW)" And ws.Name < "TI
Report
(2G-3G)" Then
Worksheets(ws.Index).Activate
ws.Rows("6:6").Select
Selection.Insert Shift:=xlDown
Range("A6").Value = "=SUBTOTAL(3,A7:A1999)"
ws.Range("A6").Select
Selection.Copy
ws.Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' Selection.AutoFill Destination:=ws.Range("A6:EY6"),
Type:=xlFillDefault
Selection.AutoFill Destination:=ws.Range("A6:" & Cells(6,
Columns.Count).End(xlToLeft).Address & ""), Type:=xlFillDefault
'ws.Range("A6:EY6").Select
ws.Range("A6:" & Cells(6, Columns.Count).End(xlToLeft).Address &
"").Select
End If
Next
--
Thanks
Reply With Quote
Appache
View Public Profile
Find all posts by Appache