View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Jacob Skaria Jacob Skaria is offline
external usenet poster
 
Posts: 8,520
Default Need Help to repeat a symbol in each cell in a column

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 ?