Transpose data from column into one single cell

[LabLady11]

Hello,

I am trying to consolidate all values in a column that contains formulas to one cell with a ',' as a delimiter. I cannot use the jointext fx because I'm not using Microsoft365. All values (that are derived from an 'IF' formula) are in column AD1:AD962 and this range will continue on indefinitely. I only want the text values in these cells to be consolidated into an adjoining empty cell (AF2) and ignore any errors that may occur in the formula.

Below is what I am trying to use; but the formula in column 'AD' is resulting in an error. I am open to a new function altogether.

Function transposeRange(Rg As Range)
'updateby Extendoffice
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function

thank you!

 

[C Moore]

This might do it. Text Join Formula for all Excel Versions

 

[LabLady11]

This might do it. Text Join Formula for all Excel Versions

Thanks but it doesn't work because I have formulas in the cells from which the text is pulling. Is there a way to change that function to allow the use of formulas?