Return Value if Not Blank

[laxjuan05]

Hello,

I have a range where it displays if sections are being used or not. I need to display which sections are used in one column if possible.

For example Total Column row 1 would need to display 4,6,9,10
Total Column row 2 would need to display 5,7
Total Column row 3 would display 8

Is this Possible?
Thanks

4	5	6	7	8	9	10	Total
x		x			x	x	4,6,9,10
	x		x				5,7
				x			8

<tbody>
</tbody>

 

[mumps]

Try:

Sub ReturnValue()
    Application.ScreenUpdating = False
    Dim LastRow As Long
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim x As Long
    Dim rng As Range
    For x = 2 To LastRow
        For Each rng In Range("A" & x & ":G" & x)
            If rng <> "" Then
                Range("H" & x) = Range("H" & x) & ", " & Cells(1, rng.Column)
            End If
        Next rng
        Range("H" & x) = Mid(Range("H" & x), 3, 999)
    Next x
    Application.ScreenUpdating = True
End Sub

 

[Aladin Akyurek]

If TEXTJOIN is available on your system, try:

=TEXTJOIN(",",1,A2:G2)