I have a problem here with the currency style, when I put the number in the cell and clicked the currency style button, the currency is placed in the left side and the number is in right side. How can I make it both in the middle? http://i44.tinypic.com/bfnbqd.jpg
View 4 RepliesI have a several hundred rows of data that are telephone line type, number and user name all concatenated. This is the way the data arrives. I need to extract the number and user name into 2 separate columns - I do not need the phone type. Is there a formula that can identify numbers within text. I can't use Text to Columns as the leading telephone line type varies and I don't want to use VBA to do the work. There are at least 10 different line types, example of some:
SPECTRUM TIPT 0740357052 LUNCH ROOM
SPECTRUM ANALOGUE 0744076642 J BROWN
EXCHANGE LINE (PSTN/PSTN) 0742031346 HAYES SUB
FAXSTREAM DUET 0742003232 NORTH SUBSTATION
M/BANK (Spectrum) 0740318578 MB TO 4429
P PHONE (TELSTRA) 0744074159 B WILLIAMS
WITHIN ANALOGUE 0784625967 I MAKIT
the following phones start witn an "N"
PRIVATE LINE (PAPL) N7035896P ROTHMANS SUBSTATION
PRIVATE LINE (VGDL) VOICE LINK N7563069P P BLACK
PRIVATE LINE 2 WIRE PREMIUM (PAPL) N70079 FITZGIBBON G
PRIVATE LINE 4 WIRE PREMIUM (PAPL) N70335 SUBS SSKLB
Can this be done or will I have to resort to code.
I have a large excel spreadsheet which looks at a number of test results for students in school. The worksheet being prepared by marcos to display different class results dependent on the teacher select so they can view their class data. The sheet works fine and does all I need but have a fault with the transfer of test results which contain zeros. These are transfered with the zero missing even if the zero is in the middle of the number eg 203. The display if zeros is not suppressed and I have no format to suppress zeros but also understand these commands on suppress empty cells containing just zero.
This code will bring up the fault shown above and will loose zeros so 10 on source sheet becomes 1 and 102 becomes 12
VB : =IFERROR(SUBSTITUTE((VLOOKUP($A11,INDIRECT($H$14),550,False)),"0",""),"")
I wondered if the SUBSTITUTE command is causeing issues but cannot remember quite what this command does - may have copied from elsewhere and not fully understood it.
The following code is used elsewhere on the same worksheet to display the same test result but in a individual pupil format rather than as a class sheet.
VB : =IFERROR(VLOOKUP($C$7,INDIRECT($H$14),888,False),"")
This picks up the same result but does not suppress the zeros. It cannot be used to do the job of the upper code as it reads from the original source where as the upper line of code reads from a central point which does not change so the data from 6 different areas is copied into this area.
These are not part of macros just in a cell. The cells are not formatted and then right click format cell is just "general".
Needless to say I need to know what I have done wrong to get the test result to be displayed incorrectly so I can correct it to get the sheet right.
How I could get an average of a 12 number list while at the same time removing the highest and lowest numbers. They aren't in any order either.
1087.2
1041.35
1040.35
1049.65
800.45
734.15
835.7
1157.15
1145
1098.5
788.6
1265.85
I would like one formula to remove "5206" from this string. I tried a combination of right/left formulas together, but I could not get it to work.
5032.5206.05816.00040501.0000
How to make EXCEL 2007 Automatically convert all my CURRENCY symbols in all cells formatted for CURRENCY in THE SAME SHEET to the one and ONLY currency selected in JUST ONE cell ? (i mean, after conversion, all of them are Not just display currency symbols, but Calculable monetary values like regular Excel's built-in currency format)
I am a dummy in VBA so I really am not familiar at all if the solution is really one of VBA. I don't even know how to start programming VBA at all in Excel.
I am using Excel 2003 and have a column within my spreadsheet that, through a formula, inserts a decimal that has formatting to show as a percent. I would like to know who to convert that number to words. I saw spellnumber (and love it!) but don't know how to edit it so that it converts properly.
View 9 Replies View RelatedI have a value say £11.50 what i need is for this to be turn in to 1150 no point.
When i try on excel i get it to 115
I have several rows which lists different currencies - USD, GBP, EURO, JPY etc.,
A1 usd 5000
A2 GBP 7000
A3 USD 3400
A4 EUR 12000
A5 JPY 89000
A6 EUR 1000
At the bottom I want to show the total of each currency separtely.
I have the results of a "IF" formula. I want that number to be shown as currency and allow it to be part of a "sum" formal. Is this possible?
View 2 Replies View RelatedI need to have a spell number function such that if I have a collumns with a figure and abbreviated currency as below
USD 953,681.67
EUR 953,681.67
GBP 953,681.67
The function SpellNumber would display as
US Dollars Nine Hundred and Fifty Three Thousand Six Hundred and Eighty One and Sixty Seven Cents Only
Euros Nine Hundred and Fifty Three Thousand Six Hundred and Eighty One and Sixty Seven Cents Only
Great British Pounds Nine Hundred and Fifty Three Thousand Six Hundred and Eighty One and Sixty Seven Cents Only
Any function that I can append as Macro in Excel and output depends on Currency.I should also be able to edit Macro to add additional currencies as I wish.
I have a file contains thousands of rows of purchasing order. the purchasing value is in different local currency,the data(number) format is "Accounting" .
Is there a way to separate the currency sign and the number into different column?
I need to the currency sign to be able to convert data to desired currency. But Excel read the data as number. so I was doing it row by row. Such a pain and not efficient.
I have a Userform where i have the user in put a dollar amount in a text box. Im having difficulty getting this assigned to a variable as an integer. I get a "type mismatch" error. I have tried declaring the variable as an integer, and tried the cint() function, but i get the same error.
View 3 Replies View RelatedI would like to create a formula that would break a number into seperate currencies as follows:
Any amount that is >0 would be flagged as "gp"
Any amount that is .1 would be flagged as "sp"
Any amount that is
In the accounting number formats, the available currency symbols are Dollar ($), Pound (₤), Euro (€), and Yuan (¥). But how can I add a custom currency symbol? For example instead of writing "$1,000", I want to write "BDT. 1,000" or "৳ 1,000". How can I do that?
View 4 Replies View RelatedI am trying to figure out how to insert a decimal into a number. For ex: 1234 to become 12.34. I tried creating custom or special formatting but I cannot figure it out.
View 3 Replies View RelatedI have some 9digit numbers and i have to enter the number 9 afther the fourth digit. Example : 50200491 - turned into 502900491.
View 5 Replies View RelatedIs there a way that I can remove the whole number to leave the decimal place.
1.69 should be 0.69
10.71 should be 0.71
0.48 should be 0.48
Column P is the percentage of body weight lost...
P
-1.98%
-2.92%
-3.87%
-3.48%
0.00%
-0.10%
0.00%
-3.56%
-3.57%
What I need is a formula to look at all 9 data points and give the place number. Remember that the lowest number is actually in first place.
I am trying to export a range of data from excel to xml. I have a module that puts the range of data into one cell:
Code:
Function Concat(myRng As Range)
Dim myStr As String
Dim c As Range
myStr = ""
For Each c In myRng
If c.Value "" Then myStr = myStr & ", " & Chr(34) & c.Value & Chr(34)
Next
Concat = Mid(myStr, 2, 9999)
End Function
How to all data to come in with one decimal place (eg. "4.5","5.0",7.0")
Right now it looks like this:
("4.5","5",7")
I am after a macro to do the following, my visual basic skills are very limited (non existant):- Look at the date in cell A1 on Sheet 'Live Report' and err 'remember it' Copy a range of cells from A3 to A10 on 'Live Report' Go to sheet 'Monthly Summary' and find the date that had been remembered previously (this date will be in column A on 'Monthly Summary' which will probably be a mixture of values and formulas). After the date has been found paste special and transpose the 'values only' copied range from 'Live Report' (A3 to A10) in column B on 'Monthly Summary' next to the date that has been found in Column A.
View 2 Replies View RelatedI have a macro that imputs data from an external database and puts it into a temporary worksheet. This data has 3 columns (ID, Date, Amount). I am then making another sheet which has X number of tables (one for each ID), with the years being the column headings, and months being the row headings. ie.
| ID X
| +------+------+------+--->
| | 1999 | 2000 | 2001 |
+------+------+------+------+--->
| Jan | $100 | $250 | $300 |
+------+------+------+------+--->
| Feb | $200 | $300 | $200 |
+------+------+------+------+--->
| Mar | $300 | $250 | $100 |
+------+------+------+------+--->
| Sum | $600 | $800 | $600 |
| +------+------+------+--->
| ID Y
| +------+------+------+--->
| | 1999 | 2000 | 2001 |
+------+------+------+------+--->
| Jan | $100 | $250 | $300 |
+------+------+------+------+--->
| Feb | $200 | $300 | $200 |
+------+------+------+------+--->
| Mar | $300 | $250 | $100 |
+------+------+------+------+--->
| Sum | $600 | $800 | $600 |
| +------+------+------+--->
Currently I have a few hidden fields for the DSUM Criteria. I start making the tables. And then filling in table based off of the month and year. Doing so I need 3 criteria:
>= First Day of the Month
<= Last Day of the Month
= ID #
The problem is it takes Excel too long to fill in the 3 criteria fields, calculate the result, copy the result, and place it into the correct place on the table. Is there another way to get this data into the correct tables faster? Instead of using DSUM?
I need a macro that will place the number "1" in a range under the cell with a value of any kind. If the cell does not have a value then the cells below will be left blank.
View 9 Replies View Relatedhow can I do this?
Mike A Johnson
Tomas P. Carbone
Samuel L Jackson
Peter B. Lacrone
some have the period some dont.
im thinking I could just get rid of the periods first with a simple find/replace
so getting rid of just the middle initial ?
I want to get out of a loop in the middle of it, with out going out from the whole procedure.
By the way, is there is possibility to send him to other location in the code instead of going out of the loop?
Do While ( Cells(counter, 5).Value = 1)
'some commands
If R(1) >= 0.83 * R(2) Then
'some commands
Else
' here I want it to go out of the loop,
' but not to get out of the whole porcedure
End If
counter = counter + 1
Loop
An application I use at work exports names in a first name-last name format. At this point I have a list of about 315 names in this format. Is there a way I can convert these names to a last name-first name format? I need to export these data on a daily basis, so I'll need to perform this conversion every day. I did a search for this, but didn't find anything.
View 9 Replies View RelatedI have a worksheet with some names in a column with a persons first name then the second name and I would like to place the names in a different column I can have this to work ok with the following formula
=MID(A1&" "&A1,FIND(" ",A1)+1,LEN(A1))
This works ok but I have people with three names like Peter May Jones
When I have changed the name I would like to have (Jones, Peter May) but I get (May Peter Jones)
Also the colon I have after the first name gets put at the end of the name not after the last name.
I have code that copies data from one tab, called "Report" - to another tab called "Master". The data in the "Report" tab is actually 2 reports. Both reports have the exact same format but are separated by 1 or 2 blank rows and a Heading row. Before I run the code, I have to delete the blank rows and middle heading row.
I was wondering if there is code that could find these rows and delete them.
The row that I delete has the following values (which are headings): Col 1, 2, 3. The populated columns are A - L
Channel
Alrt Type
Alrt Dt
I want to extract just the last name from a cell that contains the full name and put just the last into a seperate cell.
WHAT I AM DOING: i copy the contents of a internal screen onto a spreadsheet that i use to check various peices of info and calculations. when i save I like to save my sheet with the last name and then acct number. The internal system screen combines the customers names into a single cell. Right now i have to type the last name into a new cell and have a simple save macro that concatenates that last name with the acct number and saves it into the appropriate folder.
The field i am pulling from is always formatted with FIRST NAME then MI (IF PROVIDED) and then LAST NAME. So when i dump the screen contents into excel A20 may be MIKE SMITH, or MIKE T SMITH. so i need something that looks backwards in the cell and stops at the first space and dumps SMITH into another cell of my choosing (B1 in this case)
I have a spread sheet that the user enters 3 characters in B2 of a name, then the code will determine out of 35,000 rows with names in Column B how many match the 3 consecutive chracters, all other rows that dont match will hide.
My issue is, that the code seams to find the 3 leters only when there in the middle of a name, and will not identify all other simularities where the 3 letters are at the begining of the name, or at lerast not in all cases.
I adjusted the "Set tempCell = .Columns(2)." to (1) and that worked great but caused other problems.
lastrow = .Cells(Rows.Count, 2).End(xlUp).Row
Set tempCell = .Range("B:B").Find(what:=Left(.Range("B2").Value, 3), After:=.Range("B2"), _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If tempCell Is Nothing Then
MsgBox "Not found"
Exit Sub
Else
Set foundCell = tempCell
Range(.Range("B3"), foundCell.Offset(-1, 0)).EntireRow.Hidden = True
End If
Do
Set tempCell = .Columns(2).FindNext(After:=foundCell)
If foundCell.Row >= tempCell.Row Then Exit Do
Range(foundCell.Offset(1, 0), tempCell.Offset(-1, 0)).EntireRow.Hidden = True
Set foundCell = tempCell
Loop
Range("A" & foundCell.Row + 1 & ":A" & lastrow).EntireRow.Hidden = True
End With
End Sub