I have a button macro that opon a worksheet(01-Length of Contract-Rollovers),
selects the sort area(Data), then sort by three criteria(K7, B7, A7). As I
record the macro to do the job it goes smoothly. As soon as I run the
recorded macro or attaches it to a button, it gives me a "Run-time error
'1004'" errorthat states "The sort reference is not valid. Make sure that
it's within the data you want to sort, and the first Sort By box isn't the
same of blank."

Sheets("01-Length of Contract-Rollovers").Select
Application.Goto Reference:="Data"
Selection.Sort Key1:=Range("K7"), Order1:=xlDescending, Key2:=Range("B7") _
, Order2:=xlAscending, Key3:=Range("A7"), Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal

You went to data( rename to MYdata) but you didn't select it. Try this IDEA
from anywhere in the workbook. Notice the placement of the dots . in
front of .range .

Sub gotomydata()
With Sheets("yoursheet")
.Range("mydata").Sort Key1:=.Range("a2")
End With
End Sub

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"TonyD" <(E-Mail Removed)> wrote in message
news:50DFDC14-7B1C-42C0-AE4D-(E-Mail Removed)...
>I have a button macro that opon a worksheet(01-Length of
>Contract-Rollovers),
> selects the sort area(Data), then sort by three criteria(K7, B7, A7). As I
> record the macro to do the job it goes smoothly. As soon as I run the
> recorded macro or attaches it to a button, it gives me a "Run-time error
> '1004'" errorthat states "The sort reference is not valid. Make sure that
> it's within the data you want to sort, and the first Sort By box isn't the
> same of blank."
>
> Sheets("01-Length of Contract-Rollovers").Select
> Application.Goto Reference:="Data"
> Selection.Sort Key1:=Range("K7"), Order1:=xlDescending, Key2:=Range("B7")
> _
> , Order2:=xlAscending, Key3:=Range("A7"), Order3:=xlAscending, Header
> _
> :=xlGuess, OrderCustom:=1, MatchCase:=False,
> Orientation:=xlTopToBottom _
> , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=
> _
> xlSortNormal
>

So far so good. How can I add extra search criteria?

"Don Guillett" wrote:

> You went to data( rename to MYdata) but you didn't select it. Try this IDEA
> from anywhere in the workbook. Notice the placement of the dots . in
> front of .range .
>
> Sub gotomydata()
> With Sheets("yoursheet")
> .Range("mydata").Sort Key1:=.Range("a2")
> End With
> End Sub
>
> --
> Don Guillett
> SalesAid Software
> (E-Mail Removed)
> "TonyD" <(E-Mail Removed)> wrote in message
> news:50DFDC14-7B1C-42C0-AE4D-(E-Mail Removed)...
> >I have a button macro that opon a worksheet(01-Length of
> >Contract-Rollovers),
> > selects the sort area(Data), then sort by three criteria(K7, B7, A7). As I
> > record the macro to do the job it goes smoothly. As soon as I run the
> > recorded macro or attaches it to a button, it gives me a "Run-time error
> > '1004'" errorthat states "The sort reference is not valid. Make sure that
> > it's within the data you want to sort, and the first Sort By box isn't the
> > same of blank."
> >
> > Sheets("01-Length of Contract-Rollovers").Select
> > Application.Goto Reference:="Data"
> > Selection.Sort Key1:=Range("K7"), Order1:=xlDescending, Key2:=Range("B7")
> > _
> > , Order2:=xlAscending, Key3:=Range("A7"), Order3:=xlAscending, Header
> > _
> > :=xlGuess, OrderCustom:=1, MatchCase:=False,
> > Orientation:=xlTopToBottom _
> > , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:=
> > _
> > xlSortNormal
> >
>
>
>

What I gave was an example. "Extra SEARCH criteria"? If you meant extra SORT
criteria just do it the same way with the dot in front of range.



--
Don Guillett
SalesAid Software
(E-Mail Removed)
"TonyD" <(E-Mail Removed)> wrote in message
news:491F9C4E-2509-47E9-A696-(E-Mail Removed)...
> So far so good. How can I add extra search criteria?
>
> "Don Guillett" wrote:
>
>> You went to data( rename to MYdata) but you didn't select it. Try this
>> IDEA
>> from anywhere in the workbook. Notice the placement of the dots .
>> in
>> front of .range .
>>
>> Sub gotomydata()
>> With Sheets("yoursheet")
>> .Range("mydata").Sort Key1:=.Range("a2")
>> End With
>> End Sub
>>
>> --
>> Don Guillett
>> SalesAid Software
>> (E-Mail Removed)
>> "TonyD" <(E-Mail Removed)> wrote in message
>> news:50DFDC14-7B1C-42C0-AE4D-(E-Mail Removed)...
>> >I have a button macro that opon a worksheet(01-Length of
>> >Contract-Rollovers),
>> > selects the sort area(Data), then sort by three criteria(K7, B7, A7).
>> > As I
>> > record the macro to do the job it goes smoothly. As soon as I run the
>> > recorded macro or attaches it to a button, it gives me a "Run-time
>> > error
>> > '1004'" errorthat states "The sort reference is not valid. Make sure
>> > that
>> > it's within the data you want to sort, and the first Sort By box isn't
>> > the
>> > same of blank."
>> >
>> > Sheets("01-Length of Contract-Rollovers").Select
>> > Application.Goto Reference:="Data"
>> > Selection.Sort Key1:=Range("K7"), Order1:=xlDescending,
>> > Key2:=Range("B7")
>> > _
>> > , Order2:=xlAscending, Key3:=Range("A7"), Order3:=xlAscending,
>> > Header
>> > _
>> > :=xlGuess, OrderCustom:=1, MatchCase:=False,
>> > Orientation:=xlTopToBottom _
>> > , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal,
>> > DataOption3:=
>> > _
>> > xlSortNormal
>> >
>>
>>
>>