Logo Hardware.com.br
Marquinhos Silva
Marquinhos S... Novo Membro Registrado
5 Mensagens 3 Curtidas

[Resolvido] Macro Excel - Ordenar automaticamente

#1 Por Marquinhos S... 27/02/2018 - 22:33
Boa noite, prezados(as)!

Sou novo no mundo das macros. Eu e meu pai organizamos, há anos, bolões de copa do mundo, etc. Eu estou querendo organizar a planilha 2 (colocação) automaticamente conforme eu vou atualizando a planilha 1 (apostas). Utilizando o código abaixo, eu apenas consigo ordenar caso eu insira um dado manualmente. Poderiam me ajudar a encontrar uma solução?

Por exemplo:
A pontuação de cada apostador está na coluna EQ da planilha 1 e quero que, sempre que aconteça alguma alteração no valor, a planilha 2 seja atualizada ordenando os dados em ordem decrescente de valor na coluna C, para que fiquem os melhores colocados em no topo da planilha.

Planilha 1, coluna EQ
TOTAL
13
25
4
4



NÚMERO DO APOSTADOR NOME PONTOS
1 Teste 1 13
2 Teste 2 25
3 Teste 3 4
4 Teste 4 4
5 Teste 5 4


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("C:C&quot) Is Nothing Then
Range("C1&quot.Sort Key1:=Range("C2&quot, _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub


Espero que tenha conseguido expor minha dúvida aqui.


Atenciosamente,
Marcos Silva
osvaldomp
osvaldomp Geek Registrado
753 Mensagens 558 Curtidas
#2 Por osvaldomp
28/02/2018 - 07:43
Marquinhos Silva disse:

Eu estou querendo organizar a planilha 2 (colocação) automaticamente conforme eu vou atualizando a planilha 1 (apostas).
O código que você postou está no módulo da Planilha 1 ? É lá que ele deve estar.
Ainda, estando o código no módulo da Planilha 1, se você quer ordenar a Planilha 2 após inserir dados na Planilha 1 então você precisa incluir no código a referência à Planilha 2.


Se não conseguir acertar sugiro que você disponibilize uma amostra do seu arquivo Excel com o código instalado e com as explicações na própria planilha.
Osvaldo
Marquinhos Silva
Marquinhos S... Novo Membro Registrado
5 Mensagens 3 Curtidas
#3 Por Marquinhos S...
28/02/2018 - 21:14
osvaldomp disse:
Se não conseguir acertar sugiro que você disponibilize uma amostra do seu arquivo Excel com o código instalado e com as explicações na própria planilha.


Desculpe a demora, pois saio pra trabalhar bem cedo e chego somente agora em casa. Realmente não estou conseguindo, ainda testei, depois de alguma pesquisa, o código sheets( "nome da aba").range("faixa").select para ver se conseguia fazer funcionar, sem sucesso! Fórmulas simples eu até consigo me virar, mas essa parte de macro não estou conseguindo desenrolar sem ajuda.

Como disse no primeiro post, quero ordenar a planilha "COLOCAÇÃO" por pontos (coluna C), cujo o resultado vem da planilha "APOSTAS" (coluna EQ).

Agradeço pela ajuda, Osvaldo!

Anexos

osvaldomp
osvaldomp Geek Registrado
753 Mensagens 558 Curtidas
#4 Por osvaldomp
28/02/2018 - 23:22
Cole o código abaixo no módulo da planilha APOSTAS
Private Sub Worksheet_Calculate()
Dim n As Long, k As Long
With Sheets("COLOCAÇÃO&quot
For n = 6 To [B6].End(4).Row - 1 Step 2
k = .[B:B].Find(Cells(n, 2), LookIn:=xlValues, lookat:=xlWhole).Row
.Cells(k, 3) = Cells(n, "EQ&quot
.Cells(k, 1) = Cells(n, "A&quot
Next n
.Range("A2:C" & .Cells(Rows.Count, 1).End(3).Row).Sort Key1:=.[C2], Order1:=xlDescending
End With
End Sub


obs. para bom funcionamento da classificação por pontos na planilha COLOCAÇÃO não coloque fórmulas na coluna NOME daquela planilha, é preferível digitar os nomes ou copiar/colar; ainda na planilha COLOCAÇÃO, pode deixar vazias as colunas NÚMERO e PONTOS, que o código irá lançar os valores naquelas colunas.
Osvaldo
Marquinhos Silva
Marquinhos S... Novo Membro Registrado
5 Mensagens 3 Curtidas
#6 Por Marquinhos S...
24/03/2018 - 18:35
Boa noite, Osvaldo.
Com a data se aproximando, estou começando a receber as apostas. Quando fui colocar na tabela, notei 2 coisas estranhas.
1- Toda vez que vou colocar um resultado, recebo a seguinte mensagem de erro, conforme anexo.
2- A planilha "colocação" não está atualizando.

Venho quebrando a cabeça sem sucesso. Já coloquei seu código novamente e nada.
Se puder ajudar, ficarei grato.

Atenciosamente,
Marcos Silva

Anexos

© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal