NandoADM Posted November 22, 2021 Share Posted November 22, 2021 Peço a quem possa me ajudar. Gostaria de obter em lista continua na linha mantendo a ordem que aparecem. (concatenar os números porém cada número na sua célula obedecendo a sequência que aparece.) Exemplo. Sabendo que essa lista é imensa. 18 29 73 42 5 13 72 56 70 37 66 18 29 73 42 5 13 72 56 70 37 66 FOCO e SORTE! 2 Quote Link to comment Share on other sites More sharing options...
dois Posted November 23, 2021 Share Posted November 23, 2021 2 horas atrás, NandoADM disse: Peço a quem possa me ajudar. Gostaria de obter em lista continua na linha mantendo a ordem que aparecem. (concatenar os números porém cada número na sua célula obedecendo a sequência que aparece.) Exemplo. Sabendo que essa lista é imensa. 18 29 73 42 5 13 72 56 70 37 66 18 29 73 42 5 13 72 56 70 37 66 FOCO e SORTE! Eis minha solução bem simples (tendo alguma dúvida, basta perguntar). Caso queira algo mais específico posso tentar ajudar (estarei disponível até 26/11/2021) Sub Conc_NandoADM() Dim mQtDzs As Long, mfez As Long, yC As Long, mCelatu As Long Dim wd As Worksheet Set wd = ActiveSheet mQtDzs = wd.Range("A2").Value2 wd.Range("5:5").ClearContents For yC = 1 To 16384 If mfez = mQtDzs Then Exit For mCelatu = wd.Cells(3, yC).Value2 If mCelatu <> 0 Then mfez = mfez + 1 wd.Cells(5, mfez).Value2 = wd.Cells(3, yC).Value2 End If Next End Sub 4 1 Quote Link to comment Share on other sites More sharing options...
NandoADM Posted November 23, 2021 Author Share Posted November 23, 2021 1 hora atrás, dois disse: Eis minha solução bem simples (tendo alguma dúvida, basta perguntar). Caso queira algo mais específico posso tentar ajudar (estarei disponível até 26/11/2021) Sub Conc_NandoADM() Dim mQtDzs As Long, mfez As Long, yC As Long, mCelatu As Long Dim wd As Worksheet Set wd = ActiveSheet mQtDzs = wd.Range("A2").Value2 wd.Range("5:5").ClearContents For yC = 1 To 16384 If mfez = mQtDzs Then Exit For mCelatu = wd.Cells(3, yC).Value2 If mCelatu <> 0 Then mfez = mfez + 1 wd.Cells(5, mfez).Value2 = wd.Cells(3, yC).Value2 End If Next End Sub @dois muito bom, eu entendi e agradeço, mas Dois eu sou meio lento quando se trata de programação, não consegui aplicar, me ajude me informando como chamar a função nas células. 3 Quote Link to comment Share on other sites More sharing options...
dois Posted November 23, 2021 Share Posted November 23, 2021 Agora, NandoADM disse: @dois muito bom, eu entendi e agradeço, mas Dois eu sou meio lento quando se trata de programação, não consegui aplicar, me ajude me informando como chamar a função nas células. Chamar por células teria que ser via Function e o pedido é via Macro... KKK (Na planilha da figura que postei, a Macro é chamada através do botão Atualizar) Meu PC reiniciou inesperadamente e eu ainda não havia salvo a Planilha, Então amanhã faço ela novamente e disponibilizo na área de downloads. 3 Quote Link to comment Share on other sites More sharing options...
Pataca Posted November 23, 2021 Share Posted November 23, 2021 @NandoADM Embora vc tenha pedido uma macro, eu utilizo a seguinte fórmula: A função AGREGAR está disponível a partir da versão Excel 2010. 6 Quote Link to comment Share on other sites More sharing options...
dois Posted November 23, 2021 Share Posted November 23, 2021 13 horas atrás, Pataca disse: @NandoADM Embora vc tenha pedido uma macro, eu utilizo a seguinte fórmula: A função AGREGAR está disponível a partir da versão Excel 2010. #ShowDeBola Gigantescamente melhor que Macro. 2 Quote Link to comment Share on other sites More sharing options...
NandoADM Posted November 25, 2021 Author Share Posted November 25, 2021 @dois Você acredita que eu não consegui aplicar essa formula até hoje... repliquei igualzinho você colocou, o 18 vem mas daí para frente ele se repete e não consigo fazer vim o 29 e os demais. Me ajuda por favor, ainda preciso muito dessa solução. Eu preciso que comece na coluna "BC" daí a minha dificuldade. 2 Quote Link to comment Share on other sites More sharing options...
Pataca Posted November 25, 2021 Share Posted November 25, 2021 @NandoADM Estou considerando que vc colocou sua fórmula em A4 e na barra de fórmulas a cor da fórmula fica mais escura, mas já em B4 a fórmula fica mais opaca, o que é o correto utilizando esta fórmula. Mas observando seu print acima, em B4 a fórmula está escura, onde deveria está opaca. Observar meu exemplo abaixo: A fórmula funciona em qualquer célula desejada. Observe que as células ficam com a grade em azul. A fórmula é inserida em uma célula apenas, o restante é automático 4 Quote Link to comment Share on other sites More sharing options...
Neguin Posted November 25, 2021 Share Posted November 25, 2021 Em 23/11/2021 em 00:16, Pataca disse: @NandoADM Embora vc tenha pedido uma macro, eu utilizo a sfzeeguinte fórmula: A função AGREGAR está disponível a partir da versão Excel 2010. Muito boa, a tempos queria uma fórmula que fizesse isso, obrigado! 2 Quote Link to comment Share on other sites More sharing options...
NandoADM Posted November 25, 2021 Author Share Posted November 25, 2021 3 horas atrás, Pataca disse: @NandoADM Estou considerando que vc colocou sua fórmula em A4 e na barra de fórmulas a cor da fórmula fica mais escura, mas já em B4 a fórmula fica mais opaca, o que é o correto utilizando esta fórmula. Mas observando seu print acima, em B4 a fórmula está escura, onde deveria está opaca. Observar meu exemplo abaixo: Sim, Sim Sim.... muito bom, agora vai. Valeu 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.