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

[Miguelriedel]

 

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.

 

 

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.

 

[Midori]

Com macro é possível fazer isso.

[Miguelriedel]

@Midori Como ficaria?

[Midori]

Anexe o arquivo com a tabela dos itens.

[Miguelriedel]

@Midori abaixo

Exemplo fórum.xlsx

[Midori]

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

 

[Thiago Miotto]

 

Coluna H1:

=SE(B1="";G1;CONCATENAR(G1;B1)) e arrasta pro lado as próximas
Se quiser, faz numa 2ª planilha que faz o cálculo e não será impressa