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 " " " player 2
" " "
Player 3
Player 4
Player 5 " " " player 5
" " "

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("C1") the
total score and the sorting key ?

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

HTH
Cheers
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531181

Carim

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

"Carim" wrote:


Hi,

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

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

HTH
Cheers
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531181

Hi Tommy,

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

Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531181

I just sent it to you, i am out for the night, i go to work at 3:45 in the
morning.

"Carim" wrote:


Hi Tommy,

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

Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531181

Hi Tommy,

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

Cheers
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531181