Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code issue
Here is my code:
Sheets("Stepdown2").Columns("P:S").Select Selection.ClearContents Cells.Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<" Set rang = Sheets("Stepdown2").AutoFilter.Range rang.Copy Sheets("CEU Database").Select Rows("4:4").Select Selection.Insert Shift:=xlDown I get an error at the last line. When I try it manually it says the paste area and the copy area are not the same size??? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code issue
Might be because you have selected entire columns and are trying to insert
into a range that is 3 rows short of entire columns. Gord Dibben Excel MVP On Sat, 4 Dec 2004 08:01:03 -0800, "scrabtree23" wrote: Here is my code: Sheets("Stepdown2").Columns("P:S").Select Selection.ClearContents Cells.Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<" Set rang = Sheets("Stepdown2").AutoFilter.Range rang.Copy Sheets("CEU Database").Select Rows("4:4").Select Selection.Insert Shift:=xlDown I get an error at the last line. When I try it manually it says the paste area and the copy area are not the same size??? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA Code issue
With Sheets("Stepdown2")
.Columns("P:S").ClearContents .Range("A1").CurrentRegion.AutoFilter Field:=1, Criteria1:="<" Set rang = .AutoFilter.Range End With set rng1 = rang.columns(1).specialcells(xlvisible) Sheets("CEU Database").Rows("4:4") _ .Resize(rng1.count).Insert Shift:=xlDown rang.Copy Destination:=Sheetes("CEU Database").Range("A4") Untested, but might work. -- Regards, Tom Ogilvy "scrabtree23" wrote in message ... Here is my code: Sheets("Stepdown2").Columns("P:S").Select Selection.ClearContents Cells.Select Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="<" Set rang = Sheets("Stepdown2").AutoFilter.Range rang.Copy Sheets("CEU Database").Select Rows("4:4").Select Selection.Insert Shift:=xlDown I get an error at the last line. When I try it manually it says the paste area and the copy area are not the same size??? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
option buttons run Click code when value is changed via VBA code | Excel Programming | |||
VBA code delete code but ask for password and unlock VBA protection | Excel Programming |