Jump to content

(Pedido) Macro ou fórmula para selecionar dezenas que estão com valores?


Neguin

Recommended Posts

2 minutos atrás, FF882007 disse:

Aglainto, você quer que os números fiquem em ordem crescente?, se for usa assim

 

=MENOR($A2:$Y2;A$1)

 

a2:y2 é o range que se quer retirar os espaços

 

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25   <----a1:y1
      03 04 05 06 07          11          15    17       20 21 22 23                                    <--- a2:y2


03 04 05 06 07 11 15 17 20 21 22 23     <-----resultado

 

 

Não quero que fique na mesma ordem que estão, não necessariamente na ordem crescente. Apenas deve excluir as células em branco. entendeu?!

Link to comment
Share on other sites

Agora, FF882007 disse:

Sim entendi, posta o planilha..

sds

 

Agora, Crazy Rabbit disse:

Mando pro coelho, que faço a montagem da fórmula em painel.

 

Agora, cerealkiller disse:

 

Manda para mim também que gosto de estudar e aprender, de repente nela tem alguma coisa que podemos adicionar as nossas.

 

Agora você vai ter que mandar 3 planilhas, hahahahahaha

Link to comment
Share on other sites

Guest Zangado

o pessoal não pesquisa mesmo né, é chato ficar respondendo sempre a mesma questão

claro que tem como excluir espaços na linha sem mudar a ordem ,

mas cada planilhas uma planilha, cada usuario um usuario  e sejamos sinceros ficar atendendo a cada pequena demanda nem tem como né

 

mas creio que essa macro que organiza a ordem decrescente pode ajudar a jogar os espaços para a direita

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

para tirar apenas os espaços sem mudar a ordem é até mais simples

tem que ler a range ,

fazer loop nos valores

verificar se é diferente de vazio

e colar em outra range ou array para colar de volta na mesma

 

Link to comment
Share on other sites

3 horas atrás, edcronos2 disse:

o pessoal não pesquisa mesmo né, é chato ficar respondendo sempre a mesma questão

claro que tem como excluir espaços na linha sem mudar a ordem ,

mas cada planilhas uma planilha, cada usuario um usuario  e sejamos sinceros ficar atendendo a cada pequena demanda nem tem como né

 

mas creio que essa macro que organiza a ordem decrescente pode ajudar a jogar os espaços para a direita


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

para tirar apenas os espaços sem mudar a ordem é até mais simples

tem que ler a range ,

fazer loop nos valores

verificar se é diferente de vazio

e colar em outra range ou array para colar de volta na mesma

 

Boa tarde @edcronos2, ficou excelente, mas como faço para não mudar a ordem das dezenas. Ficou perfeito colocar as celulas em branco para direita, era isso que estava procurando. Agora é só não mexer na ordem dos números, agradeço pela ajuda, valeu mesmo.

Link to comment
Share on other sites

Guest Zangado
1 hora atrás, Aglailto2017 disse:

Boa tarde @edcronos2, ficou excelente, mas como faço para não mudar a ordem das dezenas. Ficou perfeito colocar as celulas em branco para direita, era isso que estava procurando. Agora é só não mexer na ordem dos números, agradeço pela ajuda, valeu mesmo.

qual seria o uso em manter a ordem ?

mas bem , espero que alguem te ajude nem é dificil ,

Link to comment
Share on other sites

6 horas atrás, edcronos2 disse:

qual seria o uso em manter a ordem ?

mas bem , espero que alguem te ajude nem é dificil ,

Preciso manter a ordem devido minha planilha está automatizada e me dá algumas dezenas com células em branco devido a fórmula utilizada. Só preciso é eliminar os espaços vazios para fazer uma análise mais exata sem a contagem dos espaços em brancos. Entendeu?! Mas, mesmo assim agradeço a sua ajuda foi de grande valia. Obrigado!!!

 

Aglailto

Link to comment
Share on other sites

  • 3 weeks later...

Boa noite, alguém no forum teria uma fórmula para retirar apenas os números do intervalo abaixocolocando as celulas que tem o "x" para a direita ou esquerda: mas mantendo a ordem dos números?

 

                   Intervalo procurado                                                                                                                            resultado final

x  x  07 x 02 x x 15 x 01 x x x 25 x                 x x x x x x x x x x 07 02 15 01 25

 

Agradeço se alguém puder ajudar!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...