Copy & Paste a range of data 500 times with change in one line of data for each count

[tatsujin90]

Hello So i have have this code that i need to mutilply by 500 and change the "tab=number" in each line to next higher number for example :

this counts as one line >>> 500 of thoese
[TABLE="width: 64"]
<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]{[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "select",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": "label=Reorder #2"[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "css=#mailForm > input:nth-child(4)",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "selectWindow",[/TD]
[/TR]
[TR]
[TD] "Target": "tab=1",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },

two

[TABLE="width: 64"]
<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]{[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "select",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": "label=Reorder #2"[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "css=#mailForm > input:nth-child(4)",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "selectWindow",[/TD]
[/TR]
[TR]
[TD] "Target": "tab=2",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },


three

[TABLE="width: 64"]
<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]{[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "select",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": "label=Reorder #2"[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "css=#mailForm > input:nth-child(4)",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "selectWindow",[/TD]
[/TR]
[TR]
[TD] "Target": "tab=3",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },


four


[TABLE="width: 64"]
<colgroup><col width="64" style="width:48pt"> </colgroup><tbody>[TR]
[TD="width: 64"]{[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "select",[/TD]
[/TR]
[TR]
[TD] "Target": "id=mailType",[/TD]
[/TR]
[TR]
[TD] "Value": "label=Reorder #2"[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "click",[/TD]
[/TR]
[TR]
[TD] "Target": "css=#mailForm > input:nth-child(4)",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
[TR]
[TD] {[/TD]
[/TR]
[TR]
[TD] "Command": "selectWindow",[/TD]
[/TR]
[TR]
[TD] "Target": "tab=4",[/TD]
[/TR]
[TR]
[TD] "Value": ""[/TD]
[/TR]
[TR]
[TD] },[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[/TR]
</tbody>[/TABLE]


and so on 500 time with the "tab=number is ranging from 1-500"


THanks for reading this and helping )) God bless.

 

[cerfani]

this is what for loops are ... for

Dim i As Integer
Dim html As String
html = [COLOR=#0000ff]"..."[/COLOR]
For i = 1 To 500
    html = html & vbCrLf & [COLOR=#0000ff]"..."[/COLOR] & i & [COLOR=#0000ff]"..."[/COLOR]
Next i

(placeholders for you to update)

that code would keep appending a string value to the html string 500 times (each time on a new line... vbCrLf = carriage return, line feed) ... so modify it to print your desired string and concatenate the i integer into the string which will count 1 to 500

 

[tatsujin90]

sorrt i'm a noob really noob (( how to i use the above code ?

Here is the file i have copied the code many times and now changing the "tab=1" with the find and replace by hand one by one
https://drive.google.com/file/d/1O_b3tduB4Rlw5qqLSErvp4sfHX9udnF1/view?usp=sharing

can you change it for me please or provide explanation sorry for this problem

 

[cerfani]

stop being such a noob then the answer is here, you just have to substitute. I suggest googling what is confusing or simply asking here.

Dim i As Integer
Dim html As String
html = "" [COLOR=#008000]'i just looked at your code.... you dont need this part since the whole thing repeats and only the number changes... you can start with empty string[/COLOR]
For i = 1 To 500
    html = html & vbCrLf & "(the part that repeats before the number)" & i & "(the part that repeats after the number)"
Next i

vbCrLf is a new line... google "concatenation in vba"

 

[tatsujin90]

Really didn't understand what to do will try to finish it manually as need to finish the job asap, and will try to google "concatenation in vba" around and ask in reddit also

 

[cerfani]

if you have variables with strings in them... you can combine them... it is called concatenation

Dim a As String, b As String, i As Long

a = "(bunch of code)" [COLOR=#008000]'substitute the part of your code before the number[/COLOR]
b = "(more code)" [COLOR=#008000]'substitute the part of your code after the number[/COLOR]
i = 2

MsgBox a & i & b

[COLOR=#008000]'prints (bunch of code)2(more code)[/COLOR]

im not going to do the tedious work of doing it for you and dont expect people to do that