View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Dave Peterson Dave Peterson is offline
external usenet poster
 
Posts: 35,218
Default Sorting an Addin Worksheet

Did you copy and paste the code or did you type it from scratch?

If you typed it, double check those dots--they're important.

Another thing to check--is the worksheet protected?

If you can't find it, post your code.

MSweetG222 wrote:

Dave - Sorry to bother you again...
I am getting a "Sort method of Range class failed" error.

--
Thx
MSweetG222

"Dave Peterson" wrote:

Addins are hidden. And it's not possible to select hidden sheets (or ranges on
sheets that aren't selected).

But you can do it without the .activate and .selects

with Workbooks("MyAddInName.xla").worksheets("Sheet1"). range("A:C")
.cells.Sort Key1:=.columns(1), Order1:=xlAscending, _
Key2:=.columns(2), Order2:=xlAscending, _
Key3:=.columns(3), Order3:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
end with

MSweetG222 wrote:

Anyone -

Can you tell me the code an Addin would use to sort cells on a worksheet in
the Addin?

I've tried this, but it does not always work:

Workbooks("MyAddInName.xla").Activate
Sheets("Sheet1").Activate
Columns("A:C").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("B1") _
, Order2:=xlAscending, Key3:=Range("C1"), Order3:=xlAscending, Header:= _
xlNo, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Thank you for any assistance.

MSweetG222


--

Dave Peterson


--

Dave Peterson