Select Text and Inserting into Pre-determined Text

[barrettdavis01]

Hello,

I am new to macro's, but I learn very quickly.


[TABLE="width: 500"]
<tbody>[TR]
[TD]slot[/TD]
[TD]port[/TD]
[/TR]
[TR]
[TD]1[/TD]
[TD]21[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]23[/TD]
[/TR]
[TR]
[TD]6[/TD]
[TD]11[/TD]
[/TR]
</tbody>[/TABLE]

I would like to select these 3 rows(or any number of rows) and insert them into text that looks like this:

This will need a loop based upon selected rows? I don't know if this is possible.

Conf T
int g 1/21
no desc
sw ac vlan 1
speed auto
end

Conf T
int g 6/23
no desc
sw ac vlan 1
speed auto
end

Conf T
int g 6/11
no desc
sw ac vlan 1
speed auto
end



Thank you for your help,

This an insightful forum.


-- Barrett

 

[JackDanIce]

You haven't indicated where the data is, so you'll need to modify this suggestion:

Dim i as Long
For i = 1 to 3
  msgbox Range("A" & i) & "/" & Range("B" & i)
Next i

 

[Rick Rothstein]

If your output is to go into a cell on the same row as its slot/port numbers is on, and assuming slot is in Column A and port is in Column B, put this formula in an empty cell on the same row as the first piece of data and copy down as needed...

="Conf T"&CHAR(10)&"int g "&A2&"/"&B2&CHAR(10)&"no desc"&CHAR(10)&"sw ac vlan 1"&CHAR(10)&"speed auto"&CHAR(10)&"end"

Don't forget to change the alignment for the cells the formulas are in to "wrap text".

 

[barrettdavis01]

If your output is to go into a cell on the same row as its slot/port numbers is on, and assuming slot is in Column A and port is in Column B, put this formula in an empty cell on the same row as the first piece of data and copy down as needed...

="Conf T"&CHAR(10)&"int g "&A2&"/"&B2&CHAR(10)&"no desc"&CHAR(10)&"sw ac vlan 1"&CHAR(10)&"speed auto"&CHAR(10)&"end"

Don't forget to change the alignment for the cells the formulas are in to "wrap text".

Thank you for your answers. They were both very helpful. One more quick note, when this equation is used it outputs text in quotes(exp: "int g askjdksadjsa blah blah").

I need to be able to have this text without quotes. How do I remove these?




---Barrett

 

[Rick Rothstein]

One more quick note, when this equation is used it outputs text in quotes(exp: "int g askjdksadjsa blah blah").

I need to be able to have this text without quotes. How do I remove these?

There is nothing in the formula that I posted will generate quote marks in the text that it displays. Did you copy/paste the formula I posted exactly as I posted it? Or did you modify it in some way? If yes, show us how.

 

[barrettdavis01]

There is nothing in the formula that I posted will generate quote marks in the text that it displays. Did you copy/paste the formula I posted exactly as I posted it? Or did you modify it in some way? If yes, show us how.

If you copy the cells that are ouputted from this equation and then paste them into word/notepad..

[TABLE="width: 269"]
<TBODY>[TR]
[TD]"Conf T
int g 1/21
no desc
sw ac vlan 1
speed auto
end"

-- CLI can't read these quotes unfortunately.[/TD]
[/TR]
</TBODY><COLGROUP><COL></COLGROUP>[/TABLE]

 

[Rick Rothstein]

If you copy the cells that are ouputted from this equation and then paste them into word/notepad..

[TABLE="width: 269"]
<tbody>[TR]
[TD]"Conf T
int g 1/21
no desc
sw ac vlan 1
speed auto
end"

-- CLI can't read these quotes unfortunately.
[/TD]
[/TR]
</tbody>[/TABLE]

It looks like those quote marks appear no matter where you paste the copy to. It appears that the quotes come about in that process because of the Line Feed characters. If you put this formula in a cell...

="FirstName"&"SecondName"

if copy/pastes without quote marks, but if you change it to this...

="FirstName"&CHAR(10)&"SecondName"

then you get the quote marks when you copy/pasted it. I do not know how, or even if it is possible, to turn this "feature" off.