results on sheet 2

T

Tommy

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
 
C

Carim

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
 
T

Tommy

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
 
C

Carim

Hi Tommy,

Up until have not received your email ...
let me give you my email (e-mail address removed)
(remove nospam)

Carim
 
T

Tommy

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

Carim

Hi Tommy,

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

Cheers
Cari
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top