×
Ir ao conteúdo
  • Cadastre-se

Excel concatenar itens em uma célula sob condições


Posts recomendados

 

Eu preciso fazer os itens dessa primeira planilha ir para segunda em uma célula conforme o código, por exemplo: nessa planilha tenho o cód: 1 com os itens: ITEM 1, ITEM 2, ITEM 3, ITEM 4, ITEM 5.

 

image.png.b89c428f8c0b8f691b8f2bfc7b81fd51.png

 

Preciso que na outra aba ele puxe dessa maneira, estava usando a função CARACT(10) para junta-los em uma única célula, mas não sei como puxar de acordo com o código, por se adiciono outra linha na primeira planilha ele puxa os dados do código seguinte.

 

image.png.97109bdcde7fe1af44a3be287702bd8a.png

Link para o comentário
Compartilhar em outros sites

Veja se assim resolve,

 

Sub MacroItens()
    Dim Plan2       As Worksheet
    Dim Codigo      As Range
    Dim ContaItens  As Integer
    Dim Linha       As Long
    
    Set Codigo = ThisWorkbook.Sheets("Planilha1").[A2]
    Set Plan2 = ThisWorkbook.Sheets("Planilha2")
    Linha = 2
    
    While Codigo <> ""
        If Codigo.Offset(0, 1) <> "" Then
            ContaItens = Codigo.End(xlToRight).Column - 2
            If ContaItens > 0 Then
                Dim Colunas As Range
                Dim Itens   As String
                
                For Each Colunas In Codigo.Offset(0, 2).Resize(1, ContaItens)
                    Itens = Itens & Colunas & vbCrLf
                Next Colunas
                
                Plan2.Cells(Linha, 1) = Codigo
                Plan2.Cells(Linha, 2) = Codigo.Offset(0, 1)
                Plan2.Cells(Linha, 4) = Mid(Itens, 1, Len(Itens) - 1)
                Linha = Linha + 1
                Itens = ""
            End If
        End If
        Set Codigo = Codigo.Offset(1)
    Wend
End Sub

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Como se tornar um desenvolvedor full-stack

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!