vba - concatenate multiple rows & columns into one cell

[noidea23]

hello! would like to ask how to go about concatenating Range("A1:D3") into one cell as seen on "G1"

Thankyou!

 

[Rick Rothstein]

Try this...

=D1&A1&" createdin "&B1&C1

 

[noidea23]

Try this...

=D1&A1&" createdin "&B1&C1

Yup I've tried some something similar but I'm not sure how to get the 3 rows into one cell, one line each

 

[Peter_SSs]

Do you need to use vba?

22 02 23.xlsm
	A	B	C	D	E	F	G
1	G	Dec	2021	5			5G created in Dec2021 2T created in Nov2021 1G created in Jan2022
2	T	Nov	2021	2
3	G	Jan	2022	1
One Cell

Cell Formulas
Range	Formula
G1	G1	=TEXTJOIN(CHAR(10),,D1:D3&A1:A3&" created in "&B1:B3&C1:C3)

 

[noidea23]

Do you need to use vba?

Yeps, i need to do this using vba

 

[Peter_SSs]

Yeps, i need to do this using vba

Hmm, your post #3 response seemed to indicate formula would have been fine it it got all values in the one cell.

Sub JoinThem()
  With Range("G1")
    .Value = Evaluate("TEXTJOIN(CHAR(10),,D1:D3&A1:A3&"" created in ""&B1:B3&C1:C3)")
    .WrapText = True
  End With
End Sub

 

[noidea23]

Hmm, your post #3 response seemed to indicate formula would have been fine it it got all values in the one cell.

Sub JoinThem()
  With Range("G1")
    .Value = Evaluate("TEXTJOIN(CHAR(10),,D1:D3&A1:A3&"" created in ""&B1:B3&C1:C3)")
    .WrapText = True
  End With
End Sub

Ohh because i managed to do what the formula in post #2 did but using macro; just that couldn't combine into a single cell in separate lines.
Anyways, thank you! ^ helps a lot

 

[Peter_SSs]

Anyways, thank you! ^ helps a lot

You are welcome.