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

[TABLE="width: 500"]
<tbody>[TR]
[TD]4
[/TD]
[TD]5
[/TD]
[TD]6
[/TD]
[TD]7
[/TD]
[TD]8
[/TD]
[TD]9
[/TD]
[TD]10
[/TD]
[TD]Total
[/TD]
[/TR]
[TR]
[TD]x
[/TD]
[TD][/TD]
[TD]x
[/TD]
[TD][/TD]
[TD][/TD]
[TD]x
[/TD]
[TD]x
[/TD]
[TD]4,6,9,10
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD]x
[/TD]
[TD][/TD]
[TD]x
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]5,7
[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]x
[/TD]
[TD][/TD]
[TD][/TD]
[TD]8
[/TD]
[/TR]
</tbody>[/TABLE]

 

[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)