Eu uso uma planilha para organizar os rankings do futebol, sendo que uma nova aba é criada toda a partida para inserir os dados das mesmas (gols, assist, etc..). Eu criei a primeira, e uso um botão com a seguinte macro para criar as próximas:
Sub DuplicaERenomeia()
'primeiro, faz a cópia da planilha
Sheets("06_01").Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
'como foi movida para o final, pega a última
Dim newSheet As Worksheet
Set newSheet = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
newSheet.Name = InputBox("ULTIMA", newSheet.Name)
MsgBox "Pronto!"
End Sub
Eu preciso que os dados dessa nova planilha sejam somados automaticamente nas abas de ranking (onde estou utilizando uma fórmula simples de soma. Exemplo: ='06_01'P4+'13_01'!P4.....). Do jeito que faço toda vez que uma nova aba é criada, eu tenho que ir manualmente em todas as fórmulas e inserir a referência.
Segue o arquivo para facilitar o entendimento.
Classico de Sábado_1º Semestre.xls