software

I have golf program I am working on. Here is the setup

column a b c d e
f g h
player 1 score score total player 1 score
score total
player 2 quot; quot; quot; player 2
quot; quot; quot;
Player 3
Player 4
Player 5 quot; quot; quot; player 5
quot; quot; quot;

That is an example of the first page, it hase 3 other teams under the ones
above.
I want to enter a score and without using a macro if possible the score and
total automatically go to sheet 2 in order from lowest score to highest. i
want this to happen everytime I enter a score. Is this possible.

thank you


Hi,

Provided you have the same column headings in sheet1 and sheet2,
following should do the job...adjust to your needs : is Range(quot;C1quot;) the
total score and the sorting key ?

Private Sub Worksheet_Change(ByVal Target As Range)
Range(quot;A2quot;).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets(quot;Sheet2quot;).Select
Application.Goto Range(quot;A2quot;)
ActiveSheet.Paste
Selection.Sort Key1:=Range(quot;C1quot;), Order1:=xlAscending,
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

HTH
Cheers
Carim--
Carim
------------------------------------------------------------------------
Carim's Profile: www.excelforum.com/member.php...oamp;userid=33259
View this thread: www.excelforum.com/showthread...hreadid=531181Carim

I just sent you an email with the program attached, my first post didn't
showup correct. If you could help, thank you
Tommy

quot;Carimquot; wrote:

gt;
gt; Hi,
gt;
gt; Provided you have the same column headings in sheet1 and sheet2,
gt; following should do the job...adjust to your needs : is Range(quot;C1quot;) the
gt; total score and the sorting key ?
gt;
gt; Private Sub Worksheet_Change(ByVal Target As Range)
gt; Range(quot;A2quot;).Select
gt; Range(Selection, Selection.End(xlToRight)).Select
gt; Range(Selection, Selection.End(xlDown)).Select
gt; Selection.Copy
gt; Sheets(quot;Sheet2quot;).Select
gt; Application.Goto Range(quot;A2quot;)
gt; ActiveSheet.Paste
gt; Selection.Sort Key1:=Range(quot;C1quot;), Order1:=xlAscending,
gt; Header:=xlGuess, _
gt; OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
gt; End Sub
gt;
gt; HTH
gt; Cheers
gt; Carim
gt;
gt;
gt; --
gt; Carim
gt; ------------------------------------------------------------------------
gt; Carim's Profile: www.excelforum.com/member.php...oamp;userid=33259
gt; View this thread: www.excelforum.com/showthread...hreadid=531181
gt;
gt;


Hi Tommy,

Up until have not received your email ...
let me give you my email
(remove nospam)

Carim--
Carim
------------------------------------------------------------------------
Carim's Profile: www.excelforum.com/member.php...oamp;userid=33259
View this thread: www.excelforum.com/showthread...hreadid=531181I just sent it to you, i am out for the night, i go to work at 3:45 in the
morning.

quot;Carimquot; wrote:

gt;
gt; Hi Tommy,
gt;
gt; Up until have not received your email ...
gt; let me give you my email
gt; (remove nospam)
gt;
gt; Carim
gt;
gt;
gt; --
gt; Carim
gt; ------------------------------------------------------------------------
gt; Carim's Profile: www.excelforum.com/member.php...oamp;userid=33259
gt; View this thread: www.excelforum.com/showthread...hreadid=531181
gt;
gt;


Hi Tommy,

Just mailed you back your worksheet...
Congratulations on all you had already done ...

Cheers
Carim--
Carim
------------------------------------------------------------------------
Carim's Profile: www.excelforum.com/member.php...oamp;userid=33259
View this thread: www.excelforum.com/showthread...hreadid=531181