Este fórum está sendo desativado

[gabriel1108]

Boa tarde, tudo bem? Como não domino a ferramenta macro, estou penando pra criar a seguinte ação:

A planilha é de resultados de turno e returno de um campeonato. Esse campeonato possui 10 jogos por rodada. A ideia é que a cada 10 jogos do turno (linhas 2 a 11 e colunas A a E) a classificação de A a Z a partir da coluna A; e que a cada 10 jogos do returno (linhas 2 a 11 e colunas F a J) haja uma classificação de A a Z com base na coluna J. Assim sucessivamente até a linha 191.

Dessa forma, os jogos de turno e returno ficarão "espelhados" a cada 10 linhas. Eu consigo fazer isso manualmente selecionando cada intervalo de 10 jogos, mas é algo trabalhoso. Na imagem eu deixei um exemplo de como fica após classificação manual.




Aqui está o arquivo original.

exemplo.xlsx

Desde já agradeço a atenção,

Gabriel

[osvaldomp]

Olá, @gabriel1108 .

Experimente o código abaixo. Funciona com qualquer quantidade de jogos.

Código: Selecionar todos

Sub OrdenaPorTurno()
 Dim k As Long
  Application.ScreenUpdating = False
  For k = 2 To Cells(Rows.Count, 1).End(3).Row Step 10
   Cells(k, 1).Resize(10, 5).Sort Key1:=Cells(k, 1)
   Cells(k, 6).Resize(10, 5).Sort Key1:=Cells(k, 10)
  Next k
End Sub

[gabriel1108]

Nossa, valeu demaaais, cara. Era exatamente isso. Estava há um bom tempo quebrando a cabeça aqui.