I am trying to make a standings sheet to rank players without using Table. Using VBA.

cadamhill

New Member
Joined
Oct 3, 2013
Messages
8
Column "I" in "Raw Data" sheet is a column that I created to add all the info I needed added from each row entry from sheet "data" submitted by page operator. I need to be able to sort all the data in each row of the "Raw Data" sheet to a new sheet that matches a player number from sheet "Add member' to a summation of individual player data from column I on the "Raw Data" sheet. I want to do this in VBA and not a Table in Excel. I don't want to have to depend on refreshing data. Can anyone please offer a solution?


Long story short. I want to create a new sheet from the data on "Raw Data" sheet, that ranks a player based on "Session" and "player number" and "player name". Below is my VBA for the raw data sheet and a few screenshots of sheets in question.

Thanks for any help.


Sub data_input()

ws_output = "Raw Data"

next_row = Sheets(ws_output).Range("A" & Rows.Count).End(xlUp).Offset(1).Row

Sheets(ws_output).Cells(next_row, 1).Value = Range("Player_Number").Value
Sheets(ws_output).Cells(next_row, 2).Value = Range("Player_Name").Value
Sheets(ws_output).Cells(next_row, 3).Value = Range("Skill_Level").Value
Sheets(ws_output).Cells(next_row, 4).Value = Range("Enter_Week").Value
Sheets(ws_output).Cells(next_row, 5).Value = Range("Games_Won").Value
Sheets(ws_output).Cells(next_row, 6).Value = Range("Eight_Break").Value
Sheets(ws_output).Cells(next_row, 7).Value = Range("Break_Run").Value

End Sub
1603999187139.png


1603999058201.png

1603999347941.png
 

Some videos you may like

Excel Facts

How can you turn a range sideways?
Copy the range. Select a blank cell. Right-click, Paste Special, then choose Transpose.

Watch MrExcel Video

Forum statistics

Threads
1,118,603
Messages
5,573,175
Members
412,510
Latest member
shp0590
Top