.In a bridge tournament each team plays 8 rounds (eight other couples).
.the spread sheet uses column A to list all teams (from 1 to x). There could be
as many as 25 teams.
.After each round each teams score in entered in that rounds column .
For example after the first round each teams score is entered in column C
A B C D E F G H I J K
________________ROUND_____________
Team # Names 1 2 3 4 5 6 7 8 Total Score
1 joe-sandy 1650 1650
2 al-sally 980 980
3 tom-ann 1100 1100
When all scores are entered the spread sheet (score sheet) is sorted in
descending order by column K (total score of each team) and posted on a
Bulletin board. This shows every team their relative position (1 place, 2 place, etc.
to last place).
.This means that there will be 8 series of entering scores onto a master spread
sheet and 8 sorts showing every teams position after each round. (rounds 1,2,3,4,5,6,7 & 8(final))
The problem is that if the scorekeeper saves the worksheet after sorting and/or printing, then the original listing is no longer numerical by Team #, but is sorted by the
last order of Total Score. In other words, the worksheet has to begin each round sorted by Team # so that the scorekeeper can more easily enter each teams score
for that round.
Now for my question..Can a macro be developed that the scorekeeper activates (after all scores have been entered for a given round) with a keypunch that automatically sorts by column K, then prints and then returns the worksheet to the original sort?
When I try to run a micro to save the original input, sort by score order, print and return to the unsorted worksheet I get a runtime erro '1004' that says "sort method of range class failed. the following is the code.
Sub sort()
'
' sort Macro
' Macro recorded 6/15/2008 by JOE TEMPLER
'
' ActiveWindow.ScrollRow=35
ActiveWindow.ScrollRow=34
.
.all the way down to
.
ActiveWindow.ScrollRow=1
ActiveWorkbook.Save
Selection.sort Key1:=Range("K3"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Can you help?
Thanks in advance.
(e-mail address removed)