Ole Kristen.
11-22-2016, 12:01 PM
Hello
I have the following code:
ActiveCell.FormulaR1C1 = "=TEXTJOIN("" "",TRUE,R[1]C:R[8]C)"
ActiveCell.Select
ActiveCell.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(2, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
I need the range for the function TEXTJOIN to be dynamic. How do I do that?
I have the following code:
ActiveCell.FormulaR1C1 = "=TEXTJOIN("" "",TRUE,R[1]C:R[8]C)"
ActiveCell.Select
ActiveCell.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
Selection.ClearContents
ActiveCell.Offset(2, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub
I need the range for the function TEXTJOIN to be dynamic. How do I do that?