Excel Macro para deslocamento de valor

[Ruy ML Batata]

Olá. 

Tenho valores de numéricos em celulas distribuídas numa planilha. Preciso fazer com que esses valores mudem simultaneamente por um botão. (Ex.valor 1 da celula a1 vai para a celula a2; valor 2 de celula a2 para a3...etc...até valor 6 de celula a6 para a1).  Para rodizio de jogadores no voleibol. Agradeço desde já a ajuda.

[Edson Luiz Branco]

Bem vindo ao fórum, @Ruy ML Batata

 

Sub btnRodízioDados_Click()
  Dim x As Variant
  x = [A1:A5].Value
  [A1].Value = [A6].Value
  [A2:A6].Value = x
End Sub

 

[Ruy ML Batata]

2 minutos atrás, Edson Luiz Branco disse:

Bem vindo ao fórum, @Ruy ML Batata

 

Sub btnRodízioDados_Click()
  Dim x As Variant
  x = [A1:A5].Value
  [A1].Value = [A6].Value
  [A2:A6].Value = x
End Sub

 

Olá Edson...vou testar!!! Muito obrigado. Mas me veio uma dúvida: E se essas células com valores numéricos fossem distribuidas em linhas colunas diferentes?

[Edson Luiz Branco]

Para facilitar, anexe um modelo explicando como você quer que fiquem distribuídos os nomes na planilha.

Obs.: se o arquivo contiver macros, zipe-o antes para que o mecanismo do fórum permita o envio.

[Ruy ML Batata]

Em 27/11/2020 às 22:25, Ruy ML Batata disse:

Olá. 

Tenho valores de numéricos em celulas distribuídas numa planilha. Preciso fazer com que esses valores mudem simultaneamente por um botão. (Ex.valor 1 da celula a1 vai para a celula a2; valor 2 de celula a2 para a3...etc...até valor 6 de celula a6 para a1).  Para rodizio de jogadores no voleibol. Agradeço desde já a ajuda.

 

@Edson Luiz Branco. Muitíssimo obrigado!!! Consegui fazer fazendo uma mudança no meu layout da planilha e utilizei o seu macro (inclui uma linha e coloquei "=" na célula da quadra correspondente a celula da linha). Deu muiiiito certo!!! você foi muito gentil. Forte abraço.