How do I add additional text in many cells
 

Hello,

I'd like to know how I can insert the same additional text to cells when
there is already text in these cells without having to type it in every cell
separately:
H1/1
H7/2
H8/3
should read
H1/1_9.11
H7/2_9.11
H8/3_9.11

Thanks

Markus

How do I add additional text in many cells
 

Hi,

One way. Right cleck the sheet tab, view code and paste this in. Select the
range where your data are and then run this code:-

Sub addtext()
newtext = "_9.11"
Set myrange = Selection
For Each c In myrange
If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext
Next
End Sub

Mike

"The Austrian" wrote:

Hello,

I'd like to know how I can insert the same additional text to cells when
there is already text in these cells without having to type it in every cell
separately:
H1/1
H7/2
H8/3
should read
H1/1_9.11
H7/2_9.11
H8/3_9.11

Thanks

Markus

How do I add additional text in many cells
 

Hi Mike,

I have about a 100 cells with different text so if I have to type
"If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext"
the contents of each cell in the macro program then it's quicker to manually
paste the text in each cell. Or is there another way?

Thanks Markus


"Mike H" wrote:

Hi,

One way. Right cleck the sheet tab, view code and paste this in. Select the
range where your data are and then run this code:-

Sub addtext()
newtext = "_9.11"
Set myrange = Selection
For Each c In myrange
If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext
Next
End Sub

Mike

"The Austrian" wrote:

Hello,

I'd like to know how I can insert the same additional text to cells when
there is already text in these cells without having to type it in every cell
separately:
H1/1
H7/2
H8/3
should read
H1/1_9.11
H7/2_9.11
H8/3_9.11

Thanks

Markus

How do I add additional text in many cells
 

Sub addtext()
newtext = "_9.11"
Set myrange = Selection
For Each c In myrange
c.Value = c.Value & newtext
Next c
End Sub


Gord Dibben MS Excel MVP

On Mon, 12 Nov 2007 02:47:01 -0800, The Austrian
wrote:

Hi Mike,

I have about a 100 cells with different text so if I have to type
"If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext"
the contents of each cell in the macro program then it's quicker to manually
paste the text in each cell. Or is there another way?

Thanks Markus


"Mike H" wrote:

Hi,

One way. Right cleck the sheet tab, view code and paste this in. Select the
range where your data are and then run this code:-

Sub addtext()
newtext = "_9.11"
Set myrange = Selection
For Each c In myrange
If c.Value = "H1/1" Or c.Value = "H7/2" Or c.Value = "H8/3" _
Then c.Value = c.Value & newtext
Next
End Sub

Mike

"The Austrian" wrote:

Hello,

I'd like to know how I can insert the same additional text to cells when
there is already text in these cells without having to type it in every cell
separately:
H1/1
H7/2
H8/3
should read
H1/1_9.11
H7/2_9.11
H8/3_9.11

Thanks

Markus