Concatenate if it matches criteria

[ORoxo]

Hello, everyone,
I'm trying to concatenate several cells into one if it matches a certain criterias. I was wondering if you could lay me a hand. Below you will find a file with a simple example:

https://ufile.io/9e7ht

Thanks!

 

[mole999]

I'm guessing you want to actually move all the info in a cell rather than just displaying it

If a display will work you could use in A5 =IF(A=1,A2&" "&A3&" "&A4,"")

 

[Fluff]

How about

Sub MyConcat()
   Dim Cl As Range
   Dim Ws As Worksheet
   
   Set Ws = Sheets("Input")
   With CreateObject("scripting.dictionary")
      For Each Cl In Ws.Range("B1", Ws.Range("B" & Rows.Count).End(xlUp))
         If Not .Exists(Cl.Value) Then
            .Add Cl.Value, Cl.Offset(, -1).Value
         Else
            .Item(Cl.Value) = .Item(Cl.Value) & ", " & Cl.Offset(, -1).Value
         End If
      Next Cl
      Sheets("Output").Range("B1").Resize(.Count).Value = Application.Transpose(.Keys)
      Sheets("Output").Range("A1").Resize(.Count).Value = Application.Transpose(.Items)
   End With
End Sub