Jump to content

Pedido de Macro


NandoADM

Recommended Posts

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!

 

  • Like 2
Link to comment
Share on other sites

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)

 

image.png.9ac3fb2c774a4df165b7f717cb33a27c.png

 


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

 

  • Like 4
  • Thanks 1
Link to comment
Share on other sites

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.

 

  • Like 3
Link to comment
Share on other sites

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.

  • Like 3
Link to comment
Share on other sites

@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.

 

image.thumb.png.c8767c9961494c508e7dd21ee8e4ed77.png

 

Eu preciso que comece na coluna "BC" daí a minha dificuldade.

  • Like 2
Link to comment
Share on other sites

@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:

 

image.thumb.png.9411e92f66070d6918261bd1a6f748e3.png

 

image.thumb.png.ff98bc5da0636fca8571da235a81fc75.png

 

A fórmula funciona em qualquer célula desejada. 

 

image.thumb.png.2ac364cbf7c52ea7a41f44d59dce5dae.png

 

Observe que as células ficam com a grade em azul. A fórmula é inserida em uma célula apenas, o restante é automático

  • Like 4
Link to comment
Share on other sites

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

  • Like 1
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...