Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add additional value to a cell
Has anyone got a quick fix for this:
A1 has a value of "Subtitles:" I'd like to make three macro's that, when run individually, ADDS their value to A1. Ie. Macro 1 inserts the value "English" Macro 2 inserts the value ", Spanish" Macro 3 inserts the value ", French" So if I run macro 1, A1 will then contain the value "Subtitles:English" Then if I run macro 2, A1 will then contain the value "Subtitles:English, Spanish" I need to add maybe 10 different subtitle languages, so it must be a macro that adds the additional subtitle to the cell. Any ideas ? Rasmus |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add additional value to a cell
Sub AddEnglish()
Range("A1").Value = Trim(Range("A1")) & " English" End sub Sub AddSpanish() Range("A1").Value = Trim(Range("A1")) & ", Spanish" End Sub Sub AddFrench() Range("A1").Value = Trim(Range("A1")) & ", French" End Sub and so forth. Rasmus wrote in message le.rogers.com... Has anyone got a quick fix for this: A1 has a value of "Subtitles:" I'd like to make three macro's that, when run individually, ADDS their value to A1. Ie. Macro 1 inserts the value "English" Macro 2 inserts the value ", Spanish" Macro 3 inserts the value ", French" So if I run macro 1, A1 will then contain the value "Subtitles:English" Then if I run macro 2, A1 will then contain the value "Subtitles:English, Spanish" I need to add maybe 10 different subtitle languages, so it must be a macro that adds the additional subtitle to the cell. Any ideas ? Rasmus |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Add additional value to a cell
Ooops!
Should be: ActiveWorkbook.Sheets("Sheet1").Range("A1").Value = _ ActiveWorkbook.Sheets("Sheet1").Range("A1").Value & ": English" HTH Henry "Tom Ogilvy" wrote in message ... Text is a read only property of a range. You can't assign a value to Text. -- Regards, Tom Ogilvy Henry wrote in message ... Rasmus Macro 1 ActiveWorkbook.Sheets("Sheet1").Range("A1").Text = _ ActiveWorkbook.Sheets("Sheet1").Range("A1").Text & ": English" Macro 2 ActiveWorkbook.Sheets("Sheet1").Range("A1").Text = _ ActiveWorkbook.Sheets("Sheet1").Range("A1").Text & ", Spanish" Etc. HTH Henry "Rasmus" wrote in message le.rogers.com... Has anyone got a quick fix for this: A1 has a value of "Subtitles:" I'd like to make three macro's that, when run individually, ADDS their value to A1. Ie. Macro 1 inserts the value "English" Macro 2 inserts the value ", Spanish" Macro 3 inserts the value ", French" So if I run macro 1, A1 will then contain the value "Subtitles:English" Then if I run macro 2, A1 will then contain the value "Subtitles:English, Spanish" I need to add maybe 10 different subtitle languages, so it must be a macro that adds the additional subtitle to the cell. Any ideas ? Rasmus |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Additional cell colours | Excel Discussion (Misc queries) | |||
How to add additional description in a cell to a spreadsheet? | Setting up and Configuration of Excel | |||
inserting an additional line of text within same cell | Excel Worksheet Functions | |||
Inserting additional data into a cell | Excel Discussion (Misc queries) | |||
Inserting additional data into an existing cell? | Excel Discussion (Misc queries) |