macros

J

JulieD

posting your code would help us determine a possible solution - please do
not attache the workbook .. just copy & paste the code

Cheers
JulieD
 
E

Elvis

This is what I have down as my macro. I have the same macro in another file
and it works perfectly there.

ActiveWindow.SmallScroll ToRight:=-22
Range("A1:H599").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"BC1:BH2"), CopyToRange:=Range("BJ1:BO36"), Unique:=False
End Sub
 
J

JulieD

Hi Elvis

- place an apostraphe (') in front of the ActiveWindow.SmallScroll
ToRight:=-22 line as i'm not sure you actually need it
is your data in the range A1:H599?
are your headers in row 1?
does your data start in row 2?
is your criteria range actually BC1:BH2?
is the field names you're filtering on in this range on row 1?
do you have any criteria that you know exists in the data range in row
2?
are you sure only 36 rows of data will be returned (your destination range
says populate rows 1 to 36)?
if the amount of rows of returned data is unknown change the following
bit of code
CopyToRange:=Range("BJ1:BO36"),
to
CopyToRange:=Range("BJ1"),

Cheers
JulieD
 
Top