Concatenar condicional VBA

2024 - VBA & Macros

Post Recente por leandroxtr 7 anos atrás

6 Posts

3 Usuários

0 Reactions

1,668 Visualizações

RSS

LutiRamone

(@lutiramone)

Posts: 2

New Member

Topic starter

Pessoal, boa tarde!

Tenho nas linhas de uma mesma coluna A vários valores e em intervalos não iguais o valor "Wed", por exemplo
a1 = sun
a2 = mon
a3 = wed
a4 = sun
a5 = thur
a6 = sat
a7 = wed

Eu quero concatenar todos os valores até o valor "Wed", ou seja, queria que o código concatenasse a1, a2, a3 e depois numa linha abaixo concatenasse a4, a5, a6 e a7, depois numa linha abaixo concatenasse todos os valores até o próximo "wed".

Eu consegui referenciar todas as células que contém "Wed", ou seja, sei onde estão todos os "Wed", mas queria que ele concatenasse sozinho até achar esse valor ou essa referência. Sei que tem que criar um contador para ele colar na linha abaixo da última linha preenchida. Mas não estou conseguindo concatenar não manualmente : (

Obrigado!

Postado : 04/10/2017 2:44 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Movi teu tópico para VBA & Macros, que é o assunto da tua dúvida, pois onde você havia postado não é permitido postar dúvidas, é exclusivo para a apresentação dos novos usuários do fórum.

Para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s
Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/10/2017 3:03 pm

LutiRamone

(@lutiramone)

Posts: 2

New Member

Topic starter

Obrigado Patropi, desculpe, cheguei há pouco.

Postado : 04/10/2017 3:16 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Para facilitar anexe uma planilha de exemplo, demonstrando manualmente o resultado esperado.
Se você leu os links que eu postei já é de teu conhecimento, que os arquivos devem ser compactados (zipados) antes de anexar.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 04/10/2017 3:44 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Ficaram faltando informações, tipo onde quer colocar os valores concatenados, então vou por suposição e joguei o resultado sempre na frente da expressão "wed", faça um teste e veja se seria isto:

Sub Concatenar_WED()
    Dim j As Long, UltimaLinha As Long
    Dim dCellValues
    
    UltimaLinha = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
    
    For j = 1 To UltimaLinha
    
        While Cells(j, 1) <> "wed"
            dCellValues = dCellValues & Cells(j, 1).Value & "-"
            j = j + 1
        Wend
        
        dCellValues = dCellValues & Cells(j, 1).Value
        
        Cells(j, 2).Value = dCellValues
        
        dCellValues = ""
    
    Next
    
End Sub

Qq duvida retorne.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/10/2017 9:01 am