• Announcements

    • Jimmy Durão

      Gosta do fórum? Patrocine, torne-se MEMBRO VIP e tenha algumas vantagens   03/31/2017

      TORNE-SE UM MEMBROS VIP VITALÍCIO   Para se tornar membro VIP VITALÍCIO, basta fazer pelo menos uma doação de apenas: R$ 50,00.   *** ESPECIAL MÊS DE AGOSTO/2017 ***     Efetuando a DOAÇÃO ao fórum, o membro passa a ter alguns benefícios como forma de agradecimento pela colaboração.   Qual o motivo de se pedir doações?   Por muitos anos o fórum foi mantido financeiramente somente com os recursos da administração. Com o crescimento, tornou-se necessário investir em sistemas mais seguros, servidor mais robusto e maior tempo de dedicação para manter o fórum no ar. Pensando em uma forma de rentabilizar o fórum e ter mais tempo para se dedicar as melhorias, a administração tomou duas atitudes: Vender espaços para anunciantes e oferecer o status de "membros vips" para os cadastrados que reconhecem a importância de se manter o fórum no ar e de continuarmos trocando informações sobre Loterias do Brasil e do Mundo.   A doação é voluntária. Pedimos apenas uma única doação mínima. Qualquer outro valor acima do mínimo será obviamente muito bem-vindo.   Quem está apto a se tornar membro vip?   Qualquer membro que não tenha sido banido anteriormente do fórum.   Já fiz minha doação, posso doar novamente?   Para se tornar Membro VIP basta apenas uma única doação mínima de R$ 100,00.    Obviamente se quiser ajudar o fórum mais vezes, efetuando doações mensais ou anuais, basta entrar em contato. A administração do fórum agradece.   Quais as formas de doação?   Depósito/Transferência (Caixa, BB ou Bradesco), Pagseguro ou Paypal (Cartões, Boletos, outros bancos, etc.)   ==========================   As vantagens de ser Membro VIP Vitalício*   Destaque na cor - Membro VIP tem destaque do seu usuário na cor azul escuro. Mensagens privadas - Pode iniciar 20 conversar por privado no dia, ter 10 convidados e tem armazenamento ilimitado de mensagens. Arquivos nas mensagens - Tem a possibilidade de anexar arquivos nas mensagens. Curtir postagens - Pode curtir "reputar" tópicos ilimitados por dia. Upload de arquivos - Espaço ilimitado para envio de arquivos dentro dos tópicos. Enquetes - Pode iniciar novas enquetes, algo que antes só a administração e moderação poderia fazer. Editar conteúdo - Pode editar conteúdo em silêncio, ou seja, não mostrar obrigatoriamente se o tópico foi editado. Download arquivos - Não precisará aguardar tempo para fazer download e pode fazer ilimitados downloads simultâneos.  Fórum VIP - Um fórum vip secreto, ou seja, que só os membros vips tem acesso.   Outras vantagens:   Anúncios - Os anúncios padrões não aparecem para os Membros VIPs. Navegação mais limpa, sem publicidade. ** Bolões - Eventuais descontos em bolões (principalmente os concursos especiais) organizados pela administração do fórum. Bolões Gratuitos - Prioridade para compra de cotas em bolões gratuitos organizados pela administração do fórum.   * As vantagens podem ser mudadas por motivo de força maior, quando a prioridade for o bom funcionamento do fórum, sendo os membros VIPs avisados com antecedência e substituída por outra vantagem.   ** Se refere a publicidade padrão, os anúncios que ocupam os espaços destinados quando não temos anunciantes especiais. Quando a publicidade for de extrema utilidade para a comunidade, poderão ser exibidos para os Membros VIPs.   ATENÇÃO: As regras do fórum se mantém iguais para todos os membros, inclusive para os membros vips. Por favor, pedimos por gentileza que siga as regras. =========================   COMO EFETUAR A DOAÇÃO?   Para efetuar a doação é preciso entrar em contato através da página de contato ou mensagem privada informando o interesse em se tornar Membro VIP Vitalício e a forma de pagamento que gostaria de fazer. Os dados serão enviados em seguida.   Muito Obrigado!
cerealkiller

Macro para colocar as dezenas em ordem

Recommended Posts

cerealkiller    1,690

Olá amigos estou precisando de uma macro ou formula que faça isto colocar as DZ em ordem do menor para o maior  Ex. 03    04    05    20    23    06    08    14    16    19  para  03    04    05    06    08    14    16    19    20    23.

 

Eu sei que existe o classificar, mas a questão é que são muitas linhas e ele só faz linha a linha.

Por enquanto obrigado.

 

 

  • Like 1

Share this post


Link to post
Share on other sites
Nanilinho    60

Explicando Melhor

 

 

Coloca suas dezenas em desordem e acima delas enumere de 1 até a ultima. Usando a função Menor,selecione o intervalo de desordem e congele ele( Pressione F4), o segundo argumento é o indice, que será usado a linha que você enumerou ali em cima.

 

Qq avise

  • Like 1

Share this post


Link to post
Share on other sites
cerealkiller    1,690
15 minutos atrás, Nanilinho disse:

Explicando Melhor

 

 

Coloca suas dezenas em desordem e acima delas enumere de 1 até a ultima. Usando a função Menor,selecione o intervalo de desordem e congele ele( Pressione F4), o segundo argumento é o indice, que será usado a linha que você enumerou ali em cima.

 

Qq avise

 

Obrigado Nanilinho, vamos ver se alguém aparece com uma formula também.

Share this post


Link to post
Share on other sites
cerealkiller    1,690
20 minutos atrás, Nanilinho disse:

Explicando Melhor

 

 

Coloca suas dezenas em desordem e acima delas enumere de 1 até a ultima. Usando a função Menor,selecione o intervalo de desordem e congele ele( Pressione F4), o segundo argumento é o indice, que será usado a linha que você enumerou ali em cima.

 

Qq avise

 

@Nanilinho Por Favor, faça com esta linhas aqui para eu entender melhor quando a quantidade é maior, e muito obrigado pela ajuda.

 

07    19    01    10    13    18    22    09    12    24    04    08    14    20    23    03    06    16    17    21
07    11    25    01    10    18    22    05    12    15    24    04    08    14    20    03    06    16    17    21
07    11    19    25    10    13    18    05    09    12    15    24    04    08    20    23    03    16    17    21
07    11    19    25    01    10    13    18    22    05    09    15    04    08    14    23    03    06    16    21
02    19    25    13    18    22    05    12    15    24    04    08    14    20    23    03    06    16    17    21
02    11    25    01    10    13    18    22    05    09    12    15    04    08    20    23    03    06    17    21
02    11    19    25    01    10    18    22    05    09    12    15    24    04    14    20    23    03    06    16
02    07    25    01    10    13    18    22    05    09    12    15    24    04    08    14    23    03    16    17
02    07    19    25    01    10    18    05    09    15    24    04    08    14    20    23    06    16    17    21
02    07    11    25    10    13    18    22    09    12    15    24    08    14    20    23    06    16    17    21
02    07    11    19    01    13    18    22    09    12    15    24    04    08    14    20    23    03    16    21
02    07    11    19    01    10    13    18    05    09    12    15    24    04    08    14    03    06    17    21
02    07    11    19    25    10    13    22    05    09    12    15    04    14    20    03    06    16    17    21
02    07    11    19    25    01    13    22    05    09    12    24    04    08    14    20    23    06    17    21
02    07    11    19    25    01    10    13    22    12    15    24    04    08    23    03    06    16    17    21
02    07    11    19    25    01    10    13    18    22    05    12    24    14    20    23    03    16    17    21
02    07    11    19    25    01    10    13    18    22    05    09    15    24    08    20    03    06    16    17

 

 

Share this post


Link to post
Share on other sites
Ludo Parcheesi    158

Caro CerealK,

 

O Nanilinho sugeriu algo similar ao seguinte passo a passo:

 

Imaginemos que suas linhas de análise se localizem a partir da célula [A2]. Sua última coluna ocupada será a [J].
Digite entre as células [L1:U1] números sequenciais de 1 a 10, deixando a coluna [K] livre para não misturar os conjuntos. Esses números serão nossos índices.
Na célula [L2], insira a fórmula: =menor($A2:$J2;L$1) (ou copie a fórmula ao lado).
Copie a célula L2, extenda seleção entre [M2:U2] e cole. Seu primeiro grupo estará ordenado.
Extenda seleção [L2:U2], copie, extenda abaixo para quantas mais linhas tiver de organizar, e cole.

 

Caso necessite utilizar os dados organizados em outra base de dados, copie e cole-os utilizando na área desejada:
[botão direito do mouse] =>  [Colar Especial] => [Valores]

 

Saúde e Sorte.

  • Like 1

Share this post


Link to post
Share on other sites
Nanilinho    60
1 minuto atrás, cerealkiller disse:

Agora sim Nanilinho, muito mas muito agradecido mesmo. ;)

Por nada :)

Share this post


Link to post
Share on other sites
edcronos2    774

essa macro ordena em ordem crescente uma area selecionada na planilha

facilmente adaptavel para range definida

Sub Ordena_Seleção()
      

     Coluno = Selection.Value2
     Lfim = UBound(Coluno, 1): TCo = UBound(Coluno, 2)
     ci1 = 1   ' coluna inicial de dados da array


   
          For Lx = 1 To Lfim
               inC = ci1:
               i = inC + 1
               Do
                    a = Coluno(Lx, inC): b = Coluno(Lx, inC + 1)
                    If a > b Then
                         Coluno(Lx, inC) = b: C = a
                         Coluno(Lx, inC + 1) = C
                         If inC > ci1 Then inC = inC - 1
                    Else
                         inC = i: i = i + 1
                    End If
               Loop Until inC = TCo
          Next

     '----------------------------------------------------------------------------------------------------
     Selection.Value2 = Coluno

End Sub

 

  • Like 1

Share this post


Link to post
Share on other sites
cerealkiller    1,690
3 minutos atrás, edcronos2 disse:

essa macro ordena em ordem crescente uma area selecionada na planilha

facilmente adaptavel para range definida

Sub Ordena_Seleção()
      

     Coluno = Selection.Value2
     Lfim = UBound(Coluno, 1): TCo = UBound(Coluno, 2)
     ci1 = 1   ' coluna inicial de dados da array


   
          For Lx = 1 To Lfim
               inC = ci1:
               i = inC + 1
               Do
                    a = Coluno(Lx, inC): b = Coluno(Lx, inC + 1)
                    If a > b Then
                         Coluno(Lx, inC) = b: C = a
                         Coluno(Lx, inC + 1) = C
                         If inC > ci1 Then inC = inC - 1
                    Else
                         inC = i: i = i + 1
                    End If
               Loop Until inC = TCo
          Next

     '----------------------------------------------------------------------------------------------------
     Selection.Value2 = Coluno

End Sub

 


Nada melhor do que uma macro.
Obrigado Universal amigo @edcronos2.

  • Like 1

Share this post


Link to post
Share on other sites
pietruk    41

Ajuda,

Como organizar uma linha de resultados do maior para o menor inclusive com repetidas: 

Exemplo de como está: 

03 05 09 03 07 09 05 08 07

Exemplo de como deve ficar: 

09 09 08 07 07 05 05 03 03

Share this post


Link to post
Share on other sites
cerealkiller    1,690
6 minutos atrás, pietruk disse:

Ajuda,

Como organizar uma linha de resultados do maior para o menor inclusive com repetidas: 

Exemplo de como está: 

03 05 09 03 07 09 05 08 07

Exemplo de como deve ficar: 

09 09 08 07 07 05 05 03 03

 

A macro postada pelo universal @edcronos2, faz isto com os pés na costa

03    03    05    05    07    07    08    09    09

 

Basta selecionar as DZ, eu crie um botão, pois estou mexendo com muitas linhas.

Desculpa ai pietruk...Eu entendi errado.

Share this post


Link to post
Share on other sites
edcronos2    774
3 minutos atrás, pietruk disse:

Ajuda,

Como organizar uma linha de resultados do maior para o menor inclusive com repetidas: 

Exemplo de como está: 

03 05 09 03 07 09 05 08 07

Exemplo de como deve ficar: 

09 09 08 07 07 05 05 03 03

bem vc pode ordenar em crescente e depois inverter,

depois eu monto a macro, apesar que é só modificar um pouco essa que postei

Share this post


Link to post
Share on other sites
pietruk    41
7 minutos atrás, edcronos2 disse:

bem vc pode ordenar em crescente e depois inverter,

depois eu monto a macro, apesar que é só modificar um pouco essa que postei

Posso usar sua macro no Excel ???

se sim seria possível me passar um exemplo, muito obrigado pela sua atenção 

Share this post


Link to post
Share on other sites
edcronos2    774
28 minutos atrás, pietruk disse:

Posso usar sua macro no Excel ???

se sim seria possível me passar um exemplo, muito obrigado pela sua atenção 

ela é para usar no excel mesmo

no caso vc coloca em um modulo

seleciona a range que quer organizar e roda a macro

Share this post


Link to post
Share on other sites
Substantivo    40

pietruk

Ponha num modulo. Desenvolvedor --> Visual Basic --> Insira um módulo e cole a macro. Volte para a planilha, selecione os dados e rode a macro.

Share this post


Link to post
Share on other sites
edcronos2    774

bem para colocar em ordem decrescente

modifiquei um pouco a macro para usar uma range fixa bastando modificar as letras e os numeros

  •      coluna_inicial = "b"
  •      coluna_final = "h"
  •      Linha_inicial = 6
  •      linha_final = 7

Sub Ordena_Seleção_decrescente()

     coluna_inicial = "b"
     coluna_final = "h"
     Linha_inicial = 6
     linha_final = 7

     Coluno = Range(coluna_inicial & Linha_inicial, coluna_final & linha_final).Value2
     Lfim = UBound(Coluno, 1): TCo = UBound(Coluno, 2)
     ci1 = 1   ' coluna inicial de dados da array

     For Lx = 1 To Lfim
          inC = ci1
          i = inC + 1
          Do
               a = Coluno(Lx, inC): b = Coluno(Lx, inC + 1)
               If a < b Then
                    Coluno(Lx, inC) = b: C = a
                    Coluno(Lx, inC + 1) = C
                    If inC > ci1 Then inC = inC - 1
               Else
                    inC = i: i = i + 1
               End If
          Loop Until inC = TCo
     Next

     '----------------------------------------------------------------------------------------------------
     Range(coluna_inicial & Linha_inicial, coluna_final & linha_final).Value2 = Coluno

End Sub

 

Share this post


Link to post
Share on other sites
Wata    299

Crescente:

Sub Crescente()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlAscending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub

 

Ou decrescente:

 

Sub Decrescente()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlDescending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub

 

 

Não entendo disso.

Peguei por aí.

Não vou dar os devidos créditos porque não lembro mais...:-(...

8-)

...

Share this post


Link to post
Share on other sites
cerealkiller    1,690
46 minutos atrás, Wata disse:

Crescente:

Sub Crescente()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlAscending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub

 

Ou decrescente:

 

Sub Decrescente()
Dim myRow As Range
For Each myRow In Selection.Rows
myRow.Sort myRow.Cells(1), xlDescending, Header:=xlNo, Orientation:=xlSortRows
Next myRow
End Sub

 

 

Não entendo disso.

Peguei por aí.

Não vou dar os devidos créditos porque não lembro mais...:-(...

8-)

...

 

Obrigado Wata. Valews.

  • Like 1

Share this post


Link to post
Share on other sites
joh_joh2010    82
1 minuto atrás, Antonio Tadeu disse:

Muito obrigado a todos !!!

 

Meu amigo, o que eu mais acho estranho nesse fórum é que sempre que estou estudando alguma coisa alguém também está e posta alguma pergunta ou post sobre a mesma coisa!!! É SÉRIO. kkk

 

Sei que o pessoal já te ajudou, mas segue planilha que acabei de fazer, prefiro fórmulas do que macros então...

http://www.mediafire.com/file/xac8iwidqb0zvqb/FÓRMULA_ORDENAR.xlsx

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Recently Browsing   0 members

    No registered users viewing this page.