Página 1 de 1

Classificação em intervalos específicos (RESOLVIDO)

Enviado: 11 Out 2021 às 15:35
por 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.

Imagem


Aqui está o arquivo original.
exemplo.xlsx

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

Gabriel

Re: Classificação em intervalos específicos

Enviado: 11 Out 2021 às 16:50
por 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

Re: Classificação em intervalos específicos

Enviado: 11 Out 2021 às 18:29
por gabriel1108
Nossa, valeu demaaais, cara. Era exatamente isso. Estava há um bom tempo quebrando a cabeça aqui.