Interactive Buttons

[Guest]

I want to create buttons that will re-sort on different columns in the
spreadsheet. Does anyone have an example of this? Is it a marco I would use
to create the button and the function behind it?
Thank you.
Mary

 

[Roger Govier]

Hi Mary

Without using buttons, there is a absolutely superb method using invisible
rectangles, written by Dave Peterson and available as both code and a down
loadable file at Debra Dalgleish's site.

http://www.contextures.com/xlSort02.html#Pivot

and download Sortclick.zip


Regards

Roger Govier

 

[Dave Peterson]

I like this technique from Debra Dalgleish's site:
http://www.contextures.com/xlSort02.html

 

[Guest]

Roger and Dave,
You guys are my heroes! I will try the information you provided and let you
know if it works!
Thank you much!
Mary

 

[Guest]

Roger and Dave,
This works for only one column sort, each of sorts will need three columns.

Name - always
Number - always
and then by one of the following options
Period of Performance
Status
POC
Hmmmm - What do you think??? Not possible?
I appreciate your assistance and expertise with Excel issues very much.
Happy & Healthy Holidays!
Mary

 

[Dave Peterson]

I'd just click on the different headers.

Click on the name header, then the number header, then the period header (Or
maybe reverse the order).

If you really need separate macros, record the macros when you sort.

Then drop a few buttons from the forms toolbar on the worksheet. Assign each
button to a different macro.

========
I like the macro as-is. I think the way it works is more general--I can sort
any which way I want.

But you could modify this line:

myTable.Sort key1:=.Cells(myTable.Row, myColToSort), _
order1:=mySortOrder, _
header:=xlYes

to include the columns that should always be sorted.

myTable.Sort _
key1:=.Cells(myTable.Row, 1), order1:=mySortOrder, _
key2:=.Cells(myTable.Row, 2), order2:=mySortOrder, _
key3:=.Cells(myTable.Row, myColToSort), order3:=mySortOrder, _
header:=xlYes

(You'll have to change the column (I used 1 and 2) and you may even want to
remove the rectangles from the fields that shouldn't be sorted. Just right
click on that header cell and you'll "see" the invisible rectangle. Then hit
the delete key.)

(I still like to be able to sort as many ways as I like <vbg>.)