Removing Telephone Numbers From A Cell?
Jun 1, 2013
I have a limited amount of VBA knowledge. My limited knowledge is based on solving my problems by looking at the answers already on this site and trying to adapt it to my needs. Here goes:
I import a list of address and telephone numbers (100+) into excel. example - Cell A1 contains "10 downing street, whitehall, london, SW1A 2AA 01234 567890", sometimes there is another space after the number, sometimes there is no telephone number. I want to remove the telephone number at the end if it is there. Have searched the forums have have come up with the follow solution:
1. import list to column A
2. copy and paste Trim to column B
3. copy values in column B and paste to column A
4. delete column B
5. remove the end numbers
6. copy and paste Trim to column B
7. copy values in column B and paste to column A
8. delete column B
9. remove the end numbers
It looks like this in code:
Sub testa()
'select (=TRIM(A1)) formula and paste to sheet
Sheets("Formulas").Select
Columns("B:B").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet4").Select
Columns("B:B").Select
ActiveSheet.Paste
[Code]...
'copy values of column B to Column A and delete column B
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
[Code]...
'copy values of column B to Column A and delete column B
Columns("B:B").Select
Selection.Copy
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("B:B").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1").Select
End Sub
I know this is a long winded way around (still chuffed I worked it out by myself though!). If I merge all the macros into one marco it continually loops and deletes everything in the cells and I have to press escape to stop it.
My questions are:
1. Why, when I merge all the macros doesnt it work the same as individual macros? (I would like to know for future reference).
2. Its there a better way to remove the telephone numbers?
View 3 Replies
ADVERTISEMENT
Feb 9, 2005
Is it possible to format cells so that inputed tel. numbers are all have the same format and not just appear the same, regardless of how they were typed in?
i need it so the column can be sorded by phone #.
View 9 Replies
View Related
Aug 24, 2007
I have a column that contains all telephone numbers without any spaces - 01234567890
I need to have at least one space inserted anywhere in the number i.e. 0 1234567890 or 01234 567890.
View 8 Replies
View Related
Aug 16, 2014
I have some cells which contain telephone number and some text data. They look like this.
(713) 555-4600 (Work)
(713) 555-4620 (Home)
(832) 555-4610 (John's Phone)
I need to strip out the text data and just display the phone number as follows
(713) 555-4600
(713) 555-4620
(832) 555-4610
View 4 Replies
View Related
Oct 22, 2007
I have a large data set (excel file), of "Names", "Phone Numbers", and i need to sort this based on the States that correspond with the Phone numbers. The states currently do not exist in the spreadsheet, so my current problem is trying to insert those states into the spreadsheet.
There are over 100 area codes in the data set, so i'll likely have to write a large "If" statement in VB to run through them all, but that shouldnt be a problem.
NAME, PHONE, STATE
Bleh, 555-555-5555, =ChkState(B2)
I've been playing around with the VB Stuff in Excel and this is what i've come up with for trying to insert the State field
Function ChkState(pVal As String) As Long
Dim AreaCode As String
Dim StateAbrv As String
AreaCode = Left(pVal, 3)
If AreaCode = "201" Then
StateAbrv = "Test201"
ElseIf AreaCode = "203" Then
StateAbrv = "Test203"
ElseIf AreaCode = "555" Then
StateAbrv = "Test555"
Else
StateAbrv = "0"
End If
MsgBox StateAbrv
End Function
I'm fairly new to this VB stuff, my main problem stems from trying to insert the "StateAbrv" back into the Cell for the spreadsheet.
View 9 Replies
View Related
Apr 21, 2014
I currently am pasting data that in some cases there are numbers at the end of a list of names e.g Andy Cole10 or James Banks3.
I have used a formula before that seperates the numbers into another cell but now i need only the text and not the number.using A & B column as example and i can adjust the range.
View 2 Replies
View Related
Feb 21, 2012
I have a spreadsheet with Mobile phone numbers in the following format:
+44(0)77 7296 5210
The spreadsheet has 2500 of these phone numbers.
Is there a way to remove the brackets and the +44 to leave:
07772965210
I am using Microsoft Office for Mac 2011
View 5 Replies
View Related
Jan 2, 2008
This has definitely been done before, but I am not sure if it has been done through Excel/VBA.
I have a 9 or 10 digit telephone number, preceded by a zero and what I want to do is get Excel to figure out the combinations of text characters that will allow me to have a text phone number.
For Example:
0-800-43573375 is the same as 0-800-HELPDESK
View 9 Replies
View Related
Jan 11, 2014
I have tried to set one formula which will given the the Numbers of the Vehicle. However as there are other numbers also which makes it difficult to do so.
View 5 Replies
View Related
Dec 29, 2008
I have a column of data which has numbers and units (small example below).
I need to remove the text (units) and at the same time multiply the number by a value which is based on what the text is:
-999.9uA needs to become -999.9*10^-6
-98.40mA needs to become -98.40*10^-3
View 3 Replies
View Related
May 22, 2014
I've put together a macro to format an extract from a fuel report but at the end of it I need to remove numbers in front of drivers names.
E.g.
1. John smith
10. Joe bloggs
123. Peter piper
Should end up as
John smith
Joe blogs
Peter piper
All without the number, full stop and the space before the name.
View 5 Replies
View Related
Dec 27, 2013
I have been sent a list of 600 names in the format of 1. john smith 2. jane doe 3. tim smith ect.... how do I remove the numbers without going to each individual cell and manually deleting it?
View 1 Replies
View Related
May 25, 2013
I have a spreadsheet which reads:
A1 E012345678
A2 126789433
A3 ABCDEFGH
A4 CDEEGFFH
A5 E0456783
A6 98765432
etc.
I need only the the data in Cells A1 A5 etc. which means the 3 cells below (A2, A3, A4 ) should be deleted. A5 I need the data, and then A6, A7, A8 I do not need ... A9 need and so on.
the data should be in in one below the next with no spaces in between.
Data is only in column A.
View 6 Replies
View Related
Feb 16, 2009
i have a sheet dealing with part numbers and a paramiter exported from a programme.
L=1000MM | L/R is an example.
now
i use replace to get rid of everything before the number but anything after the mm is totaly different most of the time.
is there a way that i can get rind of anything after, and including, the mm?
or by some chance a command that will just leave me with the number allone?
View 10 Replies
View Related
Jun 4, 2009
I have a bunch of cells that have City and Zip Code combinations.
Ex: Chicago 606
Fayettville 72701
SACRAMENTO 95691
Some of them are 3 digit zips and others are 5 digits. I just want to weed out anything with a number leaving the city names.
View 9 Replies
View Related
Sep 21, 2009
I have a huge column of data. This data has few prefixes that I need to remove. I have a list of possible prefixes. Some prefixes are 1,2,3 or 4 characters long. Could you please suggest best way of removing these prefixes (VBA if possible)?
Following are some of the examples of prefixes:
AB
GD
KR
BCD
FP-
TJ-
W
View 9 Replies
View Related
Jun 26, 2013
I'm trying to remove all the numbers of a phone number an keep the are code for 2000+ phone numbers.
ex. 111-222-9999
I want to remove the 2's and 9's but keep the 1's.
View 3 Replies
View Related
Feb 7, 2014
I have a list full of different IDs with different version numbers (This format: AKH123.1).
I'm trying to clean the list - removing all duplicate IDs but leaving only the largest version number.
I managed to remove the last digit using LEN/VLOOKUP and removing duplicates, but leaving only the largest version number is too tricky for me. I've thought about trying something with LARGE but can't wrap my mind around it.
My thought process went like this: I want to find all occurrences of "AKH123" and return the largest one.
The list contains about 8000 entries and this would save en enormous amount of work.
Here is a tiny portion of the list:
AKH450.1
AKH451.1
AKH451.3
AKH451.4
AKH451.5
AKH451.6
AKH451.7
AKH451.8
AKH452.1
AKH453.3
AKH454.1
AKH455.1
AKH455.2
View 3 Replies
View Related
Jul 29, 2014
i have a list of 2000 fields which have the same format IE "AB10014"
I need to remove the "AB" from every field and leave the #.
Besides putting a space and running text to columns I'm not sure how.
View 13 Replies
View Related
Aug 4, 2014
cell a1 has yes cell b1 has yes and i want to type yes in c1 that will change a1 and b1 automatically to a blank cell
View 3 Replies
View Related
Oct 8, 2008
I have the following forumla....
=SUM(B11+E11)/F11
in those three cells there is a value of 0
the following message appears in the formula cell - #DIV/0!
is there a way to change my formula so it doesn't display this message and just return 0
View 3 Replies
View Related
May 13, 2009
My data base downloads with signs $,#, etc
How can I remove these from a cell and leave the numbers
example
A1 102,462#
A2 83#
A3 4,265#
View 9 Replies
View Related
Mar 16, 2009
I need to do a lookup on these cells but for some reason they all appear to have some kind of space characters in each cell which you can see if you double click on them. I have tried trims, text to columns, find replaces and none of these seem to work
I have a huge list of these numbers / codes and they all have the weird space kind of characters at the end
Can anyone give me a solution on how to remove them so my lookup will work?
View 12 Replies
View Related
Jan 11, 2014
I have spreadsheet that was sent to me but for some reason column A-D do not have the grey grid lines. They have the row lines but not the column lines. The data fits into column A but when I click on Center it all disappears and and I have to open the cell up nearly half the page to view the data again.
I have attached a screen shot of the problem. What I need to know is how to undo that so that it has normal formatting like a new spreadsheet. excell.jpg
View 6 Replies
View Related
May 26, 2014
remove numbers from a cell.For example cell value is Drienne Kiop C0411377 or Tsler, Hopkin & Hart LLC B0002503
I am looking for a formula or function to get result ]Drienne Kiop or Tsler, Hopkin & Hart LLC
View 3 Replies
View Related
May 14, 2009
See the attached file. I regularly receive input files which I have to reformat and upload to a website as a .csv. The website does not like the / between the characters on the Input Data tab. Is there a way to automatically search and remove them and leave the rest of the characters intact? The columns do not always appear in the same order and there could be more or less columns. On the Import Template tab, columns A-I will always be there, so ideally the code should make the changes from the Input Data tab and copy the present columns (J thru whatever) header and data over to the Import Template tab starting in 'J1'. I think that VBA would be the best way to go due to the variable nature of the columns.
View 4 Replies
View Related
May 16, 2009
I have some code that display date and time in a cell when "done" is input into the adjaecent cell. (Any value would be the trigger, though)
View 2 Replies
View Related
Sep 13, 2008
I have 2 columns of data which contains mainly numbers that are either 9 or 10 digits long. However some have got so words at he end which is what I want to remove. I thought of using text to colums but there is no space or symbol between the number and text.
An example is
0111111100ddddfffffddd
or
0222222222ddddd ffffff ddddd
View 3 Replies
View Related
Oct 29, 2013
I have the following in cell A1:
0113 CDW 3 yr Coterm - Ironport devices
I need to remove 0113 from this cell to read only:
CDW 3 yr Coterm - Ironport devices
Any formula to do this?
View 5 Replies
View Related
Jun 24, 2008
removing certain words/charactors in a cell.
For example, I have these information in 1 excel cell.
"Company allows staff to purchase small value items (items amounting to less than $3000) with approval from the staff's director."
So in this case, I need to remove the HTML/XML tags manually. Therefore, the final result should be,
"Company allows staff to purchase small value items (items amounting to less than $3000) with approval from the staff's director."
It is very tedious with the huge amount of data to process.
View 9 Replies
View Related