How to paste values in a certain text position in VBA? - vba

Question

I have a workbook with 2 sheets. First sheet contains table with data to copy, the second sheet contains strings inside which i would like to insert copped data.
The problem is that i don't know how exactly to define 2nd sheet strings a text start/end position, where i would like to paste?
For example:
on a first sheet i have in range A1:A4
<Tracciato xmlns="http://">
<Riquest>
<Test>
<Code></Code>
Then i take from a second sheet B2 cell a value 293 and insert it between , so i get:
<Tracciato xmlns="http://">
<Riquest>
<Test>
<Code>293</Code>
The code could be something like:
Sub Data()
Sheets("First_sheet").Select
Sheets.("First_sheet").Range("B2").Copy Destination:=Sheets("Second_sheet")
End Sub

Answer 1

Here is a brief example:
Sub foo()
Dim copyRange as Range
Dim destRange as Range
Dim copyString as String
'Define the cell from which you want to "copy" the text
Set copyRange = Sheets("First_Sheet").Range("B2")
'Define the destination:
Set destRange = Sheets("Second_Sheet").Range("B2")
'Assign the value from a cell to this string variable
copyString = copyRange.Value
'Now insert the text:
destRange.Value = Left(destRange, 6) & copyString & Right(destRange, 7)
End Sub
Of course, practically speaking you will most likely need to implement this in some sort of Loop structure. YOu may need to use some logic to determine where the destination is, if that is not a 1:1 relationship (i.e., B2 on Sheet1 --> B2 on Sheet2, etc.). You may also need to use some logic to better define the start/end for where to insert. Right now the example code ONLY is for inserting values to a node like <Code></Code>.