Add specific text to existing value for multiple column

[Perzo]

Hello
I am a total newbie to VBA and macro. I want to add some specific text to existing strings (before and after), depending on column.


original table

test.xlsx
	C	D	E	F	G
23	Name	Partner	Pr_Title_EN	Theme	Web_en
24	Name1	P1	Project1	Th1	https://www.ggg.fr/TechnZzz/Name1_Project1.html
25	Name2	P2	Project2	Th2	https://www.ggg.fr/TechnZzz/Name2_Project2.html
Tabelle2

what I need

test.xlsx
	B	C	D	E	F
28	Name	Partner	Pr_Title_EN	Theme	Web_en
29	{ "type": "Feature", "properties": { "q2wHide_NAME": "Name1",	"Partner": "<strong>P1</strong>",	"Project":"Project1",	"Theme": "Th1",	"Web_en": "<a href=https:\/\/wwwggg.fr\/TechnZzz\/Name1_Project1.html target='_blank' rel='noreferrer noopener'style='color: #ffffff'>Information<\/a>"
30	{ "type": "Feature", "properties": { "q2wHide_NAME": "Name2",	"Partner": "<strong>P2</strong>",	"Project":"Project2",	"Theme": "Th2",	"Web_en": "<a href=https:\/\/wwwggg.fr\/TechnZzz\/Name2_Project2.html target='_blank' rel='noreferrer noopener'style='color: #ffffff'>Information<\/a>"
Tabelle2

Thanks for the help!

 

[maabadi]

Welcome to MrExcel Message Board.
If your Data Start from Cell C24 (as Uploaded File) Try this:

Sub ConvertTexts()
Dim i As Long, Lr As Long, K As String
Lr = Range("C" & Rows.Count).End(xlUp).Row
For i = 24 To Lr
Range("C" & i).Value = "{ ""type"": ""Feature"", ""properties"": { ""q2wHide_NAME"": """ & Range("C" & i).Value & """" & ","
Range("D" & i).Value = " ""Partner"": ""<strong>" & Range("D" & i).Value & "</strong>""" & ","
Range("E" & i).Value = """Project"":""" & Range("E" & i).Value & """" & ","
Range("F" & i).Value = """Theme"":""" & Range("F" & i).Value & """" & ","
K = Replace(Range("G" & i).Value, "/", "\/")
Range("G" & i).Value = " ""Web_en"": ""<a href=" & K & " " & "target='_blank' rel='noreferrer noopener'style='color: #ffffff'>Information<\/a>"""
Range("G" & i).Font.Color = 0
Next i
End Sub