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
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