Solved

how to Update a field in excel

Posted on 2009-05-10
4
213 Views
Last Modified: 2012-05-06
I have a whole list of mobile phone numbers that were given with spaces etc in them and some that are not.  i have removed the spaces. but need to put a 0 in front of the number

ie 402130163

needs to be 0402130163

Cannot think today have the flue can someone plesae asist.
0
Comment
Question by:Amanda Walshaw
4 Comments
 
LVL 57

Assisted Solution

by:giltjr
giltjr earned 100 total points
Comment Utility
First thing that pops into my mind as a quick and dirty is to insert a column in front of the phone number, fill with 0, and then merge the two columns.
0
 
LVL 25

Assisted Solution

by:lwadwell
lwadwell earned 100 total points
Comment Utility
Hi Flyfishtrout15,

you can change the field format to 0000000000 or add another column with the formula =text(a1,"0000000000")

lwadwell
0
 

Accepted Solution

by:
dashahz earned 200 total points
Comment Utility
There's a couple of ways to do this, but here's one:

1. Go to a free column
2. Let's say that the first phone number exists B1.  So in the new column, type in:
=("0"&B1)

This will combine "0" with whatever is in B1.

3. Now, extend this formula down to the end of the the phone number list.

Here are some references:
http://office.microsoft.com/en-us/excel/HP052510211033.aspx#MergeCellContents
http://office.microsoft.com/en-us/excel/HP052090201033.aspx
0
 
LVL 50

Assisted Solution

by:Dave Brett
Dave Brett earned 100 total points
Comment Utility
This code will quickly update your current numbers insitu - so you won't have to copy and paste other cells back over your originals manually
to use
'Press Alt + F11 to open the Visual Basic Editor (VBE)
'From the Menu, choose Insert-Module.
'Paste the code into the right-hand code window.
'Press Alt + F11 to close the VBE
' Select your cells
'Go to Tools & Macro & Macros and double-click Clearer
 
Cheers
Dave

Sub Clearer()

    Dim rng1 As Range, rngArea As Range, i As Long, j As Long

    Dim X()

    Dim AppCalc As Long
 

    'code runs on the active selection

    Set rng1 = Selection

  
 

    With Application

        AppCalc = .Calculation

        .ScreenUpdating = False

        .Calculation = xlCalculationManual

    End With
 

    For Each rngArea In rng1.Areas

    rngArea.NumberFormat = "@"

        If rngArea.Cells.Count > 1 Then

            X = rngArea

            For i = 1 To rngArea.Rows.Count

                For j = 1 To rngArea.Columns.Count

                    X(i, j) = "0" & X(i, j)

                Next j

            Next i

            rngArea = X

        Else

            rngArea.Value = "0" & rngArea

        End If

    Next rngArea
 

    With Application

        .ScreenUpdating = True

        .Calculation = AppCalc

    End With

End Sub

Open in new window

0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
My experience with Windows 10 over a one year period and suggestions for smooth operation
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now