| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Additional Help with range of cells | Excel Worksheet Functions | |||
| Inserting Additional Text in Spreadsheet | Excel Worksheet Functions | |||
| Additional rows added to spreadsheet when opening text files | Excel Discussion (Misc queries) | |||
| inserting an additional line of text within same cell | Excel Worksheet Functions | |||
| How to input additional text to multiple of existing cells that has text | Excel Worksheet Functions | |||
Linear Mode
