I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

Assume email running in A2 down
In B2: =A2&";"
Copy down
--
Max
Singapore
http://savefile.com/projects/236895
Downloads:27,000 Files:200 Subscribers:70
xdemechanik
---
"MicrosoftUserDarren" wrote:
I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

Try the function ....... CONCATENATE


=CONTENATE(EMAIL_CELL,COMMA_CELL)


REGARDS
Rajesh Mehmi

"MicrosoftUserDarren" wrote
in message ...
I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end
of
the email without having to go to each cell and add ; at the end ?

Hi,

You can use the following code to add ; to every cell in any selection you
make:

Sub AddSemiColon()
Dim cell As Range
For Each cell In Selection
cell = cell & ";"
Next cell
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"MicrosoftUserDarren" wrote:

I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

Could you expand on that more please.

"Shane Devenshire" wrote:

Hi,

You can use the following code to add ; to every cell in any selection you
make:

Sub AddSemiColon()
Dim cell As Range
For Each cell In Selection
cell = cell & ";"
Next cell
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"MicrosoftUserDarren" wrote:

I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

Thanks so much Max. Your formula worked great.

"Max" wrote:

Assume email running in A2 down
In B2: =A2&";"
Copy down
--
Max
Singapore
http://savefile.com/projects/236895
Downloads:27,000 Files:200 Subscribers:70
xdemechanik
---
"MicrosoftUserDarren" wrote:
I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

What Shane provided is a macro which will do the same on the selection. You
dont need to have a additional column. to try out set the Security level to
low/medium in (Tools|Macro|Security). From workbook launch VBE using
short-key Alt+F11. From menu 'Insert' a module and paste the below code.
Save. Get back to Workbook.

Select the range of cells with email and run macro from Tools|Macro|Run
<selected macro()

Sub AddSemiColon()
Dim cell As Range
For Each cell In Selection
cell = cell & ";"
Next cell
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"MicrosoftUserDarren" wrote:

Could you expand on that more please.

"Shane Devenshire" wrote:

Hi,

You can use the following code to add ; to every cell in any selection you
make:

Sub AddSemiColon()
Dim cell As Range
For Each cell In Selection
cell = cell & ";"
Next cell
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"MicrosoftUserDarren" wrote:

I have a database full of information. In one of the columns I have emails,
Im wondering is there anyway that I can add a ";" in every cell at the end of
the email without having to go to each cell and add ; at the end ?

Good to hear. You're welcome.
--
Max
Singapore
http://savefile.com/projects/236895
Downloads:27,000 Files:200 Subscribers:70
xdemechanik
---
"MicrosoftUserDarren" wrote
in message ...
Thanks so much Max. Your formula worked great.